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FOREWORD 


STEAP  II  is  a series  of  three  computer  programs  developed  by 
the  Martin  Marietta  Corporation  for  the  mathematical  analysis  of 
interplanetary  or  lunar  navigation  and  guidance.  STEAP  is  an 
acronym  for  Space  Trajectory  Error  Analysis  Programs . The  first 
series  of  programs  under  this  name  was  developed  under  Contract 
NAS 1-9 745  for  Langley  Research  Center  and  was  documented  in  two 
volumes  ( STEAP  Users1  Manual j STEAP  Analytical  Manual)  as  NASA 
Contract  Report  66818.  Under  contracts  NAS5-11795  and  NAS5-11873, 
the  STEAP  series  was  extensively  modified  and  expanded  for  Goddard 
Space  Flight  Center.  This  second -generation  series  of  programs 
is  referred  to  as  STEAP  II. 

STEAP  II  is  composed  of  three  independent  yet  related  programs: 
NOMNAL,  ERRAN,  and  SIMUL.  All  three  programs  require  the  inte- 
gration on  n-body  trajectories  for  both  interplanetary  and  lunar 
missions.  The  virtual-mass  technique  is  the  scheme  used  for  this 
purpose  in  all  three  programs. 

The  first  program  named  NOMNAL  is  responsible  for  the  generation 
of  n-body  nominal  trajectories  (either  lunar  or  interplanetary) 
performing  a number  of  deterministic  guidance  events.  These  events 
include  initial  or  injection  targeting,  midcourse  retargeting,  orbit 
insertion,  and  miniprobe  targeting.  A Variety  of  target  parameters 
are  available  for  the  targeting  events.  The  actual  targeting  is 
done  iteratively  either  by  a modified  Newton-Raphson  algorithm  or 
by  a steepest-des cent /con jugate  gradient  scheme.  Planar  and  non- 
planar  strategies  are  available  for  the  orbit  insertion  computation. 
All  maneuvers  may  be  executed  either  by  a simple  impulsive  model 
or  by  a pulsing  sequence  model. 

ERRAN,  the  second  program  of  STEAP  II,  is  used  to  conduct  linear 
error  analysis  and  generalized  covariance  analysis  studies  along 
specific  targeted  trajectories.  The  targeted  trajectory  may,  how- 
ever, be  altered  during  flight  by  retargeting  events  (computed 
either  by  linear  or  nonlinear  guidance)  and  by  an  orbit  insertion 
event.  Knowledge  and  control  covariances  are  propagated  along  the 
trajectory  through  a series  of  measurements  and  guidance  events  in 
a totally  integrated^  fashion.  The  knowledge  covariance  is  processed 
through  measurements  using  a Kalman-Schmidt  or  equivalent  recursive 
weighted-least-squares  filter  with  arbitrary  so lve-f or/ consider 
augmentation.  Execution  of  guidance  events  may  be  modeled  either 
by  an  impulsive  approximation  or  by  a pulsing  sequence  model.  The 
' resulting  knowledge  and  control  covariances  can  be  analyzed  by  the 
program  at  various  events  to  determine  statistical  data,  including 
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probabilistic  midcourse  correction  sizing  and  effectiveness,  prob- 
ability of  impact,  and  biased  aimpoint  requirements*  Probe  release 
events  are  also  available  for  studying  missions  employing  multi- 
probe spacecraft. 

The  third  and  final  program  in  the  STEEP  II  series  is  the  simu- 
lation program  SIMUL.  SIMUL  is  responsible  for  the  testing  of  the 
mathematical  models  used  in  the  navigation  and  guidance  process. 

An  "actual"  dynamic  model  is  used  to  propagate  an  "actual"  trajec- 
tory. Noisy  measurements  from  this  "actual"  trajectory  are  then 
sent  to  the  estimation  algorithm.  Here  the  actual  measurement,  the 
statistics  associated  with  that  measurement,  and  an  "assumed"  dynam- 
ical model  are  blended  together  to  generate  the  filter  estimate 
of  the  trajectory  state.  This  process  is  repeated  continually 
through  the  measurement  schedule.  At  guidance  events,  corrections 
are  computed  based  on  the  estimate  of  the  current  state.  These  cor- 
rections are  then  corrupted  by  execution  errors  and  added  to  the 
"actual"  trajectory.  The  statistics  and  augmentation  of  the  filter, 
the  mismatches  in  the  "actual"  and  "assumed"  dynamics,  and  the  ex- 
ecution errors  and  measurement  biases  may  then  be  varied  to  determine 
the  effects  of  these  parameters  on  the  navigation  and  guidance  proc- 
ess. All  guidance  and  probe  release  event  options  defined  for  ERRAN 
are  also  available  in  SIMUT^ 

The  documentation  for  STEAP  II  consists  of  three  volumes:  the 

Analytic,  Programmers1  and  User’s  Manuals.  Each  of  these  docu- 
ments is  self-contained. 

The  STEAP  Analytic  Manual  consists  of  two  major  divisions. 

The  first  section  provides  a unified  treatment  of  the  mathematical 
analysis  of  the  STEAP  II  programs.  The  general  problem  description, 
formulation,  and  solution  are  given  in  a tutorial  manner.  The 
second  section  of  this  report  supplies  the  detailed  analysis  of 
those  subroutines  of  STEAP  II  dealing  with  technical  tasks. 

The  STEAP  Programmers 1 Manual  provides  the  reader  with  the  in- 
formation he  needs  to  modify  the  programs.  Both  the  overall  struc- 
ture of  the  programs  as  well  as  the  computational  flow  and  analysis 
of  the  individual  subroutines  is  described  in  this  manual. 

The  Users f Manual  contains  the  information  necessary  to  oper- 
ate the  programs.  The  input  and  output  quantities  of  the  programs 
are  described  in  detail.  Example  cases  are  also  given  and  dis- 
cussed. 
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INTRODUCTION 


This  Programmer’s  Manual  is  intended  to  supply  the  reader  with 
sufficient  Information  about  the  STEAP  II  programs  to  enable  him  to 
efficiently  modify  them.  Both  the  overall  structure  of  the  programs 
and  the  computational  flow  of  the  Individual  subroutines  are  described 
in  this  manual. 

. This  section  describes  the  contents  of  the  Programmer’s  Manual. 
Following  this  discussion  the  nomenclature  used  throughout  the  report 
is  presented. 

The  third  section  of  this  manual  describes  the  four  basic  com- 
ponents of  STEAP  II:  the  n-body  trajectory  propagation  package,  the 

nominal  trajectory  generator  NOMNAL,  the  error  analysis  program  ERRAN,, 
and  the  simulation  program  SIMUL.  The  general  purpose  and  capability 
of  each  of  the  programs  is  briefly  summarized. 

Chapter  4 of  this  volume  examines  the  STEAP  II  programs  from  a 
more  detailed  viewpoint.  The  operational  structure  of  each  of  the 
main  components  is  described  at  the  subroutine  level.  The  individual 
subroutines  are  defined  and  cross-referenced  according  to  the  three 
main  programs, of  STEAP  II. 

Chapter  5 contains  the  definitions  of  the  variables  appearing 
in  common  blocks  throughout  the  programs.  The  variables  are  first 
listed  according  to  the  common  blocks  to  which  they  belong.  The  pro- 
grams requiring  each  of  these  common  blocks  are  also  noted.  Following 
this  all  the  common  variables  are  listed  in  alphabetical  order  with 
their  common  blocks  referenced.  Tables  detailing  the  definitions  of 
large,  frequently  referenced  common  arrays  are  also  provided. 

Chapter  6 comprises  the  bulk  of  this  volume.  Each  of  the  sub- 
routines is  documented  in  detail  in  alphabetical  order.  The  purpose 
of  the  subroutine  is  supplied.  Subroutines  supported  or  required 
by  the  subroutine  are  listed.  Arguments  and  Interval  variables  of 
the  subroutine  are  defined  and  usage  of  common"  variables  is  noted. 

The  mathematical  analysis  upon  which  the  subroutine  is  based  is  then 
discussed  in  full.  Finally  a flow  chart  of  the  computational  flow  of 
the  subroutine  is  provided. 
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NOMENCLATURE 


A. 


Arabic 

Symbol 

a 

B*T 

B'R 


XK, 


XU 


XV 


X U 

s 


symbols 


Definition 

Semi-major  axis  of  conic 

Impact  plane  parameter 

Impact  plane  parameter 

Correlation  between  position/velocity  state  and  solve- for 
parameters 

Correlation  between  position/velocity  state  and  dynamic 
consider  parameters 

Correlation  between  position/velocity  state  and  measure- 
ment consider  parameters 

Correlation  between  solve- for  parameters  and  dynamic 
consider  parameters 


C Correlation  between  solve- for  parameters  and  measurement 

s consider  parameters 

e Eccentricity  of  conic 

E Eccentric  anomaly 

f True  anomaly  on  conic 

G Observation  matrix  relating  observables  to  dynamic  consider 

parameter  state 

H Observation  matrix  relating  observables  to  position/velocity 

state 


i Inclination  of  conic  (reference  body  equatorial) 

J Measurement  residual  covariance  matrix 


K 

L 

M 


Kalman  gain  constant  for  position/velocity  state 

Observation  matrix  relating  observables  to  measurement 
consider  parameter  state 
Mean  longitude 

Observation  matrix  relating  observables  to  solve- for 
parameter  state 
Mean  anomaly 
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f0>  I* 


Dimension  of  solve- for  parameter  state 
Dimension  of  dynamic  consider  parameter  state 
Dimension  of  measurement  consider  parameter  state 

Semilatus  rectum  of  conic 
Probability  density  function 

Position/velocity  covariance  matrix 

Unit  vector  to  periapsis  of  conic 

Solve- for  parameter  covariance  matrix 

Dynamic  noise  covariance  matrix 

Execution  ^errpr  matrix 

t 

Unit  vector  in  plane  of  motion  normal  to  P 
Radius 

Radius  of  closest  approach 
Radius  of  sphere  of  influence 

Measurement  noise  covariance  matrix 
Actual  noise  covariance  matrix 

Unit  vector  normal  to  T in  plane  perpendicular  to  approach 
asymptote  directed  south  ( R - S x T ) 

Target  planet  capture  radius 

Kalman  gain  constant  for  solve- for  parameters 
Velocity  correction  covariance  matrix 
Approach  or  departure  asymptote 
Time  of  closest  approach  to  target  body 

Time  of  intersection  with  sphere  of  influence  of  target  body 
Time  interval 

Unit  vector  lying  in  ecliptic  plane  normal  to  * 

A 'g*  ^ 

“ T /v  , where  K is  unit  normal  to  ecliptic  plane.) 

| S x iq 

Dynamic  consider  parameter  covariance  matrix 
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Velocity 

Measurement  consider  parameter  covariance  matrix 
Target  parameter  covariance  matrix 
Unit  normal  to  orbital  plane 
Actual  position/velocity  state 
Targeted  nominal  position/velocity  state 
Most  recent  nominal  position/velocity  state 

B.  Greek  Symbols 

a Auxiliary  parameters 

r Guidance  matrix 

J 

r Flight  path  angle 

5 Declination  of  vector 

Av  Velocity  increment 

€ Measurement  residual 

Errors  in  target  parameters 

rj  Variation  matrix  relating  position/velocity  variations  to 

* target  conditions 

0 State  transition  matrix  partition  associated  with  solve- for 

s parameters 

0 State  transition  matrix  partition  associated  with  dynamic 

*%u  consider  parameters 

0 Longitude  or  right  ascension 

A.  Projection  of  target  condition  covariance  matrix  W into  the 

J impact  plane  J 

* i 

M Gravitational  constant  of  body 

/ 1 Biased  aimpoint 

V Sampled  measurement  noise 

True  anomaly 


v 

V 

o 

W . 
J 

w" 

X 

X 


X 


Magnitude  of  gauss ian  approximation  for  midcourse  correction 
Correlation  coefficient 

Standard  deviation 

Launch  azimuth 

Target  parameters 

Targeting  matrix 

State  transition  matrix  for  position/velocity  state 
Latitude 

Sensitivity  matrix 

Matrix  relating  guidance  corrections  to  target  condition 
deviations 

Longitude  of  ascending  node 
Argument  of  periapsis 
Longitude  of  periapsis 

C.  Subscripts 

C Control  variable  (P  ) 

C 

CA  Closest  approach  (r  ) 

f Final  variable  (t^) 

i Initial  variable  (t.) 

1 

j Index  of  current  guidance  event  (P.) 

J 

k Index  of  current  measurement  (P  ) 

K. 

t 

K Knowledge  variable  (P  ) 

K 

s Solve- for  parameter  (x^) 

SI  Sphere  of  influence  (tg^) 

D.  Superscripts 

A 

A Augmented  variable  ( <£  ) 

IT> 

T Matrix  transpose  ( $>  ) 

-1  Matrix  inverse  ( 


a 

L 

x 

T 

$ 


a 

CO 


Cl) 
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Variable  immediately  before  instant  (P  or  v ) 

■j*  *j- 

+ Variable  immediately  after  instant  (P^  or  v ) 

E.  Abbreviations 

AU  Astronomical  unit 

CA  Closest  approach  to  reference  body 

ERRAN  Error  analysis  program 

FTA  Fixed  time  of  arrival  guidance  policy 

GHA  Greenwich  hour  angle 

yr  yi\ 

J.D , Julian  date  (referenced  either  0 or  1900  ) 

km  Kilometers 

M/C  Midcourse  correction 

NGMNAL  Nominal  trajectory  generation  program 

POI  Probability  of  impact 

Q-L  Quasilinear  filter  event 

S/C  Spacecraft 

SF/C  Solve- for/consider 

S3MUL  Simulation  program 

SOI  Sphere  of  influence 

STM  State  transition  matrix 

STEAP  .Space  Trajectories  Error  Analysis  Programs 

VM  Virtual  Mass 

2VBP  Two  variable  B-plane  guidance  policy 

3VBP  Three  variable  B-.plane  guidance  policy 
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3. 


SUMMARY  OF  MODES 


The  Space  Trajectory  Error  Analysis  Programs  (STEAP)  consist  of 
four  subprograms  or  operational  modes.  The  first  mode,  used  as  a 
subroutine  by  each  of  the  other  three  programs,  Is  the  trajectory  mode 
VMP  by  which  an  n-body  trajectory  (lunar  or  interplanetary)  Is  propa- 
gated by  the  virtual  mass  technique.  The  second  mode  is  the  nominal 
trajectory  generator  or  targeter  (NOMNAL)  by  which  a lunar  or  inter- 
planetary trajectory  meeting  specified  conditions  is  determined.  The 
third  mode  is  the  error  analysis  program  ERRAN  in  which  the  navigation 
and  guidance  characteristics  of  a nominal  trajectory  are  analyzed  by 
linearly  propagating  knowledge  and  control  covariances  along  the 
trajectory.  Finally  the  simulation  mode  SIMEJL  tests  the  mathematical 
models  used  in  the  navigation  and  guidance  processes  by  modeling  the 
tracking  and  correction  of  an  "actual"  trajectory.  In  this  chapter 
a general  description  of  each  of  these  modes  will  be  provided. 

3.1  The  Virtual  Mass  Propagator  VMP 

The  dynamic  model  used  by  STEAP  is  supplied  by  the  trajectory 
propagation  package.  The  only  external  forces  acting  upon  the  space- 
craft are  assumed  to  be  the  gravitational  forces  of  the  celestial 
bodies  considered  in  the  integration.  Both  the  spacecraft  and  the 
gravitational  bodies  are  assumed  to  be  point  masses  so  neither  space- 
craft attitude  nor  planet  asphericities  are  considered. 

The  celestial  bodies  to  be  in  the  integration  are  specified  by 
the  user  and  may  include  the  sun,  any  of  the  nine  planets,  and  the 
earth’s  moon.  The  motion  of  the  planets  about  the  sun  and  the  moon 
about  the  earth  are  modeled  by  using  mean  ecliptic  elements  of  date. 

If  the  user  desires,  each  of  the  planets  can  be  set  in  a fixed  ellipse 
referenced  to  some  epoch  for  speedier  computation. 

The  coordinate  system  used  in  the  integration  is  also  specified 
by  the  user.  The  options  available  are  either  heliocentric  ecliptic 
or  barycentric  ecliptic  (nominally  for  lunar  trajectories). 

The  actual  scheme  used  in  the  propagation  of  the  trajectory  in 
the  virtual  mass  or  varlcentric  technique  (see  reference  15).  No 
• actual  integration  is  performed  by  the  trajectory  mode  J che  key  idea 
of  the  virtual  mass  technique  is  to  build  up  an  n-body  trajectory  by 
using  a sequence  of  conic  sections  around  a moving  effective  force 
center  called  the  virtual  mass.  At  each  instantaneous  moment  along 
the  trajectory,  the  combined  effects  of  all  the  gravitational  bodies 
can  be  viewed  as  resulting  from  a fictitious  body  of  unique  magnitude 
. and  position  which  is  called  the  virtual  mass.  The  computational  pro- 
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cedure  then  assumes  that  over  a small  time  interval,  the  motion 
of  the  spacecraft  can  be  represented  by  a two-body  conic  section 
arc  relative  to  this  virtual  mass.  The  complete  trajectory  is  thus 
generated  by  a series  of  small  arcs  pieced  together  in  steps  while 
updating  the  position  and  magnitude  of  the  effective  force  center. 
The  main  advantage  of  the  virtual-mass  technique  is  that  the  tedi- 
ous numerical  integration  of  the  differential  equations  is  avoided. 

Another  significant  feature  of  the  virtual-mass  technique  is 
its  flexibility.  By  varying  a simple  parameter  called  the  "accur- 
acy level"  related  to  the  true  anomaly  increment  of  each  step,  tra- 
jectories ranging  from  a sequence  of  relatively  few  conic  section 
arcs  corresponding  to  a very  approximate  solution  to  those  requir- 
ing a large  number  of  arcs  corresponding  to  highly  accurate  solu- 
tions may  be  generated. 

3.2  The  Nominal  Trajectory  Targe ter  NOMNAL 

NOMNAL  is  responsible  for  the  generation  of  a nominal  trajec- 
tory for  either  lunar  or  interplanetary  missions.  The  method  or 
propagation  in  either  case  is  the  virtual-mass  n-body  integrator. 
The  trajectory  may  be  processed  through  a series  of  deterministic 
maneuvers  including  initial  or  injection  targeting,  subsequent 
retargeting,  miniprobe  targeting,  and  orbit  insertion.  A variety 
of  target  parameters  are  available  for  the  targeting  events.  Both 
coplanar  and  nonplanar  strategies  are  permitted  in  the  orbit  in- 
sertion maneuver. 

If  an  initial  state  for  the  problem  is  known,  this  may  be  read 
in  to  start  the  trajectory.  Otherwise  NOMNAL  generates  its  own 
zero  iterate.  In  interplanetary  missions  this  involves  solving 
the  Lambert  tims-of-f light  equation  for  the  massless  planet  tra- 
jectory that  connects  the  desired  initial  and  final  positions  in 
the  specified  time  interval.  Four  options  are  available  in  de- 
scribing these  reference  points. 


Initial  Point 

Final  Point 

Launch  Planet 
Launch  Planet 
Specified  Point 
Specified  Point 

r 

Target  planet 
’ Specified  Point 
Target  Planet 
Specified  Point 

If  the  initial  point  is  referenced  to  the  launch  planet,  a launch 
profile  is  consulted  to  generate  a realistic  set  of  injection  con- 
ditions consistent  with  the  heliocentric  trajectory. 


For  lunar  trajectories  a slightly  different  procedure  is  used* 
The  required  data  for  the  lunar  zero  iterate  includes  specification 
of  the  desired  semimajor  axis  with  respect  to  the  moon,  radius  and 
time  of  closest  approach  to  the  moon,  and  inclination  to  the  lunar 
equator.  Then  the  zero  iterate  is  generated  by  first  targeting  a 
patched  conic  trajectory  and  then  a multiconic  trajectory  to  the 
desired  conditions* 

A targeting  event  may  be  processed  immediately  after  obtaining 
a zero  iterate  state  or  at  any  point  along  the  nominal  trajectory. 
At  a targeting  event  the  current  velocity  is  refined  to  yield  a 
trajectory  satisfying  target  parameter  constraints.  The  possible 
target  parameter  are; 


1) 

TPS 

5) 

B*T 

9) 

SMA  (Lunar) 

13) 

DCP 

2) 

TSI 

6) 

B*R 

10) 

XF 

14) 

RAP 

3) 

TCS 

7) 

RCA 

ID 

YF 

15) 

TPR 

4) 

TCA 

8) 

INC 

12) 

ZF 

The  targeting  method  to  be  used  is  specified  by  the  user.  Either 
a modified  Newton-Raphson  algorithm  or  a steepest  descent /conju- 
gate gradient  technique  may  be  used. 

Orbit  insertion  events  are  also  available  in  NOMNAL.  At  a 
specified  time  the  spacecraft  state  relative  to  the  target  body 
is  computed.  The  resulting  conic  trajectory  relative  to  the  tar- 
get body  is  then  compared  with  the  desired  orbit  to  determine  the 
optimal  time  to  make  the  insertion  and  the  required  correction. 

At  the  proper  time  the  velocity  correction  is  then  implemented. 

Two  strategies  are  permitted  in  the  orbit  insertion  computation: 

1)  Coplanar  - The  desired  semimajor  axis,  eccentricity,  and 

periapsis  shift  of  a coplanar  orbit  are  speci- 
fied; 

2)  Nonplanar  - The  desired  plane  of  the  postinsertion  state 

is  specified  along  with  nominal  values  of  the 
orbit  elements. 

/ 

The  targeted  correction,  orbit  insertion  correction,  or  an  ex- 
ternally supplied  correction  may  be  executed  if  desired.  Two  mod- 
els are  available  for  this  implementation — a simple  Impulsive  ad- 
dition or  a more  complex  multiple  pulse  model. 


NOMNAL  is  also  capable  of  targeting  a set  of  three  miniprobes 
to  three  specified  target  sites.  Since  achieving  impacts  at  three 
specified  points  on  the  planet  surface  constitutes  a six-degree- 
of-freedom  constraint  while  only  four  mlniprobe  release  controls 
are  available,  any  targeting  process  can,  at  most,  achieve  a mini- 
mum-miss solution.  NOMNAL  uses  as  its  miss -index  a weighted  sum 
of  the  squares  of  the  distances  between  the  respective  actual  and 
desired  B-plane  asymptote  pierce  points.  The  weighting  factors, 
which  are  supplied  by  the  user,  indicate  the  relative  importance 
of  securing  nearby  impacts  at  the  respective  target  sites.  NOMNAL 
computes  its  weighted  least-squares  solution  by  a hybrid  pseudo- 
inverse and  s teepest-descent  algorithm.  The  initial  control  it- 
erate is  constructed  by  approximately  targeting  the  first  mini- 
probe to  one  of  the  target  sites  using  a single  Newton-Raphson 
step. 

Finally  the  program  integrates  and  records  all  segments  of 
the  nominal  trajectory  between  guidance  events  from  injection  at 
the  launch  planet  until  the  appropriate  termination  condition 
input  by  the  user.  For  a conglomerate  vehicle  NOMNAL  records 
the  separate  branches  of  the  trajectory  belonging  to  the  main 
probe  and  miniprobes  as  well  as  to  the  bus. 


3.3  The  Error  Analysis /Generalized  Covariance  Analysis  Program 
ERRAN 

The  error  analysis /generalized  covariance  analysis  program 
ERRAN  is  a preflight  mission  analysis  tool  that  is  used  to  deter- 
mine how  selected  error  sources  influence  the  orbit  determination 
process  for  interplanetary  or  lunar  missions. 

In  the  error  analysis  mode,  ERRAN  provides  three  primary  quan- 
titative results:  (1)  knowledge  covariance  matrices,  which  pro- 

vide a measure  of  how  well  the  actual  trajectory  is  known,  (2) 
control  covariance  matrices , which  when  propagated  forward  to  the 
target  provide  a measure  of  how  well  the  nominal  target  conditions 
will  be  satisfied  by  the  actual  trajectory,  and  (3)  statistical 
midcourse  AVs,  which  provide  a measure  of  the  amount  of  fuel  re- 
quired for  a successful  mission. 

In  the  generalized  covariance  analysis  mode,  ERRAN  provides 
all  of  the  above  information  plus  corresponding  "actual"  statis- 
tical information.  The  three  results  discussed  in  the  previous 
paragraph  are  all  computed  on  the  basis  of  statistical  distribu- 
tions assumed  by  the  navigation  filter  to  describe  the  significant 
error  sources.  In  the  generalized  covariance  analysis  mode,  "actual" 
knowledge  covariances,  control  con variances , and  statistical  mid- 
course AVs  are  computed  on  the  basis  of  statistical  distributions 
that  actually  describe  both  error  sources- acknowledged  by  the 
navigation  filter  and  the  error  sources  ignored.  The  primary  use“ 
of  the  generalized  covariance  analysis  program  is  to  study  the 
sensitivity  of  filter  performance  to  off-design  conditions. 

ERRAN  allows  for  employing  gain  generators  for  user-specified 
linear  recursive  navigation  filters.  Two  gain  generators  are  cur- 
rently available  in  ERRAN:  (1)  Kalman-Schmidt  filter,  and  (2) 

equivalent  recursive  consider  mode  weighted-least-squares  filter. 

State  transition  matrices  are  required  to  propagate  covariance 
matrices  over  an  arbitrary  interval  of  time.  Three  methods  are 
available  for  computing  the  6x6  position/velocity  state  transition 
matrix.  The  first  two  methods,  which  are  analytical  methods,  are 
analytical  patched  conic  and  analytical  virtual  mass.  The  third 
method  uses  numerical  differencing  to  compute  the  state  transition 
matrix.  To  increase  the  accuracy  of  the  analytical  techniques  over 
long  intervals,  a state  transition  matrix  cascading  option  is  also 
available.  Augmented  parameter  state  transition  matrices  are  al- 
ways computed  using  numerical  differencing. 
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Up  co  23  dynamic  and  measurement  parameters  may  be  solved-for 
or  considered  by  the  navigation  filter.  Parameters  not  acknowledged 
in  design  of  the  filter  may  be  treated  as  ignore  parameters  when 
KRRAN  is  run  in  the  generalized  covariance  analysis  mode.  The  dy- 
namic parameters  include  biases  in  the  gravitational  constants  of 
the  sun  and  the  target  planet  and  biases  in  the  six  orbital  ele- 
ments of  the  target  planet.  Measurement  biases  include  biases  in 
the  locations  of  the  three  earth-based  tracking  stations,  and  biases 
in  all  measurements.  Available  measurement  types  are  range,  range- 
rate,  star-planet  angles,  and  apparent  planet  diameter  measurements. 
Measurement  noise  for  each  measurement  type  is  assumed  to  be  con- 
stant. 

The  computational  procedure  in  ERRAN  is  divided  into  basic 
cycle  computations  and  event  computations.  Basic  cycle  computa- 
tions are  concerned  with  the  propagation  of  covariances  forward 
to  a measurement  time  and  processing  the  measurement.  Events  refer 
to  a set  of  specialized  computation,  not  directly  concerned  with 
measurement  processing,  that  can  be  scheduled  to  occur  at  arbitrary 
times  along  the  trajectory. 

The  four  events  available  in  ERRAN  are  eigenvector,  prediction, 
guidance,  and  probe  release.  At  an  eigenvector  event  the  position 
and  velocity  partitions  of  the  knowledge  covariance  matrix  are  di- 
agonalized to  reveal  geometric  information  about  the  size  and  ori- 
entation of  the  position  and  velocity_navigation  uncertainties. 
Associated  hyper ellipsoids  are  also  computed.  At  a prediction 
event  the  most  recent  covariance  matrix  is  propagated  forward  to 
some  critical  trajectory  time  to  determine  predicted  navigation 
uncertainties  in  the  absence  of  further  measurements. 

The  guidance  event  is  the  most  complex  event  and  yields  much 
useful  information  for  preflight  mission  analysis.  Several  types 
of  guidance  events  are  available  in  ERRAN.  At  a midcourse  guidance 
event  the  user  can  choose  from  three  midcourse  guidance  policies. 

The  midcourse  guidance  event  can  also  be  constrainted  to  satisfy 
planetary  quarantine  requirements.  At  an  orbital  insertion  guidance 
event  the  user  can  choose  from  two  insertion  policies.  Options 
are  also  available  for  changing  target  conditions  in  midflight 
and  retargeting  the  trajectory  using  nonlinear  techniques,  or  for 
simply  applying  an  externally  supplied  or  precomputed  AV  at  some 
arbitrary  trajectory  time.  Two  thrust  models  are  available — impulse 
and  impulse  series.  Execution  error  statistics  are  generated  using 
an  error  model  defined  by  a proportionality  error,  a resolution 
error,  and  two  pointing  angle  errors.  At  a midcourse  guidance 
event  in  ERRAN  we  also  compute  a statistical  AV  and  the  target 
condition  covariance  matrix  both  before  and  after  the  midcourse 
correction. 


Probe  release  events  provide  the  capability  to  study  missions 
employing  multiprobe  spacecraft*  The  muJ tiprobe  spacecraft  is 
modeled  as  (1)  a primary  vehicle,  or  bus,  with  thrusting  capabil- 
ity, (2)  a main  probe,  with  no  thrusting  capability,  and  (3)  three 
miniprobes  located  symmetrically  on  booms  attached  to  the  bus,  with 
no  thrusting  capability,  and  released  simultaneously  with  A Vs  pro- 
vided by  spinning  the  bus.  Probe  release  events  currently  operate 
only  in  the  error  analysis  mode  of  ERRAN.  All  measurement  types 
and  solve-for  or  consider  parameters  described  previously  are  de- 
fined for  all  probes.  Separate  measurement  schedules  can  be  defined 
for  the  bus  and  the  main  probe.  An  additional  measurement  schedule 
can  also  be  defined  for  all  three  miniprobes.  Knowledge  and  con- 
trol covariances  are  propagated  for  each  probe  in  sequential  fash- 
ion. 


3.4  The  Simulation  Program  SIMUL 

The  simulation  program  SIMUL  is  the  most  complex  program  in 
the  STEAP  set  of  programs.  In  SIMUL  the  validity  of  the  naviga- 
tion and  guidance  process  is  examined  by  simulating  an  actual  mis- 
sion. Spacecraft  state  estimates  are  generated  in  SIMUL,  as  well 
as  knowledge  covariance  matrices.  The  results  given  by  the  error 
analysis  program  ERRAN  become  meaningful  only  when  SIMUL  shows  that 
the  estimated  spacecraft  trajectory  converges,  within  reasonable 
bounds  specified  by  the  covariance  matrix,  to  the  simulated  actual 
trajectory.  


All  state  transition  matrix,  parameter  augmentation,  and  meas- 
urement options  described  in  section  3.3  are  also  available  in 
SIMUL.  As  in  ERRAN,  the  computational  procedure  in  STMUL  is  divided 
into  basic  cycle  computations.  The  SIMUL  basic  cycle  is  concerned 
with  the  generation  of  state  estimates  and  an  actual  trajectory, 
together  with  all  quantities  generated  in  the  ERRAN  error  analysis 
basic  cycle.  Eigenvector  and  prediction  events  in  SIMUL  involve 
all  computations  performed  in  the  corresponding  ERRAN  events.  In 
addition,  the  SIMUL  prediction  event  propagates  state  estimates 
forward  to  the  time  to  which  we  are  predicting. 


All  options  available  in  the  ERRAN  guidance  event  (see  section 
3.3)1  are  also  available  in  the  SIMUL  guidance  event.  The  treatment 
of  the  midcourse  guidance  event,  however,  is  different  in  several 
respects.  First,  since  an  estimated  spacecraft  state  is  generated 
in  SIMUL,  an  actual  midcourse  AV  can  be  computed  rather  than  a 
statistical  AV  as  in  ERRAN.  Also,  all  linear  midcourse  AVs  com- 
puted in  SIMUL  can  be  recomputed  using  nonlinear  techniques. 


Fina-l-Ly,  since  an  actual  trajectory  Is  generated  in  SIMUL,  actual 
target  errors  after  the  midcourse  correction  are  also  computed* 


Probe  release  events  are  also  available  in  SIMUL.  In  addition 
to  propagating  knowledge  and  control  covariance  matrices  for  each 
probe,  SIMUL  also  generates  state  estimates  for  each  probe* 


12-2 


4 


DESCRIPTION  OF  SUBROUTINES 


4.1  Index  of  Subroutines 

The  subroutines  making  up  the  STEAP  programs  are  listed  according 
to  category  in  Table  4.1  following.  The  programs  are  divided  into  three 
general  classes;  the  subroutines  making  up  the  virtual  mass  propaga- 
tion package  used  by  the  three  basic  programs,  the  additional  subroutines 
required  by  NOMNAL  and  then  the  additional  subroutines  -used  in  ERRAN 
and  SIMUL.  In  Table  4. 2 the  subroutines  are  listed  again  by  category 
with  a brief  summary  of  their  purpose.  Thus  Table  4. 2 can  be  used  to 
track  down  the  subroutine  in  which  a specific  task  is  performed.  The 
individual  subroutines  are  then  documented  in  detail  in  alphabetical  * 
order  in  Chapter  6, 

4. 2 VMP  Subroutine  Hierarchy 

The  ’executive  program  for  the  virtual  mass  n-body  trajectory 
propagator  is  named  VMP.  The  reader  should  investigate  the  detailed 
analysis  and  flow  chart  of  VMP  in  the  individual  subroutine  documenta- 
tion in  Chapter  6.  The  summaries  of  the  subroutines  of  VMP  are  given 
in  the  first  part  of  Table  4. 2.  The  subroutines  are  conveniently 
divided  into  four  general  classes: 

Subroutines  based  on-conic  approximations 

Subroutines  used  to  compute  the  positions  and 
velocities  of  the  gravitational  bodies  at 
different  times  along  the  trajectory 

Subroutines  used  in  -the  direct  computation  of 
the  trajectory  of  the  spacecraft  moving  under 
the  influence  of  all  the  gravitational  bodies 

Subroutines  processing  either  the  input  or 
output  from  the  virtual  mass  trajectory  propagation 

The  calling  hierarchy  of  the  virtual  mass  programs  is  given  in  Figure 
4,1.  All  subroutines  within  a given  block  are  at  an  Identical  level 
relative  to  the  calling  hierarchy  unless  they  ere  enclosed  by 
parentheses.  Subroutines  within  parentheses  are  called  by  the  pre- 
ceding subroutine.  Otherwise  calls  to  subroutines  are  Indicated  by 
arrows.  Thus  all  subroutines  within  blocks  connected  directly  to 
VMP  are  called  directly  from  VMP. 


Conic 

Ephemeris 

Propagation 

Input/ Output 


4.3  NOMNAL  Subroutine  Hierarchy 

The  first  of  the  three  independent  programs  of  STEAP  is  the 
nominal  trajectory  targeter  NOMNAL.  The  main  program  controlling 
the  processing  of  the  program  goes  under  the  same  name.  Reference 
is  made  to  the  complete  documentation  of  NOMNAL  in  Chapter  6.  The 
subroutine  hierarchy  of  NOMNAL  is  provided  in  Figure  4.2.  BLOCK 
DATA  loads  the  planetary  constants  used  by  many  of  the  subroutines; 
it  is  therefore  available  to  all  subroutines  of  NOMNAL.  PRELIM 
reads  the  input  data  and  calls  ZERIT  for  the  computation  of  a zero 
iterate  if  necessary.  ZERIT  in  turn  calls  HELIO  or  LUNA  for  the 
actual  computation  of  the  interplanetary  or  lunar  zero  iterate 
respectively.  NOMNAL  calls  TRJTRY  for  the  propagation  of  the  nom- 
inal trajectory  between  guidance  maneuvers.  TRJTRY  of  course  calls 
the  VMP  package  described  in  Figure  4.1.  NOMNAL  calls  GIDANS  for 
the  actual  processing  of  any  guidance  event.  GIDANS  calls  VMP  to 
initialize  arrays  for  the  other  events.  If  a targeting  event  re- 
quires a zero  iterate  computation,  ZERIT  is  called.  Subroutine 
TARGET  controls  the  targeting  events;  INSERS  controls  the  insertion 
decision  computations.  NOMNAL  calls  EXCUTE  for  the  execution  of 
either  of  these  two  types  of  events.  GIDANS  calls  MPPROP  to  exe- 
cute a main-probe  propagation  event  (i.e.,  to  provide  a time  his- 
tory of  the  main -probe  trajectory) . Finally  GIDANS  calls  TPRTRG 
to  carry  out  a miniprobe  targeting  event  (i.e.,  to  obtain  the 
minimum-miss  release  controls,  record  the  impact  data,  and  print 
histories  of  the  minimum-miss  rainiprobe  trajectories. 


4.4  ERRAN  and  SIMUL  Hierarchy 

The  calling  hierarchy  of  the  subroutines  used  in  ERRAN  and 
SIMUL  is  shown  in  Figures  4.3  and  4.4,  respectively.  The  similar 
structure  of  ERRAN  and  SIMUL  is  apparent  from  these  two  figures. 

All  subroutines  can  be  classified  under  one  or  more  of  the  follow- 
ing categories:  input,  output,  basic  cycle  (measurement  processing), 

or  events. 

The  calling  hierarchy  of  the  subroutines  is  indicated  by  the 
level  of  the  subroutine  in  Figures  4.3  and  4.4.  A given  subroutine 
calls  all  subroutines  that  are  directly  connected  to  the  subrou- 
tine and  are  located  on  the  next  lower  level.  For  the  purposes 
of  clarity,  the  lowest  level  subroutine  on  a given  branch  is  en- 
closed in  parentheses.  BLOCK  DATA  is  shown  connected  to  the  main 
hierarchy  with  a dashed  line  to  indicate  that  the  constants  stored 
in  BLOCK  DATA  are  available  to  all  subroutines. 

The  complete  documentation  of  all  subroutines  used  in  ERRAN 
and  SIMUL  is  given  in  Chapter  5 of  this  document. 
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Table  4.1  STEAP  II  Subroutines 
I.  Virtual-Mass  Subroutines 


Conic 

B.  Ephemeris 

C.  Propagation 

D.  Input/Output 

1.  CAREL 

1.  TIME 

1.  VMP 

1.  TRAPAR 

2.  ELCAR 

2.  BLOCK  DATA 

2.  ESTMT 

2.  INPUTZ 

3.  IMPACT 

3.  ORB 

3.  VECTOR 

3.  PRINT 

4.  SOIPS 

4.  EPHEM 

5.  CENTER 

6.  PECEQ 

7.  EULMX 

8.  SUBSOL 

4.  VMASS 

4.  SPACE 

5.  NEWPGE 

II.  NOMNAL  Subroutines 

A.  Executive  B.  Zero  Iterate  C.  Targeting 


1.  EXCUTE 

1. 

BATCON 

7. 

LUNTAR 

1. 

DESENT 

2.  GIDANS 

2. 

FLITE 

8. 

MULCON 

2. 

KTROL 

3.  MPPROP 

3. 

HELIO 

9. 

MULTAR 

3. 

TARGET 

4.  NOMNAL 

4. 

LAUNCH 

10. 

SERIE 

4. 

TARMAX 

5.  PRELIM 

5. 

LUNA 

11. 

ZERIT 

5. 

TAROPT 

6.  TRJTRY 

6. 

LUNCON 

- 

D.  Insertion'  E.  Pulsing  Arc  F.  Miniprobe  Targeting 

1.  COPINS  1.  (BATCON)  1.  SACOCS 

2.  INSERS  2.  PERHEL  2.  TPPROP 

3.  NONINS  3.  PREPUL  3.  TRRTRG 

4.  PULSEX 


Mathematical 

H.  Conic 

I. 

Ephemeris 

Functions 

and 

Operations 

- 

1.  DINCOS 

6.  SCAD 

1.  CAREL 

6.  HYPT 

1.  EPHEM 

2.  DINS IN 

7.  SCAR 

2.  CONCAR 

7.  IMPACT 

2.  ORB 

3.  JACOB 

8.  THPSOM 

3.  DIMPCP 

8.  IMPCT 

3.  PECEQ 

4.-  MATIN 

9.  USCALE 

4.  ELIPT 

9.  S PR IMP 

4.  SUBSOL 

5.  MATPY 

10.  UxV 

5.  HPOST 

10.  STIMP 
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III.  ERRAN  and  SIMUL  Subroutines 


A.  Executive  C.  Navigation  D.  Event  E.  Input /Output 


1.  ERRAN 

1.  NAVM 

2.  SIMUL 

2.  GNAVM 

3.  GAIN1 

Dynamic  Model 

4.  GAIN 2 

5.  SCHED 

1.  NTM 

6.  TRAKM 

2.  NTMS 

7.  TRAKS 

3.  PSIM 

8.  TARPRL 

4.  NDTM 

9.  STAPRL 

5.  PLND 

10.  MEMO 

6.  MUND 

11.  MENOS 

7.  PCTM 

12.  BIAS 

8.  CONCZ 

13.  RNUM 

9.  CAS  CAD 

14.  DYNO 

15.  DYNOS 

16.  GHA 

17.  JACOBI 

18.  HYEIS 

19.  EIGHY 

i 

20.  MEAN 

21.  SAVMAT 

1.  SETEVN 

1.  DATA 

2.  SETEVS 

2.  DATA1 

3.  PRED 

3.  GDATA 

4.  PR5SIM 

4.  SKEDM 

5.  BEPS 

5.  DATAS 

6.  BATCON 

6.  DATA1S 

7.  ZRANS 

7.  CONURT 

8.  ATANH 

8.  TRANS 

9.  BPLANE 

9.  CORREL 

10.  QUASI 

10.  STMPR 

11.  GUIDM 

11.  SUB1 

12.  GUISIM 

12.  TITLE 

13.  GUID 

13.  GPRINT 

14.  GUIS 

14.  MOMENT 

15.  VARADA 

15.  PRINT3 

16.  VARSIM 

16.  PRNTS3 

17.  PARTL 

17.  PRINT4 

18.  BIAIM 

18.  PRNTS4 

19.  POICOM 

20.  QCOMP 

21.  NONLIN 

22.  PULCOV 

23.  EXCUT 

24.  EXCUTS 

25.  PROBE 

26.  PROBES 

27.  MINIQ  , 

28.  NTRY 

29.  GENGID 

30.  ATCEGV 

31.  GQCOMP 
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CAREL  (DINC0S, 
ELIPT, 
HYPT, 
USCALE, 
UXV) 

ELCAR 

IMPACT 

S0IPS  (CAREL, 
ELCAR, 
PECEQ, 
SUBS0L) 


TIME 

BLOCK  DATA 
ORB 

EPHEM  (CENTER) 
SUBS0L  (EPHEM, 
0RB2 

USCALE, 

UXV) 

PECEQ(EULMX) 


(Come)  (Ephemens) 


ESTMT 

VMASS 


INPUTZ 


SPACE  (NEWPGE) 


PRINT 


(Propagation) 


(Input/Output) 


Subroutine  Hierarchy  of  VMP 


CO 


NOMNAL 


BLOCK  DATA1 


PRELIM 


TRJTRY 


GIDANS 


VMP2 

ZERIT 

TIME 

^VMPS  ZtklH,  TIME 

iTARGET^ 


[CAREL,  TIME, 

LAUNCH 

0RB, 

T— 

EPHEM  (CENTER) 

PECEQ  ( EULMX) 

0RB 

FLITE  (SERIE) 

EPHEM  (CENTER) 

PECEQ  (EULMX) 

LUNTAR 


IMPACT,  0RB, 
EPHEM  (CENTER) 
PECEQ  (EULMX) , 
MATIN,  LUNCON 
(CAREL,  IMPACT) 


MULTAR 


CAREL,  ELCAR, 
IMPACT,  TIME, 
0RB,  MATIN, 
EPHEM  (CENTER) 
PECEQ  (EULMX) 


( MULC0N 

=rn  , 

0RB,  BATCON 

EPHEM 

(CENTER) 


W INSERS 

^ , 

PECEQ,  C0PINS  (CAREL,  ELCAR),  NONINS  (CAREL,  ELCAR) 

Hexcute4 

H HP  PROP 

—4 

VMP2 

H TPRTRG4 

• 1.  BLOCK  DATA  stores  constants  available  ' 

to  all  subroutines 

2.  Subroutine  hierarchy  available  in  Table 
4.1 

3.  Subroutine  hierarchy  available  on  far 
left 

4.  Subroutine  hierarchy  continued  elsewhere  in  1 
Figure  4.2 


Figure  4.2a  Subroutine  Hierarchy  of  NOMNAL 


Figure  4,2b  Subroutine  Hierarchy  of  NOMNAL 


Figure  4.3a.  Subroutine  Hierarchy  of  ERRAN 


ho 


Figure  4.3b  Subroutine  Hierarchy  of  ERRAN 


PR0BE 


NTM  (VMP2),  DYN0, 
GNAVM  (GAIN1,  GAIN2), 
PSIM1,  MEAN,  0RB, 
EPHEM  (CENTER),  NTRY, 
STMPR,  C0RREL,  SCHED, 
TRAKM,  MEN0,  PRINT3, 
MINIQ,  TPRTRG3 
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* SAVMAT,  DYN0,  MEAN, 
GNAVM  (GAIN1,  GAIN2) , 
M0MENT,  EIGAN,  GQC0MP , 
ATCEGV,  OAC0BI 


Figure  4.3c.  Subroutine  Hierarchy  of  ERRAN 


3.  Subroutine  hierarchy  continued  in  Figure  4.2. 


Figure  4.4a  Subrouting  Hierarchy  of  SIMUL 


Figure  4.4b  Subroutine  Hierarchy  of  SIMUL  (continued) 


Table  4.2  STEAP  II  Subroutine  Summaries 


Subroutine 

Function 

Virtual-Mass  Subroutines 

A.  Conic 

1. 

CAREL 

\ 

Convert  a Cartesian  state  to  conic 
elements 

/ 

2. 

ELCAR 

Convert  conic  elements  to  a Cartesian 
state 

3. 

IMPACT 

Compute  the  impact-plane  parameters 

4. 

S0IPS 

Conically  extrapolate  from  the  nearest 

integration  state  to  obtain  impact 
data  at  the  SOI  and  at  the  planet 
surface 


B . Ephemeris 

1.  block  data 

2.  CENTER 

3.  EPHEM 

4.  EULMX 

5.  ORB 

6 . PECEQ 

7.  SUBSOL 

8.  TIME 


Set  the  emphemeris  constants  of  the 
gravitational  bodies 

Convert  the  states  of  bodies  to 
barycentric  coordinates 

Compute  the  inertial  state  of  a 
gravitational  body  at  a given  time 

Compute  the  rotational  transforma- 
tion matrix  from  the  Euler  angles 

Compute  the  orbital  elements  of  a 
gravitational  body  at  a given  time 

Compute  the  transformation  matrix 
from  ecliptic  to  equatorial  coor- 
dinates 

Compute  the  transformation  matrix 
from  ecliptic  to  subsolar  coordinates 

Convert  Julian  dates  epoch  1900  to 
calendar  dates  or  vice  versa 
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Subroutine 


Function 


C*  Propagation 


1. 

1SSTMT 

Determine  final  position  and  magnitude 
of  the  virtual  mass  on  the  current 
step 

z. 

VECTOR 

Compute  the  final  position  of  the 
spacecraft  on  the  current  step 

3. 

VMASS 

Determine  the  virtual-mass  data  for 
the  current  step 

4. 

VMP 

Direct  the  virtual-mass  trajectory 
propagation 

D.  Input/Output 

* 

1. 

INPTJTZ 

Convert  the  input  data  into  a form  on 
which  VMP  can  operate 

2. 

NEWPGE 

Print  headings  for  each  new  page  in 
VMP  printout 

3. 

PRINT 

PRINT  periodic  trajectory-status 
data 

4. 

SPACE 

Space  paper  keeping  tracking  of 
paging 

5. 

TRAPAR 

Compute  and  record  navigation  param- 
eter data 

NOMNAL 

Subroutines 

A.  Executive 

i. 

EXCUTE 

Control  the  execution  of  a velocity- 
increment  trajectory  correction 

2. 

GIDANS 

Control  the  computation  of  a velocity- 
increment  trajectory  correction 

3. 

MPPROP 

Generate  a time  history  of  the  main- 
probe  trajectory 

4. 

NOMNAL 

Control  the  generation  of  the  nominal 
trajectory  (main  program) 

5. 

PRELIM 

Perform  preliminary  data  processing 
for  NOMNAL 

6. 

TRJTRY 

Propagate  the  nominal  trajectory 
to  the  next  guidance  event 

Zero  Iterate 

• 

i. 

BATCON 

Propagate  a conic  trajectory  by  means 
of  the  universal  conic  functions 

2. 

FLITE 

Obtain  the  solution  to  Lambert *s 
tima-of -flight  equation 

3. 

HELIO 

Compute  the  heliocentric  phase  of 
the  interplanetary  zero  iterate 

4. 

LAUNCH 

Compute  the  launch  phase  of  the  in- 
terplanetary zero  iterate 

5. 

LUNA 

Control  lunar  zero -iterate  generation 

6. 

LUNCON 

Generate  a patched  conic  lunar  tra- 
jectory 

7. 

LUNTAR 

Control  the  patched  conic  targeting 

8. 

MULCON 

Generate  the  lunar  multi conic  trajec- 
tory 

9. 

MULTAR 

Control  the  lunar  multi conic  targeting 

10. 

SERIE 

Compute  the  universal  conic  functions 
used  in  FLITE 

11. 

ZERIT 

Control  the  computation  of  the  zero 
iterate 

Targeting 

1.  DESENT  Compute  the  interplanetary  velocity 

targeting  corrections  using  the 
descent  scheme 
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2 . KTROL 

3 . TARGET 

4.  TARMAX 

5 . TAROPT 

J 

Insertion 

1.  COPINS 

2.  INSERS 

3.  NONINS 
Pulsing  Arc 

1.  r(BATCON) 

2.  PERHEL 

3.  PREPUL 

4.  PULSEX 
Miiiiprobe  Targeting 
1.  SAOCS 

TPPROP 


Compute  the  heliocentric  ecliptic 
velocity  corrections  given  the  launch 
planetocentrlc  velocity  controls 

Control  the  n-body  targeting 

Compute  the  Newton-Raphson  targeting 
matrix 

Set  up  the  actual  and  auxiliary  tar- 
get parameter  arrays 


Compute  the  coplanar  orbit  insertion 
maneuver 

Control  the  orbit  insertion  computa- 
tion 

Compute  the  nonplanar  orbit  insertion 


Propagate  a conic  trajectory  by  means 
of  the  universal  conic  functions 

Propagate  a perturbed  heliocentric 
conic 

Perform  the  preliminary  data  proces- 
sing for  a multiple-pulse  trajectory 
correction 

Execute  pulsing  arc 


Compute  the  sines  and  cosines  of  the 
spin-axis  right  ascension  and  decli- 
nation given  the  spin-axis  orientation 
mode 

Propagate  the  three  miniprobe  tra- 
jectories according  to  either  a conic 
or  virtual-mass  model 


2. 


3.  TPRTRG 


Control  the  nmiiprobe  targeting 
procedure 


G.  Mathematical 

1.  DINCOS 

2.  D1NSIN 

3.  JACOB 

4.  MATIN 

5.  MATPY 

6.  SCAD 

7.  SCAR 

* 

8.  THPOSM 

9.  USC ALE 
10,  UXV 

H.  Conic 

1.  CAREL 

2 . CON  CAR 


Functions  and  Operations 

Calculate  in  degrees  the  inverse 
cosine  of  a real  number 

Calculate  in  degrees  the  inverse 
sine  of  a real  number 

Approximate  by  divided  differences 
the  Jacobian  sensitivity  matrix  of 
a vector-valued  function  with  re- 
spect to  a vector  variable 

Invert  a matrix  of  real-valued 
elements 

Multiply  two  matrices  of  real- 
valued elements 

Calculate  both  the  sine  and  cosine 
of  an  angle  given  in  degrees 

Calculate  both  the  sine  and  cosine 
of  an  angle  given  in  radians 

i 

Find  the  minimum  of  a function  on 
a given  interval  by  cubic  interpolation 

Scale  the  length  of  a three-vector 
to  a specified  real  number 

Calculate  the  vector  product  of  two 
three-vectors 


Convert  a Cartesian  state  to  conic 
elements 

Convert  a conic  state  in  terms  of 
r*  0,  e,  Q^,  and  y into  a Cartesian 
state 
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3.  DIMPCP 

4.  ELIPT 

5 . HPOST 

6 . ^ HYPT 

7.  IMPACT 

8.  IMPCT 

9 . SPHIMP 

10.  STIMP 
Ephemeris 


Calculate  the  desired  B-plane  asymptote 
pierce-point  coordinates  given  the  right 
ascension  and  declination  of  a probe 
target  site 

Calculate  the  time  from  periapsis  on 
an  elipse  given  the  true  anomaly 

Calculate  the  radius  and  true  anomaly 
on  a hyperbola  given  the  time  from 
periapsis 

Calculate  the  time  from  periapsis 
on  a hyperbola  given  the  true  anomaly 

Compute  the  impact-plane  parameters 

For  auxiliary  targeting  compute  actual 
and  desired  B-plane  asymptote  pierce  * 
points  as  well  as  actual  target  values 

Calculate  the  true  anomaly  and  time 
from  periapsis  at  which  a conic  ap- 
proach trajectory  pierces  a plane to- 
centric  sphere  of  a given  radius 

Calculate  the  Biplane  asymptote  pierce- 
point  coordinates  of  a conic  trajectory 
given  a state  upon  it 


1. 

SPEEM 

Compute  the  inertial  state  of  a 
gravitational  body  at  a given  time 

2. 

ORB 

Compute  the  orbital  elements  of  a 
gravitational  body  at  a given  time 

3. 

PECEQ 

Compute  the  transformation  matrix 
from  ecliptic  to  equatorial  coordinates 

4. 

SUB SOL 

Compute  the  transformation  matrix 
from  ecliptic  to  subsolar  coordinates 

XU.  ERRAN  and  SIMUL  Subroutines 


A.  Executive 

1. 

ERRAN 

Control  error  analysis  program  (main 
program) 

2. 

SIMUL 

Control  simulation  program  (main 
program) 

B . Dynamic  Model 

, 

i. 

NTM 

Control  generation  of  trajectory  data 
for  ERRAN 

2. 

NTMS 

Control  generation  of  trajectory  data 
for  SIMUL 

3. 

PSIM  v 

Control  computation  of  state  transi- 
tion matrix  (STM) 

4. 

NDTM 

t * 

Compute  unaugmented  partition  of  STM 
by  numerical  differencing 

5. 

PLND 

Compute  STM  partition  associated  with 
ephemeris  biases 

6. 

MUND 

Compute  STM  partition  as so crated  with 
gravitational  constants 

7. 

PCTM 

Compute  unaugmented  partition  of  STM 
by  patched  conic  technique 

8. 

C0NC2 

Compute  unaugmented  partition  of  STM 
by  virtual-mass  technique 

9. 

CAS CAD 

' Compute  unaugmented  partition  of  STM 
by  cascaded  Darby  matrizants 

C.  Navigation 

- 

1. 

NAVM 

Propagate  covariance  matrices  between 
measurements  and  between  events  in 
SIMUL 

2. 

GNAVM 

Propagate  assumed  and  actual  covariance 
matrices  between  measurements  and  be- 
tween events  in  ERRAN 
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3. 

GAIN1 

Compute  the  Kalman  GAIN  matrices 

4. 

CAXN2 

Compute  the  GAIN  matrices  for  the 
equivalent  recursive  consider  weighted- 
least-squares  filter 

5. 

SCHED 

Select  next  measurement  time  from 
measurement  schedule 

6. 

TRAKM 

Compute  observation  matrices 

7. 

TRAKS 

Compute  observation  matrices  and 
actual  measurements 

8. 

TARPRL 

Compute  target  planet  position 
partials 

9. 

STAPRL 

Compute  station  location  position 
and  velocity  partials 

10. 

MENO 

Compute  assumed  measurement  noise 
covariance  matrix 

11. 

MENOS 

Compute  assumed  and  actual  measure- 
ment noise  covariance  matrices 

12. 

BIAS 

Compute  actual  measurement  bias 

13. 

RNUM 

Generate  random  numbers 

14. 

DYNO 

Compute  dynamic  noise  covariance 
matrix 

15. 

DYNOS 

Compute  dynamic  noise  covariance 
matrix  and  actual  dynamic  noise 

16. 

GHA 

Compute  Greenwich  hour  angle 

17. 

JACOBI 

Compute  eigenvalues  and  eigenvectors 
of  a matrix 

18. 

HYELS 

Compute  hyperellip'soids 

19. 

EIGHY 

Control  computation  of  eigenvalues, 
eigenvectors,  and  hyperellipsoids 
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20. 

MEAN 

Propagate  and  update  means  of  actual 
state  or  parameter  deviations  and 
actual  state  of  parameter  estimation 
errors 

21. 

SAVMAT 

Stores  one  vector  in  a second  vector 

Event 

- 

. 1. 

SETEVN 

Perform  computations  common  to  most 
events  in  ERRAN 

• 2.- 

SETEVS 

Perform  computations  common  to  most 
events  in  SIMUL 

3. 

PRED 

Perform  prediction  'event  in  ERRAN 

4. 

PRESIM 

Perform  prediction  event  in  SIMUL 

5. 

BEPS 

Compute  B-Plane-Related  covariances 
and  state  transition  matrices 

6. 

BATCON 

Compute  trajectory  data  at  time  T 
given  position  and  velocity  at  time  0 

7. 

ZRANS 

Calculate  transcendental  functions 
used  in  the  universal  form  of  Kepler fs 
- equation  * * 

8. 

ATANH 

Find  the  angle  Y whose  TANH  is  X 

S. 

BPLANE 

Compute  B-plane  parameters 

10. 

QUASI 

Perform  quasi-linear  filtering  event 
in  SIMUL 

11. 

GUIDM 

' Perform  guidance  event  in  ERRAN 

12. 

GUISIM 

Perform  guidance  event  in  SIMUL 

13. 

GUID 

Compute  guidance  and  variation  matrices 
xn  ERRAN 

'14. 

GUIS 

Compute  guidance  and  variation  matrices 
in  SIMUL 

15. 

VARADA 

Compute  3VBP  variation  matrix  in  ERRAN 
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16. 

VARSIM 

Compute  3VBP  variation  matrix  in  SIMUL 

17. 

PARTL 

Compute  partials  of  B*T,  B»R,  wrt 
state 

18. 

BIAIM 

Perform  biased  aimpoint  guidance 

19. 

POICOM 

Compute  probability  of  impact 

20. 

QCOMP 

Compute  execution  error  covariance 
matrix 

21. 

NOHLIN 

Control  execution  of  nonlinear  gui- 
dance events 

22. 

PUtOOV 

Propagate  covariance  matrix  across 
a series  of  pulses 

23. 

EXCUT 

Control  execution  of  pulsing  arc  in 
ERRAN 

24. 

EXCOTS 

Control  execution  of  pulsing  arc  in 
SIMUL 

25. 

PROBE 

Control  execution  of  probe  release 
events  in  ERRAN 

26. 

PROBES 

Control  execution  of  probe  release 
events  in  SIMUL 

27. 

MIN  IQ 

Compute  execution  error  covariance 
matrix  for  miniprobe  release 

28. 

NTRY 

Compute  entry  parameters,  covariance, 
and  communication  angle 

29. 

GENGID 

Generalized  covariance  technique 
applied  to  guidance  processes 

30. 

ATCEGV 

Compute  eigenvalues  and  eigenvectors 
of  actual  target  condition  2nd  moment 
matrices 

31. 

GQCOMP  | 

Compute  actual  execution  error  statistics 
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E.  Input/Output 


1. 

DATA 

Perform  preliminary  computations  and 
read  data  in  ERRAN 

2. 

DATA1 

Continuation  of  DATA 

3. 

G,DATA 

Initialized  generalized  covariance 
quantities 

4. 

SKliDM 

Set  up  bus,  main  probe,  and  miniprobe 
measurement  schedules 

5. 

DATAS 

Perform  preliminary  computations  and 
read  data  in  SIMUL 

6. 

DAT AS  1 

Continuation  of  DATAS 

7. 

CONVRT 

Convert  JPL  injection  conditions 
to  Cartesian  components 

8. 

TRANS 

Compute  coordinate  transformations 

9. 

CORREL 

Compute  and  print  correlation  matrix 
partitions  and  standard  deviations 

10. 

STMPR 

Print  STM  partitions 

11. 

SUB1 

Compute  position  and  velocity  magnitudes 

12. 

TITLE 

Print  titles 

13. 

GPRINT 

Print  actual  estimation  error  statis- 
tics 

14. 

MOMENT 

Convert  2nd  moment  matrices  to  cor- 
relation matrices  and  print  them 

15. 

PRINT3 

Print  basic  cycle  data  in  ERRAN 

16. 

PKNTS3 

Print  ERRAN  Summary 

17. 

PRINT4 

Print  basic  cycle  data  in  SIMUL 

18. 

RENTS 4 

Print  SIMUL  summary 
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5.  COMMON  VARIABLE  DEFINITIONS 


THE  BULK  OF  THE  VARIABLES  USED  IN  THE  STEAP  PROGRAMS  ARE  COMMON 
VARIABLES.  THESE  VARIABLES  ARE  DEFINEO  IN  DETAIL  IN  THIS  CHAPTER. 
THE  FIRST  SECTION  LISTS  THE  COMMON  BLOCKS  IN  ALPHABETICAL  ORDER. 

THE  PROGRAMS  CNOMNAL t ERRAN,  SIMUL)  USING  EACH  COMMON  BLOCK  ARE 
NOTED.  THE  VARIABLES  OF  EACH  COMMON  BLOCK  ARE  DEFINEO  IN  THE  ORDER 
THAT  THEY  APPEAR  IN  THE  COMMON  BLOCK. 

THE  SECOND  SECTION  LISTS  ALPHABETICALLY  ALL  VARIABLES  APPEARING 
ANYWHERE  IN  COMMON.  THE  COMMON  BLOCK  TO  WHICH  THE  VARIABLE  BELONGS 
IS  REFERENCED.  THE  DEFINITION  OF  THE  VARIABLE  IS  THEN  GIVEN. 

THE  THIRD  SECTION  SUPPLIES  THE  DEFINITIONS  OF  SEVERAL  LARGE 
FREQUENTLY  REFERENCED  ARRAYS.  THE  ELEMENT  APPEARING  IN  EACH  COMPON- 
ENT OF  EACH  ARRAY  IS  NOTED'. 
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5.1  COMMON  VARIABLES  BY  BLOCKS 


IN  THIS  SECTION  COMMON  BLOCKS  APPEARING  IN  STEAP  ARE  LISTEO  IN 
ALPHABETICAL  ORDER.  VARIABLES  WITHIN  THESE  BLOCKS  ARE  LISTED  AND 
DEFINED  IN  THE  ORDER  THEY  APPEAR  IN  THE  PROGRAM. 


/BAIM  / MODE  ERRANj  SIMUL 

ATRANS<  6)  CLOSEST  APPROACH  STATE 

TMPR  (3)  MOST  RECENT  TARGET  STATE 

TN0MCC7)  NOMINAL  CLOSEST  APPROACH  TARGET  STATE, INCL.  TIME 

TNOMB<3>  NOMINAL  9-PLANE  TARGET  STATE 

PHI2 (3, 3)  INVERSE  OF  VARIATION  MATRIX  PARTITION 

VINF  HYPERBOLIC  EXCESS  VELOCITY 

TINJ  INJECTION  TIME 

PROBI  ALLOWABLE  PROBABILITY  OF  IMPACT 

ADAC3,6)  VARIATION  MATRIX 

T3(10)  ARRAY  OF  GUIOANCE  EVENT  TIMES 

I 

IBAG  NOT  USED 

IPQ  NOT  USED 

XGUID(5  , 10)  ARRAY  OF  GUIDANCE  EVENT  CODES 

II  GUIDANCE  EVENT  COUNTER 
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/8LK  / MODE*  NOMNAL,  ERRAN,  SIMUL 


T 

PMASSIli) 

CN(dO) 

STC50) 

EMN( 15)  , 

SMJRU8) 

RADI  US<  11) 
RMASStil) 

ELMNT  (80) 

SPHERECli) 

XP  (6 ) 

NO<il) 


TRAJECTORY  TIME  IN  DAYS 

GRAVITATIONAL  CONSTANTS  OF  PLANETS  IN 
A.U.**3/DAV**2 

CONSTANTS  USED  TO  CALCULATE  THE  ORBITAL 
ELEMENTS  OF  THE  FIRST  FIVE  PLANETS 
i SEE  LARGE  ARRAY  DEFINITIONS  IN  SECTION  5.3) 

CONSTANTS  USED  TO  CALCULATE  THE  ORBITAL 
ELEMENTS  OF  THE  LAST  FOUR  PLANETS 
I SEE  LARGE  ARRAY  DEFINITIONS  IN  SECTION  5.3) 

THE  CONSTANTS  USEO  TO  CALCULATE  THE  ORBITAL 
ELEMENTS  OF  THE  MOON 

(SEE  LARGE  ARRAY  DEFINITIONS  IN  SECTION  5.3) 

CONSTANTS  USED  TO  CALCULATE  THE  SEMI-MAJOR 
AXES  OF  THE  PLANETS 

THE  RADIUS  OF  A GIVEN  PLANET  IN  A.U. 

_ THE  RELATIVE  GRAVITATIONAL  CONSTANT  OF  A 
STATED  PLANET  WITH  RESPECT  TO  THE  SUN 

CONTAINS  THE  ORBITAL  ELEMENTS  OF  THE  PLANETS 
(SEE  LARGE  ARRAY  DEFINITIONS  IN  SECTION  5.3) 

THE  SPHERES  OF  INFLUENCE  OF  THE  PLANETS  IN 
A «U. 


THE  POSITION  AND  VELOCITY  OF  A PLANET  IN 
INERTIAL  ECLIPTIC  COORDINATES 

AN  ARRAY  OF  PLANET  CODES  8EING  USED  TO 
GENERATE  THE  VIRTUAL  MASS  TRAJECTORY 
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IBARY 

ICOORO 

INITAL 


V(16,79 
F <44 ,4) 


PI 

RAO 

ITRAT 

KOUNT 

INCMNT 

INCPR 

INC 

IPR 


/ONIRIC/  MODE#  NOMNAL,  ERRAN,  SIMUL 

REFERENCE  COORDINATE  SYSTEM  CODE 
=0  HELIOCENTRIC  COORDINATES 
=1  8ARYCENTRIC  COORDINATES 

NON-FUNCTIONAL  IN  ERROR  ANALYSIS  MODE 

NON-FU'NCT IONAL  IN  ERROR  ANALYSIS  MODE 

/COM  / MOOEs  NOMNAL,  ERRAN,  SIMUL 


AN  ARRAY  WHICH  STORES  PERTINENT  VECTORS  USED 
IN  THE  CALCULATION  OF  THE  VIRTUAL  MASS 
TRAJECTORY  (SEE  LARGE  ARRAY  DEFNS  IN  SECT  5.3) 

CONTAINS  THE  POSITIONS  AND  VELOCITIES  OF  THE 
PLANETS  AT  A SPECIFIED  TIME  PLUS  THE  POSITIONS 
AND  VELOCITIES  OF  THE  SPACECRAFT  RELATIVE  TO  * 
THE  PLANETS  (SEE  LARGE  ARRAY  OEFNS  IN  SECT  5.3) 

THE  VALUE  OF  THE  MATHEMATICAL  CONSTANT  PI 

THE  NUMBER  OF  OEGREES  PER  RAOIAN 

IN  INTERNAL  COOE  USED  TO  DETERMINE  HOW  MANY 
ITERATIONS  HAVE  BEEN  ACCOMPLISHED  IN  THE 
VIRTUAL  MASS  PROCEDURE 

A CODE  WHICH  SPECIFIES  WHETHER  PRINT-OUT  IS 
TO  OCCUR  AFTER  THIS  TIME  INCREMENT 

NUMBER  OF  INCREMENTS  USED 

SPECIFIES  AFTER  HOW  MANY  TIME  INCREMENTS 
PRINT-OUT  IS  TO  OCCUR 

DETERMINE  WHETHER  THE  ABOVE  OPTION  IS  TO  BE 
USEO 

A CODE  WHICH  DETERMINES  IF  PRINT-OUT  IS  TO 
OCCUR  AFTER  A SPECIFIED  NUMBER  OF  DAYS 
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NBOUYI 

N80DY 
IPRT  (4) 

KL 

IPG 

LINCT 

LINPGE 


NUMBER  OF  BODIES  CONSIDERED  IN  VIRTUAL  MASS 
TRAJECTORY 

BASEO  ON  ABOVE  VALUE— EQUAL  TO  4*N800YI-3 


SPECIFIES  PRINT  OPTIONS  I IN  STEAP  TRAJECTORY 
THIS  OPTION  IS  OMITTEQ.  WHEN  PRINT-OUT-  OCCURS 
ALL  SECTIONS  ARE  AUTOMATICALLY  PRINTED! 

PROBLEM  NUMBER  (NOMNAL  ONLY) 

PAGE  NUMBER  < NOMNAL  ONLY) 

LINE  COUNT  t NOMNAL  ONLY) 


LINES  PER  PAGE  < NOMNAL  ONLY) 


OMEGA 
EPS 
SALC3) 
SLAT  (31 
SLON  (3) 
0NCN<3) 
MNCNT12) 
NST 


/CONST  / MODES  ERRAN,  SIMUL 

ROTATION  RATE  OF  EARTH 
OBLIQUITY  OF  EARTH 
ALTITUDES  OF  STATIONS 
LATITUDES  OF  STATIONS 
LONGITUOES  OF  STATIONS 

CONSTANTS  FROM  WHICH  DYNAMIC  NOISE  IS  COMPUTED 

MEASUREMENT  NOISE  CONSTANTS 

NUMBER  OF  STATIONS  TO  BE  USED  < MAXIMUM  3) 
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/C0NST2/  MODE*  ERRAN,  SIMUL 

UST 4 3)  DIRECTION  COSINE  ARRAYS  OF  THREE  REFERENCE  STARS 

VST< 3)  DIRECTION  COSINE  ARRAYS  OF  THREE  REFERENCE  STARS 

WST43)  DIRECTION  COSINE  ARRAYS  OF  THREE  REFERENCE  STARS 

FOP  OFF-DIAGONAL  ANNIHILATION  VALUE  FOR  POSITION 

EIGENVALUES 

FOV  OFF-OI AGONAL  ANNIHILATION  VALUE  FOR  VELOCITY 

EIGENVALUES 


/C0NST3/  MODE*  ERRAN,  SIMUL 


OELAXS 

TARGET  PLANET  SEMI-MAJOR  AXIS  FACTOR  USED  IN 
NUMERICAL  DIFFERENCING 

DELE  CC 

TARGET  PLANET  ECCENTRICITY  FACTOR  USEO  IN 
NUMERICAL  OIFF ERENCING 

DELI CL 

TARGET  PLANET  INCLINATION  FACTOR  USED  IN 
NUMERICAL  DIFFERENCING 

DELNOO 

TARGET  PLANET  LONGITUDE  OF  THE  ASCENDING  NOOE 
FACTOR  USED  IN  NUMERICAL  DIFFERENCING 

DELW 

TARGET  PLANET  ARGUMENT  OF  PERIAPSIS  FACTOR 
USED  IN  NUMERICAL  DIFFERENCING 

OELMA 

TARGET  PLANET  MEAN  ANOMALY  FACTOR  USED  IN 
NUMERICAL  OIFF  ERENCING 

DELMUS 

SUN  GRAVITATIONAL  CONSTANT  FACTOR  USED  IN 
NUMERICAL  DIFFERENCING 

DELMUP 

TARGET  PLANET  GRAVITATIONAL  CONSTANT 
FACTOR  USED  IN  NUMERICAL  DIFFERENCING 
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/DPNUM  / MODE  * NOMNAL 


i> 


ZERO 

THE 

NUMBER 

ZERO 

CO) 

TO 

NINE 

SIGNIFICANT 

FIGURES 

ONE 

THE 

NUMBER 

ONE 

(1) 

TO 

NINE 

SIGNIFICANT 

FIGURES 

TWO 

THE 

NUMBER 

TWO 

< 2) 

TO 

NINE 

SIGNIFICANT 

FIGURES 

THREE 

THE 

NUMBER 

THREE 

{ 3) 

TO 

NINE 

SIGNIFICANT 

FIGURES 

FOUR 

THE 

NUMBER 

FOUR 

t**> 

TO 

NINE 

SIGNIFICANT 

FIGURES 

FIVE 

THE 

NUMBER 

FIVE 

(5) 

TO 

NINE 

SIGNIFICANT 

FIGURES 

EIGHT 

THE 

NUMBER 

EIGHT 

c a » 

TO 

NINE 

SIGNIFICANT 

FIGURES 

TEN 

THE 

NUMBER 

TEN 

(10) 

TO 

NINE 

SIGNIFICANT 

FIGURES 

NINETY 

THE 

NUMBER 

NINETY  (90) 

TO  NINE  SIGNIFICANT 

FIGURES 

HALF 

THE 

NUM8ER 

ONE-HALF 

(1/2)  TO 

NINE  SIGNIFICANT 

FIGURES 
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/DPNUM  / MODE*  ERRAN,  SIMUL 


ZERO 

THE 

NUMBER 

ZERO 

(0) 

TO  NINE  SIGNIFICANT  FIGURES 

ONE 

THE 

NUMBER 

ONE 

U) 

TO  NINE  SIGNIFICANT  FIGURES 

TWO 

THE 

NUMBER 

TWO 

< 2 ) 

TO  NINE  SIGNIFICANT  FIGURES 

HALF 

THE  NUMBER 
FIGURES 

ONE  -HALF 

(1/2) 

TO  NINE  SIGNIFICANT 

THREE 

THE 

NUMBER 

THREE 

(3) 

TO  NINE  SIGNIFICANT  FIGURES 

EMI 

THE 

NUMBER 

l*£-i 

TO 

NINE 

SIGNIFICANT 

FIGURES 

EMZ 

THE 

NUMBER 

loE-2 

TO 

NINE 

SIGNIFICANT 

FIGURES 

EM3 

THE 

NUMBER 

l.E-3 

TO 

NINE 

SIGNIFICANT 

FIGURES 

EM4 

THE 

NUMBER 

i.E-4 

TO 

NINE 

SIGNIFICANT 

FIGURES 

EM5  . 

THE 

NUMBER 

l.E-5 

TO 

NINE 

SIGNIFICANT 

FIGURES 

EM6, 

THE 

NUMBER 

l.E-6 

TO 

NINE 

SIGNIFICANT 

FIGURES 

EM7 

THE 

NUMBER 

i oE-7 

TO 

NINE 

SIGNIFICANT 

FIGURES 

EMQ 

THE 

NUMBER 

l.E-8 

TO 

NINE 

SIGNIFICANT 

FIGURES 

EM9 

THE 

NUMBER 

i.E-9 

TO 

NINE 

SIGNIFICANT 

FIGURES 

EM50 

THE 

NUMBER 

l.E-50 

TO 

NINE 

SIGNIFICANT 

FIGURES 

TWOPI 

THE 

MATHEMATICAL 

CONSTANT 

2.*PI 

EM  13 

THE 

NUMBER 

i.E-13 

TO 

NINE 

SIGNIFICANT 

FIGURES 
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TEV(  501 

TPT2 (20) 

SIGRES 

SIGPRO 

SIGALP 

SIGBET 

NEV 

IEVNTC5Q) 

IHYP1 

IEIG 

NPE 

NGE 

ICDH3(10) 

NEV1 

NEV2 

NEV3 

NEV4 

NQE 


/EVENT  / MODE*  ERRAN,  SIMUL 

> mm  ^ mm  ********* m*m*m  ~ mm^mmm  ««««  m**m^  • mm  <oi*  ^ mm  ******  mm  mm* 

TIMES  OF  EVENTS 
PREDICTION  TIMES 
VARIANCE  OF  RESOLUTION  ERROR 
VARIANCE  OF  PROPORTIONALITY  ERROR 
VARIANCE  OF  ERROR  IN  POINTING  ANGLE  i 
VARIANCE  OF  ERROR  IN  POINTING  ANGLE  2 
NUMBER  OF  EVENTS 
CODES  OF  EVENTS 

HYPERELLIPSOIQ  CODE  USEO  TO  DETERMINE  IF 
K=l,  K=3,  OR  BOTH 

CODE  USEO  TO  DECIDE  IF  BOTH  POSITION  AND 
VELOCITY  EIGENVECTORS  ARE  REQUESTED 

NUMBER  OF  PREDICTION  EVENTS  HAVING  OCCURREO 

NUMBER  OF  GUIOANCE  EVENTS  HAVING  OCCURREO 

ARRAY  OF  CODES  WHICH  DETERMINE  WHICH 
EXECUTION  POLICIES  ARE  TO  BE  USED  IN  GUIOANCE 
EVENTS 

TGTAL  NUMBER  OF  EIGENVECTOR  EVENTS 

TOTAL  NUMBER  OF  PREDICTION  EVENTS 

TOTAL  NUMBER  OF  GUIOANCE  EVENTS 

TOTAL  NUMBER  OF  -COMCON-  EVENTS 

QUASI-LINEAR  FILTERING  EVENTS  HAVING  OCCURREO 
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IOPT7 

ORBIT  INSERTION  VARIABLE. 
EXISTING  PROGRAM 

NON-FUNCTIONAL  IN 

Neve 

ORBIT  INSERTION  VARIABLE. 
EXISTING  PROGRAM 

NON-FUNCTIONAL  IN 

NEV9 

ORBIT  INSERTION  VARIABLES. 
EXISTING  PROGRAM 

NON-FUNCTIONAL  IN 

NE  VI 0 

ORBIT  INSERTION  VARIABLES. 
EXISTING  PROGRAM 

NON-FUNCTIONAL  IN 

NEV11 

ORBIT  INSERTION  VARIABLES. 
EXISTING  PROGRAM 

NON-FUNCTIONAL  IN 

T 

XXIN (6)  STATE  VECTOR  TRANSFERRED  TO  EXCUT  OR  EXCUTS 

OIPX  JULIAN  DATE  TRANSFERRED  TO  EXCUT  OR  EXCUTS 

DELPXC3)  VELOCITY  CORRETION  TO  8£  MODELED  AS  AN  IMPULSE 

SERIES 

QK(6  >6)  EFFECTIVE  EXECUTION  COVARIANCE  MATRIX 

DUHmYQU)  ARRAY  OF  EXECUTION  ERROR  VARIANCES 

•INPX  IftPULSE  SERIES  CODE 

EXMEANC A)  ACTUAL  IMPULSIVE  EXECUTION  ERROR  MEANS 
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/GAINC  / MODE*  ERRAM 


PMIN(6,6>  POSITION/VELOCITY  COVARIANCE  BEFORE  MEASUREMENT 

USED  TO  COMPUTE  WLS  GAINS 

PSMINC12ji2)  SOLVE-FOR  PARAMETER  COVARIANCE  BEFORE  MEASUREMENT 

USED  TO  COMPUTE  WLS  GAINS 

CMIN (6f  12)  CORRELATION  BETWEEN  POSITION/VELOCITY  STATE  ANO 

SOLVE-FOR  PARAMETERS  BEFORE  MEASUREMENT  USED  TO 
COMPUTE  WLS  GAINS 

PPLU (6»  6)  POSITION/VELOCITY  COVARIANCE  AFTER  MEASUREMENT 

USED  TO  COMPUTE  WLS  GAINS 

PSPCU C12»  12)  SOLVE-FOR  PARAMETER  COVARIANCE  AfTER  MEASUREMENT 

USED  TO  COMPUTE  WLS  GAINS 

CPLU(6,12)  CORRELATION  BETWEEN  POSITION/VELOCITY  STATE  ANO 

SOLVE-FOR  PARAMETERS  AFTER  MEASUREMENT  USED  TO 
COMPUTE  WLS  GAINS 

RSAVE(6>  STATE  AT  TL AST 

TLAST  TIME  WHEN  MEASUREMENT  LAST  PROCESSED 


/GCA  / MODE*  ERRAN 


XIG<24>  IGNORE  PARAMETER  LABELS 

I AUGW (24)  IGNORE  PARAMETER  AUGMENTATION  VECTOR 

NDIM4  DIMENSION  OF  IGNORE  PARAMETER  STATE 

I GEN  =0,  PERFORM  NO  GENERALIZED  COVARIANCE  ANALYSIS 

=1,  PERFORM  GENERALIZED  COVARIANCE  ANALYSIS 
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/GENGD  / MOOEl  ERRAN 


EE (4 ) VECTOR  WITH  THE  FOLLOWING  ELEMENTS  1 

1 - ACTUAL  MEAN  OF  PROPORTIONALITY  ERROR 

2 - ACTUAL  MEAN  OF  RESOLUTION  ERROR 

i - ACTUAL  MEAN  OF  POINTING  ANGLE  ALPHA 
ERROR 

4 - ACTUAL  MEAN  OF  POINTING  ANGLE  BETA 
ERROR 

EEE<4>  VECTOR  CONTAINING  VARIANCES  CORRESPONDING  TO 

THE  -EE-  VECTOR  MEANS 


/GENGD1/  MODE*  ERRAN 


GPG(6»6)  ACTUAL  POSITION/VELOCITY  CONTROL  SECOND  MOMENT 

MATRIX 

GCXXSG( 6 , 12)  ACTUAL  CONTROL  SECOND  MOMENT  MATRIX  OF  POSITION/ 

VELOCITY  STATE  ANO  SOLVE-FOR  PARAMETERS 

GCXUG(6,8)  ACTUAL?  CONTROL  SECOND  MOMENT  MATRIX  OF  POSITION/ 

VELOCITY  STATE  AND  DYNAMIC  CONSIDER  PARAMETERS 


GCXVG<6,15)  ACTUAL  CONTROL  SECOND  MOMENT  MATRIX  OF  POSITION/ 

VELOCITY  STATE  AND  MEASUREMENT  CONSIOER 
PARAMETERS 

GCXWGC6,12>  ACTUAL  CONTROL  SECOND  MOMENT  MATRIX  OF  POSITION/ 

VELOCITY  STATE  ANO  IGNORE  PARAMETERS 

GPSG  (12,12)  ACTUAL  SOLVE-FOR  PARAMETER  CONTROL  SECOND  MOMENT 

MATRIX 

GCXSUG<  12,8)  ACTUAL  CONTROL  SECOND  MOMENT  MATRIX  OF  SOLVE-FOR 

PARAMETERS  ANO  OYNAMIC  CONSIDER  PARAMETERS 

GCXSVG< 12,15)  ACTUAL  CONTROL  SECOND  MOMENT  MATRIX  OF  SOLVE-FOR 

PARAMETERS  AND  MEASUREMENT  CONSIOER  PARAMETERS 

GCXSWG(12,12)  ACTUAL  CONTROL  SECOND  MOMENT  MATRIX  OF  SOLVE-FOR 

PARAMETERS  AND  IGNORE  PARAMETERS 
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/GENRL  / MODE*  ERRAN 


GP<6,6) 
GGXXS(6 *12) 

GCXU (6»  8) 

GCXV (6,15) 

GPS<12,12) 

GCXSU(12,8i 

GCXSV(12,15) 

GCXSW (12  ? 12) 

JPR<4,4> 

TXW16?12) 

AN(4,12) 

GCUV (8 » 15) 

GCUH(8, 12) 


ACTUAL  POSIT 10 N/VELQCI TY  SECOND  MOMENT  MATRIX 

i 

ACTUAL  SECOND  MOMENT  MATRIX  OF  POSITION/VELOCITY 
STATE  AND  SOLVE-FOR  PARAMETERS 

ACTUAL  SECOND  MOMENT  MATRIX  OF  POSITION/VELOCITY 
STATE  AND  OYNAMIC  CONSIDER  PARAMETERS 

ACTUAL  SECOND  MOMENT  MATRIX  OF  POSITION/VELOCITY 
STATE  AND  MEASUREMENT  CONSIDER  PARAMETERS 

ACTUAL  SOLVE-FOR  PARAMETER  SECOND  MOMENT  MATRIX 

.ACTUAL  SECOND  MOMENT  MATRIX  OF  SOLVE-FOR  ANO 
DYNAMIC  CONSIDER  PARAMETERS 

ACTUAL  SECONO  MOMENT  MATRIX  OF  SOLVE-FOR  ANO 
MEASUREMENT  CONSIDER  PARAMETERS 

ACTUAL  SECOND  MOMENT  MATRIX  OF  SOLVE-FOR  ANO 
IGNORE  PARAMETERS 

ACTUAL  MEASUREMENT  RESIDUAL  SECOND  MOMENT  MATRIX 

STATE  TRANSITION  MATRIX- PART IT  ION  ASSOCIATED  WITH 
IGNORE  PARAMETERS 

OBSERVATION  MATRIX  ASSOCIATED  WITH  IGNORE 
PARAfCTER  STATE 

ACTUAL  SECOND  MOMENT  MATRIX  OF  DYNAMIC  CONSIOER 
AND  MEASUREMENT  CONSIOER  PARAMETERS 

ACTUAL  SECONO  MOMENT  MATRIX  OF  DYNAMIC  CONSIOER 
AND  IGNORE  PARAMETERS 
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GCVW  <15, 12) 


ACTUAL  SECOND  MOMENT  MATRIX  OF  MEASUREMENT 
CONJS.IOER  AND  LG  MORE  PARAMET-ERS 


GU(8,8I  ACTUAL  DYNAMIC  CONSIDER  PARAMETER  SECOND  MOMENT 

matrix 

GV(15,15)  , ACTUAL  MEASUREMENT  CONSIDER  PARAMETER  SECONO 

MOMENT  MATRIX 

GW (12 *12)  ACTUAL  IGNORE  PARAMETER  SECONO  MOMENT  MATRIX 

GDNCN(3>  CONSTANTS  FROM  WHICH  ACTUAL  DYNAMIC  NOISE  IS 

COMPUTED 

GMNCN(12)  ACTUAL  MEASUREMENT  NOISE  VARIANCES 

EXI( 6)  ACTUAL  MEANS  OF  INITIAL  POSITION/VELOCITY 

PARAMETER  DEVIATIONS 

EXSI  (12)  ACTUAL  MEANS  OF  INITIAL  SOLVE-FOR  PARAMETER 

DEVIATIONS 

EU  (8)  ACTUAL  MEANS  OF  INITIAL  DYNAMIC  CONSIDER 

PARAMETER  DEVIATIONS 

EV (15)  - ACTUAL  MEANS  OF  INITIAL  MEASUREMENT  CONSIDER 

PARAMETER  DEVIATIONS 

£W(12)  ACTUAL  MEANS  OF  INITIAL  IGNORE 

PARAMETER  DEVIATIONS 

QPR(6,6)  ACTUAL  DYNAMIC  NOISE  SECONO  MOMENT  MATRIX 

RPR<4,4>  ACTUAL  MEASUREMENT  NOISE  SECONO  MOMENT  MATRIX 
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GCXH<6» 12) 

EXT ( 6) 
EXSTC12) 

EXTP (6) 
EXSTPU2) 
GCXWP (6 i 12) 

GCXSWPC 12,12) 

EMRESI4) 

IGOMF 

IGMNF 


ACTUAL  SECOND  MOMENT  MATRIX  OF  POSTTION/VELOCITY 
STATE  AND  IGNORE  PARAMETERS 

ACTUAL  MEANS  OF  UPDATED  ESTIMATION  ERRORS  FOR 
POSITION/VELOCITY  STATE 

ACTUAL  MEANS  OF  UPOATEO  ESTIMATION  ERRORS  FOR 
SOLVE-FOR  PARAMETERS 

ACTUAL  MEANS  OF  PROPAGATED  ESTIMATION  ERRORS  FOR 
POSITION/VELOCITY  STATE 

ACTUAL  MEANS  OF  PROPAGATEO  ESTIMATION  ERRORS  FOR 
SOLVE-FOR  PARAMETERS 

ACTUAL  SECONO  MOMENT  MATRIX  OF  POSITION/VELOCITY 
STATE  AND  IGNORE  PARAMETERS  PRIOR  TO  PROCESSING 
A MEASUREMENT 

ACTUAL  SECONO  MOMENT  MATRIX  OF  SOLVE-FOR  ANO 
IGNORE  PARAMETERS  PRIOR  TO  PROCESSING  A 
MEASUREMENT 

ACTUAL  MEASUREMENT  RESIOUAL  MEAN 
ACTUAL  OYNAMIC  NOISE  FLAG 
ACTUAL  MEASUREMENT  NOISE“FLAG 


/GUI  / MQD.E*  ERRAN,  SIHUL 


PG<6,6J  POSITION/VELOCITY  CONTROL  COVARIANCE 

CXXSG<6,12>  CONTROL  CORRELATION  BETWEEN  POSITION/VELOCITY 

STATE  ANO  SOLVE-FOR  PARAMETERS 

CXUG(6,8)  CONTROL  CORRELATION  8ETWEEN  PO SITI ON/ VELOCI TY 

STATE  ANO  OYNAMIC  CONSIDER  PARAMETERS 

CXVG(6,15)  CONTROL  CORRELATION  BETWEEN  POSITI ON/VELOCITY 

STATE  AND  MEASUREMENT  CONSIDER  PARAMETERS 

PSG( 12 1 12)  SOLVE-FOR  PARAMETER  CONTROL  COVARIANCE 

CXSUG(12  , 8)  CONTROL  CORRELATION  BETWEEN  SOLVE-FOR 

PARAMETERS  AND  DYNAMIC  CONSIDER  PARAMETERS 

CXSVG(12,i5»  CONTROL  CORRELATION  BETWEEN  SOLVE-FOR 

PARAMETERS  AND  MEASUREMENT  CONSIDER  PARAMETERS 

XG (6 > POSITION/VELOCITY  STATE  AT  MOST  RECENT 

GUIDANCE  EVENT 

TG  TRAJECTORY  TIME  AT  MOST  RECENT  GUIOANCE  EVENT 

EM  (2  >6}  VARIATION  MATRIX  RELATING  POSIT  ION/ VELOCITY 

DEVIATIONS  TO  B.T  AND  B.R  DEVIATIONS 


/GX XL  / MODES  ERRAN 


GPLC 34)  GUIDANCE  EVENT  POLICY  LABEL  ARRAY 
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/IMPTAR/  MOOES  NOMNAL 


DCP  ACTUAL  TARGET  VALUE  OF  PROBE  SITE  DECLINATION  IN 

OEG  RELATIVE  TO  PROBE-SPHERE  FRAME  (IT  MAT  DIFFER 
FROM  INPUT  VALUE  IN  DTAR  IF  INPUT  TARGET  SITE 
CAN  NOT  BE  ACHEIVEO) 

DIN  ACTUAL  TARGET  VALUE  OF  INCLINATION  IN  OEG  AT 

.CLOSEST  APPROACH  (IT  MAY  DIFFER  FROM  INPUT  VALUE 
IN  DTAR  IF  LATTER  CAN  NOT  BE  ACIEVED) 


E CSS (3, 3) 


TRANSFORMATION  MATRIX  FROM  PLANETOCENTRIC 
ECLIPTIC  TO  SUBSOLAR  COORDINATES 


RAP  ACTUAL  TARGET  VALUE  OF  PROBE  SITE  RIGHT- 

ASCENSION  IN  OEG  RELATIVE  TO  PROBE-SPHERE  FRAME 
(IT  MAY  DIFFER  FROM  INPUT  VALUE  IN  DTAR  IF 
INPUT  TARGET  SITE  CAN  NOT  BE  ACHIEVED) 


>• 

ANG 


/IMPTAR/  MODE  ERRAN,  SIMUL 


TARGET  INCLINATION  CONVERTED  FROM  INPUT  FORMAT-  TO 
VALUE  BETWEEN  0 ANO  18  0 DEGREES  AND  SATISFYING 
APPROACH  ASYMPTOTE  CONSTRAINT 


/JULY / MODE*  ERRANN 


ALPHA  ELEVATION  ANGLE  OF  S/C  FROM  STATION 

BETA  AZIMUTH  OF  S/C  FROM  STATION 
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/LUNART/  MOOE  NOMNAL 


QTAR(3) 

PC0N(3» 
TT0LC3J 
BOON (3) 
RI  (6 ) 
RMQ(6> 

R3IC  6) 
RMEI6) 

OECLIN 

OT  AR (3) 

TCA 

RCA 

SMA 

CAI 

RPE 

TSI 

EMU 


TARGET  VALUES  OF  SMA,  B.T,  AND  B.R  IN  LUNAR  TAR- 
GETING 

PERTURBATIONS  IN  CONTROLS  < ALPHA, OELTA, THET A) 

ALLOWABLE  TOLERANCES  IN  SMA,  B.T,  B.R 

MAXIMUH  STEP  SIZES  OF  CONTROLS 

GEOCENTRIC  STATE  OF  S/C  AT  LUNAR  SOI 

GEOCENTRIC  STATE  OF  CENTER  OF  MOON  AT  TSI  IN 
EQUATORIAL  COORDINATES 

SELENOCENTRIC  STATE  OF  S/C  AT  LUNAR  SOI 

GEOCENTRIC  STATE  OF  CENTER  OF  MOON  IN  ECLIPTIC 
COORDINATES  AT  TSI 

DECLINATION  OF  APPROACH  ASYMPTOTE  WITH  RESPECT 
TO  LUNAR  EQUATOR 

DESIRED  VALUES  OF  SMA,  RCA,  AND  INC 
J.O*  OF  TIME  AT  LUNAR  CLOSEST  APPROACH  (DESIREO) 
RADIUS  OF  CLOSEST  APPROACH  TO  MOON  (DESIRED) 
SEMI-MAJOR  AXIS  OF  LUNAR  HYPERBOLA  (DESIRED) 
DESIRED  CLOSEST  APPROACH  EQUATORIAL  INCLINATION 
RADIUS  OF  EARTH  PARKING  ORBIT 
PROJECTED  J.D.  AT  SOI  INTERSECTION 
GRAVITATIONAL  CONSTANT  OF  EARTH  (KM3/SEC2) 
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TSPH 


RADIUS  OF  LUNAR  SOI  (KM) 


EQLQ(3,3>  TRANSFORMATION  MATRIX  FROM  EARTH-EQUATORIAL  TO 

LUNAR  EQUATORIAL  COORDINATES 

I TAG  FLAG  SPECIFYING  STAGE  OF  TARGETING 

-1  IN  SMA  TARGETING 
= G IN  SMA,  INC,  RCA  TARGETING 


/MEAS  / MODE*  ERRAN,  SIMUL 


TMN<  500  > 
MCODE  (5  0 0 ) 
NMN 
MCNTR 


TIMES  OF  MEASUREMENTS 

ARRAY  OF  MEASUREMENT  COOF.S 

TOTAL  NUMBER  OF  MEASUREMENTS 

NUMBER  OF  MEASUREMENTS  HAVING  OCCURREO 


/MISC  / MODE*  ERRAN,  SIMUL 


I 


ACC 

ACCURACY  FIGURE  USEO 

IN 

VIRTUAL  HASS  PROGRAM 

FACP 

POSITION  FACTOR  USED 

IN 

NUMERICAL  DIFFERENCING 

FACV 

VELOCITY  FACTOR  USED 

IN 

NUMERICAL  OIFFE RENCING 

BIA(i2) 

MEASUREMENT  BIASES 

IDNF 

DYNAMIC  NOISE  FLAG 

ICOOR 

STATE  VECTOR  CODE  WHICH  DETERMINES  IN  WHICH 
COORDINATE  SYSTEM  THE  VECTOR  IS  READ  IN 

ITR 

MODE  FLAG 

IMNF 

MEASUREMENT  NOISE  FLAG 

ISP2 

SPHERE  OF  INFLUENCE 

FLAG 
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ALFA 

OELT 

XPHI 

A0W 

YYL 

XEEl 5) 

QT(3,38 

ADV( 3) 

OH 

OA 

DL 

DO 

OP 


/MNPR  / MODE*  ERRAN,  SIMUL 

RIGHT  ASCENSION  OF  SPIN  AXIS 
OECLINATION  OF  SPIN  AXIS 
ROLL  RELEASE  ANGLE  CIN  RADIANS) 

MAGNITUDE  OF  SPIN  AXIS 
BOOM  LENGTH 

PROBE  RELEASE  EXECUTION  ERROR  UNCERTAINTIES 
MINI-PROBE  EXECUTION  ERROR  CO\/ARIA NCE  MATRIX 
ACTUAL  MINI-PROBE  RELEASE  EXECUTION  ERRORS 
ACTUAL  SPIN-RATE  EXECUTION  ERROR 

ACTUAL  SPIN-AXIS  RIGHT  ASCENSION  EXECUTION  ERROR 
ACTUAL  BOOM  LENGTH  ERROR 

ACTUAL  SPIN-AXIS  DECLINATION  EXECUTION  ERROR 
ACTUAL  RELEASE  ANGLE  EXECUTION  ERROR 


/NAME  / MOOE3  ERRAN,  SIMUL 


EVNM(il) 

MNNA ME ( 12 ,3) 
CMPNM<30) 


EVENT  NAME 
MEASUREMENT  NAME 
COMPONENT  NAME 
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/OVER  / MODE*  SIMUl 

RF <6 ) FINAL  TARGETEO  NOMINAL  STATE  VECTOR 

RFK6)  FINAL  MOST  RECENT  NOMINAL  STATE  VECTOR 


/GVER1  / MODE*  SIMUL 

RI(6I  INITIAL  TARGETED  NOMINAL  STATE  VECTOR 

TEVN  TIME  OF  CURRENT  EVENT 

RI1C6)  INITIAL  MOST  RECENT  NOMINAL  STATE  VECTOR  ' 

ICODE  EVENT  CODE 

NAFC  NON-FUNCTIONAL  ADAPTIVE  FILTER  CODE 

NR  NUMBER  OF  ROWS  IN  THE  OBSERVATION  MATRIX 
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/OVERE 

/ MOOE*  ERRAN 

RF  (6 ) 

FINAL  TARGETED 

NOMINAL  STATE 

/OVERL  / MOOE 

ERRAN , SIMUL 

□ TIME 

TIME  INTERVAL 

BETWEEN  ORBITAL  INSERTION  DECISION 

AND  EXECUTION 

/OVERR  / MODE  ERRAN 


RI<6> 

TEVN 

NOGEN 

STATE  VECTOR  AT  EVENT  TIME 

EVENT  TIME 

=1  CALL  GENGIO 
= G DO  NOT  CALL  GENGID 

/OVERX  / MOOE  ERRAN,  SIMUL 

IX 

NONLINEAR  GUIDANCE  CODE 

JX 

GUIDANCE  EVENT  COUNTER 

XINC6) 

STATE  VECTOR  TRANSFERRED  TO  NONLIN 

/OVERZ  / MODE  ERRAN,  SIMUL 

FINAL  TARGETEO  STATE  VECTOR 

IGP 

MIDCOURSE  GUIDANCE  POLICY  CODE 

GA  (3  ,69 

GUIDANCE  MATRIX 
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/PBLK  / MOOE  ERRAN,  SIMUL 


A(2 ,3» 

XMUS  (2) 
EXEC  <3, 3) 
CR 
POI 

XLAH(2,2) 

XLAMI(2 »2) 

0 VRB  ( 3) 

□VUP (31 

I 

PSTAR 

DVNC  3) 

OELV  (3)10) 
* IIGP 

1 END 

I8IAS 

IOENS 


FTA  IMPACT  PLANE  TRANSFORMATION  MATRIX 
NOMINAL  IMPACT  PLANE  TARGET  STATE 
EXECUTION  ERROR  COVARIANCE  MATRIX 
CAPTURE  RAOIUS  OF  TARGET  PLANET 
PROBABILITY  OF  IMPACT 

PROJECTION  OF  TARGET  CONDITION  COVARIANCE  MATRIX 
INTO  THE  IMPACT  PLANE 

INVERSE  OF  XLAM(2,2> 

VELOCITY  CORRECTION  REQUIRED  TO  REMOVE  AIMPQINT 
BIAS 

UPDATE  VELOCITY  CORRECTION 

NOMINAL  PROBABILITY  DENSITY  FUNCTION  EVALUATED  AT 
TARGET  PLANET  CENTER 

COMMANDED  VELOCITY  CORRECTION  TRANSFERRED  TO 
BIAIM 

ARRAY  OF  EXTERNALLY-SUPPLIEO  VELOCITY  CHANGES 

MIDCOURSE  GUIDANCE  POLICY  CODE 

'=2  FOR-  ’2  VARIABLE  B-PLANE 
= 3 FOR  3 VARIABLE  B-PLANE 

BIASED  AIMPOINT  GUIDANCE  EVENT  FLAG 
= 0 AIMPOINT  NOT  BIASED 
= 1 AIMPOINT  BIASED 

PROBABILITY  DENSITY  FUNCTION  CODE.  NON-FUNCTIONAL 
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/PR BE  / MOOES  ERRAN",  SIMUL 


PMNt 12) 

T 6 
17 
RPS 

SMN< 12) 
TIMPCT 

TMNK1QQ) 

T MN2 (10  0 ) • 

IUTC 

NMNP  <21 

MCODEK  100) 

MCOD£2(±OQ) 

NENTl 

NENT2 

MCNTRP 


MEASUREMENT  NOISE  VARIANCES  USED  FOR  MAIN  PROBE 
MAIN  PROBE  RELEASE  EVENT  TIME 
MINI-PROBE  RELEASE  EVENT  TIME 
RADIUS  OF-  PROBE  SPHERE 

MEASUREMENT  NOISE  VARIANCES  USED  FOR  MINI-PROBES 

APPROXIMATE  TRAJECTORY  TIME  OF  IMPACT  FROM  NOMNAL 
PROGRAM 

MAIN  PROBE  MEASUREMENT  SCHEDULE  TIMES 

MINI-PROBE  MEASUREMENT  SCHEDULE  TIMES 

= 1 TARGET  CONTROLS  DATA  SUPPLIED  BY  USER 
=0  COMPUTE  TARGET  CONTROLS 

NUMBER  OF  MEASUREMENTS  TO  BE  PROCESSED 

(1) =  MAIN  PROBE 

( 2)  = MINI-PROBE 

ARRAY  OF  MAIN  PROBE  MEASUREMENT  CODES 

ARRAY  OF  MINI-PROBE  MEASUREMENT  CODES 

NUMBER  OF  CAROS  IN  MEASUREMENT  INPUT  FOR  MAIN  PRB 

NUMBER  OF  CARDS  .IN  MEASUREMENT  INPUT  FOR  MINI-PRB 

MEASUREMENT  COUNTER  FOR  PROBE  RELEASE 
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/PROBD  / MODE!  NOMNAL 


RPSP  RADIUS  OF  PROBE  IMPACT  SPHERE  IN  KM 

IPCSP  FLAG  INDICATING  TYPE  OF  PLANETOCENTRIC 

COORDINATE  SYSTEM  FOR  SPECIFYING  PROBE  IMPACT 
SITES 

= 0 EQUATORIAL 
= 1 SUBSOLAR  ORBIT-PLANE 


/PRT  / MODE  NOMNAL 

MQNTH(12)  NAMES  OF  MONTHS 

PLANET ( 11)  NAMES  OF  GRAVITATIONAL  80DIES 


/PRT  / MOOEX  ERRAN,  SIMUL 


PLANET (11) 


NAMES  OF  PLANETS 


/PULS  / MODE  NOMNAL 


PULMAG 

PULMAS 

OUR 

DTI 

DVI<3) 

0VF(3> 

PULT 

RK(2,3) 

VK(2,3J 

FS(2,5) 

GS(2,4> 

GGC3) 

PSIGS 

PSIGK 

PSIGA 

PSIGB 

NPUL 


THRUST  MAGNITUDE  OF  PULSING  ENGINE 

NOMINAL  MASS  OF  SPACECRAFT  DURING  PULSING  ARC 

DURATION  OF  SINGLE  PULSE 

TIME  INTERVAL  (DAYS)  BETWEEN  SUCCESSIVE  PULSES 

VELOCITY  INCREMENT  ADDED  ON  TYPICAL  PULSE 

VELOCITY  INCREMENT  ADDED  ON  FINAL  PULSE 

TOTAL  TIME  INTERVAL  OF  PULSING  ARC 

POSITION  VECTORS  OF  LAUNCH  AND  TARGET  PLANETS 
AT  IMPULSIVE  TIME  (MIDPOINT  OF  PULSING  ARC) 

VELOCITY  VECTORS  OF  LAUNCH  AND  TARGET  PLANETS 
AT  IMPULSIVE  TIME  (MIDPOINT  OF  PULSING  ARC) 

F -SERIES  COEFFICIENTS  OF  LAUNCH  AND  TARGET  BODIES 

G-SERIES  COEFFICIENTS  OF  LAUNCH  AND  TARGET  BODIES 

GRAVITATIONAL  CONSTANTS  OF  SUN,  LAUNCH,  AND  TAR- 
GET BODIES 

PULSING  ARC  ERROR  MODEL  RESOLUTION  VARIANCE 

PULSING  ARC  ERROR  MODEL  PROPORTION  VARIANCE 

PULSING  ARC  ERROR  MODEL  POINTING  ANGLE  A 
VARIANCE 

PULSING  ARC  ERROR  MGOEL  POINTING  ANGLE  B 
VARIANCE 

NUMBER  OF  PULSES  IN  PULSING  ARC 
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✓ SAVVAL/  MODE  ERRAN,  SIMUL 


X80T 

ORIGINAL 

VALUE 

OF 

B.T 

IN 

NONLINEAR 

GUIOANCE 

XBDR 

ORIGINAL 

VALUE 

OF 

B.R 

IN 

NONLINEAR 

GUIDANCE 

XOSI 

ORIGINAL 

VALUE 

OF 

TSI 

IN 

NONLINEAR 

GUIOANCE 

XRSK3) 

ORIGINAL 

VALUE 

OF 

RSI 

IN 

NONLINEAR 

GUIOANCE 

XVSI  (3) 

ORIGINAL 

value 

OF 

VSI 

IN 

NONLINEAR 

GUIOANCE 

XRCl  6) 

ORIGINAL 

VALUE 

OF 

RC 

IN 

NONLINEAR 

GUIDANCE 

XOC 

ORIGINAL 

VALUE 

OF 

DC 

IN 

NONLINEAR 

GUIOANCE 

/SIMCNT / MOOES  SIMUL 


OMUSB 

BIAS 

IN 

GRAVITATIONAL  CONSTANT 

OF  SUN 

OMUPB 

BIAS 

IN 

GRAVITATIONAL  CONSTANT 

OF  TARGET 

PLANET 

, 

DAB 

BIAS 

IN 

SEMI-MAJOR  AXIS  OF  TARGET  PLANET 

0E8 

BIAS 

IN 

ECCENTRICITY 

OF  TARGET 

PLANET 

DIB 

BIAS 

IN 

INCLINATION 

OF  TARGET 

PLANET 

ONOB 

BIAS 

IN 

LONGITUDE  OF 

ASCENDING 

NODE 

OMB 

BIAS 

IN 

ARGUMENT  OF 

PERIAPSIS 

OMAB 

BIAS 

IN 

MEAN  ANOMALY 

TTIM1 

FIRST  TIME  USED  FOR 

UNMOOELLEO 

ACCELERATION 

TTIM2 

SECOND 

TIME  USED  FOR 

UNMODELLEO  ACCELERATION 
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UNMAC ( 3 ,3) 
SLB(  9) 
AVARMU2) 
ARES ( 20  ) 
APRO  (20  ) 
AALP (20 ) 
ABET (201 
IAMNF 


UNMQDELLEO  ACCELERATION 
BIASES  IN  STATION  LOCATION  CONSTANTS 
VARIANCE  OF  ACTUAL  MEASUREMENT  NOISE 
ACTUAL  RESOLUTION  ERROR 
ACTUAL  PROPORTIONALITY  ERROR 
ACTUAL  ERROR  IN  POINTING  ANGLE  i 
ACTUAL  ERROR  IN  POINTING  ANGLE  2 
ACTUAL  MEASUREMENT  NOISE  FLAG 
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/SIM1  / MOOEI  SIMUL 


X Il(  61 

XF1C6) 

A0£VX{6) 
A0EVXS(24) 
EDEVX(6> 
EDEVXSC24) 
W ( 6) 

ZI  (6) 

ZFI6) 

ANOIS (4> 
RES  143 
EY  (4) 

AY  (4) 

AR(4f 4) 
AOEVX8t6) 

ADEVSBC241 

AYMEYC4) 

EDEVXM(6) 

EDEVSMI24) 


INITIAL  STATE  VECTOR  OF  MOST  RECENT  NOMINAL 
TRAJECTORY 

FINAL  STATE  VECTOR  OF  MOST  RECENT  NOMINAL 
TRAJECTORY 

ACTUAL  OEVI  ATI  ON  IN  THE  STATE  VECTOR 
ACTUAL  DEVIATION  IN  SOLVE-FOR  PARAMETERS 
ESTIMATED  DEVIATION  IN  THE  STATE  VECTOR 
ESTIMATED  DEVIATION  IN  SOLVE-FOR  PARAMETERS 
ACTUAL  DYNAMIC  NOISE 
INITIAL  ACTUAL  STATE  VECTOR 

FINAL  ACTUAL  STATE  VECTOR  AFTER  ADDING  EFFECT  OF 
UNMODELED  ACCELERATION 

ACTUAL  WHITE  NOISE 

RESIDUAL 

ESTIMATED  MEASUREMENT 
• ACTUAL  MEASUREMENT 
ACTUAL  MEASUREMENT  NOISE 

ACTUAL  DEVIATION  IN  STATE  VECTOR  AT  BEGINNING 
OF  TRAJECTORY 

ACTUAL  DEVIATION  IN  SOLVE-FOR  PARAMETERS  AT 
BEGINNING  OF  TRAJECTORY 

ACTUAL  MEASUREMENT  MINUS  ESTIMATED  MEASUREMENT 

ESTIMATED  DEVIATION  IN  THE  STATE  VECTOR 
IFOR  AO  APT  I VE  FILTERING) 

ESTIMATED  DEVIATION  IN  SOLVE-FOR  PARAMETERS 
{FOR  ADAPTIVE  FILTERING) 
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NBK111 

ACC1 

NflODi 


ARRAY  OF  PLANET  COOES  IN  ACTUAL  TRAJECTORY 
ACCURACY  USED  IN  ACTUAL  TRAJECTORY 
NUMBER  OF  BOOIES  IN  ACTUAL  TRAJECTORY 


/SOIVMP/  MODE*  NOMNAL,  ERRAN,  SIMUL 


OCIMP  ' DECLINATION  OF  VEHICLE  IN  OEG  RELATIVE  TO 

P LA NET 0 CENTRIC  PROSE-SPHERE  FRAME  AT  IMPACT 

J 

0 JULIAN  DATE  OF  IMPACT  WITH  SPHERE  OF  INTEREST 

ON  OSCULATING  PLANETOCENTRIC  CONIC 

OEPOC  JULIAN  DATE  EPOCH  1900  OF  IMPACT  WITH  SPHERE  OF 

INTEREST  ON  OSCULATING  PLANETOCENTRIC  CONIC 

IP  INDEX  IDENTIFYING  IMPACTED  PLANET 

RAIMP  RIGHT  ASCENSION  OF  VEHICLE  IN  DEG  RELATIVE  TO 

PLANETOCENTRIC  PROBE-SPHERE  FRAME  AT  IMPACT 
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/SIM  / MOOES  ERRAN,  SIMUL 


P(b»6)  PQSITIQN/VELOCITY  COVARIANCE 

CXXS(6,12»  CORRELATION  BETWEEN  POSITION/VELOCITY  STATE 

AND  SOLVE-FOR  PARAMETERS 

CXU<6,8)  CORRELATION  BETWEEN  POSITION/VELOCITY  STATE 

ANO  DYNAMIC  CONSIDER  PARAMETERS 

CXV<6,15)  CORRELATION  BETWEEN  POSITION/VELOCITY  STATE 

AND  MEASUREMENT  CONSIDER  PARAMETERS 

PSC12,12)  SOLVE-FOR  PARAMETER  COVARIANCE 

CXSU<12,8)  CORRELATION  BETWEEN  SOLVE-FOR  PARAMETERS 

AND  DYNAMIC  CONSIDER  PARAMETERS 

CXSV (12*15)  CORRELATION  BETWEEN  SOLVE-FOR  PARAMETERS 

AND  MEASUREMENT  CONSIOER  PARAMETERS 

' UO  (8 » 8)  DYNAMIC  CONSIDER  PARAMETER  COVARIANCE  MATRIX 
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VO (15,15)  MEASUREMENT  CONSIOER  PARAMETER  COVARIANCE 

MATRIX 

NOTE  IF  THE  ENTIRE  COVARIANCE  MATRIX  WERE  ASSEMBLED  FROM  THE 
GIVEN  PARTITIONS  THE  RESULTANT  MATRIX  WOULD  BE  P(4l,41> 
WITH  THE  SYMMETRIC  STRUCTURE- 


P ( 41 , 41 > = 


P ( 6 , 6)  CXXSi  6,12)  * CXU  (6, 0 ) CXV(6,15) 

PS (12,12 ) CXSU  (12,8)  CXSV(12,15) 

U0(8,a>  CUV(8,15) 

VO (15 ,15) 


PHI( 6,6 ) POS ITION/VELjOC  ITY  STATE  TRANSITION  MATRIX 

TXXS  (6,  12)  STATE  TRANSITION  MATRIX  PARTITION  ASSOCIATED  WITH 

SOLVE-FOR  PARAMETERS 

TXU(6,8>  STATE  TRANSITION  MATRIX  PARTITION  ASSOCIATED  WITH 

DYNAHI9  CONSIDER  PARAMETERS 

Q(6,6)  DYNAMIC  NOISE  COVARIANCE  MATRIX 

R( 4, 4)  MEASUREMENT  NOISE  COVARIANCE  MATRIX 

AK (6 ,4)  KALMAN  GAIN  CONSTANT  FOR  POSIT  ION/ VELOCITY 

STATE 

S(12,4)  KALMAN  GAIN  CONSTANT  FOR  SOLVE-FOR 

PARAMETERS 

H (4, 6)  OBSERVATION  MATRIX  RELATING  OBSERVABLES  TO 

POSITION/VELOCITY  STATE 

AM (4,12)  OBSERVATION  MATRIX  RELATING  OBSERVABLES 

TO  SOLVE-FOR  PARAMETER  STATE 

G<4,8)  OBSERVATION  MATRIX  RELATING  OBSERVABLES 

TO  DYNAMIC  CONSIOER  PARAMETER  STATE 
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AL(i»,15) 

HpHim,**) 

PPibtb) 

GXXSP(6,12) 

CXUP (6«  6) 

CXVP<6» 15) 

PSP(l2»i2) 

CXSUP(12,8) 

CXSVP(12,15) 


OBSERVATION  MATRIX  RELATING  OBSERVABLES 
TO  MEASUREMENT  CONSIDER  PARAMETER  STATE 

NON-FUNCTIONAL  IN  PRESENT  ERROR  ANALYSIS 
PROGRAM 

POSITION/VELOCITY  COVARIANCE  MATRIX 
PRIOR  TO  PROCESSING  A MEASUREMENT 

CORRELATION  BETWEEN  POSITION/VELOCITY 
STATE  ANO  SOLVE-FOR  PARAMETERS  PRIOR  TO 
PROCESSING  A MEASUREMENT 

CORRELATION  BETWEEN  POSITION/VELOCITY  STATE 
AND  DYNAMIC  CONSIDER  PARAMETERS  PRIOR  TO 
PROCESSING  A MEASUREMENT 

CORRELATION  BETWEEN  POSITION/VELOCITY  STATE 
ANO  MEASUREMENT  CONSIDER  PARAMETERS  PRIOR 
TO  PROCESSING  A MEASUREMENT 

SOLVE-FOR  PARMETER  COVARIANCE  MATRIX 
PRIOR  TO  PROCESSING  A MEASUREMENT 

CORRELATION  BETWEEN  SOLVE-FOR  PARAMETERS 
ANO  DYNAMIC  CONSIDER  PARAMETERS  PRIOR  TO 
PROCESSING  A MEASUREMENT 

CORRELATION  BETWEEN  SOLVE-FOR  PARAMETERS  AND 
MEASUREMENT  CONSIDER  PARAMETERS  PRIOR  TO 
PROCESSING  A MEASUREMENT 


57 


/STMG  / MODE*  ERR AM 


- 

I&AIN 

•1*  USE 
= 2,  USE 

GAIN1 

GAIN2 

SUBROUTINE 

SUBROUTINE 

/STVEC  / 

MODE* 

ERRAN,  SIM'JL 

XI<&>  INITIAL  VEHICLE  STATE  VECTOR  OF  ORIGINAL  NOMINAL 

XF (6 ) FINAL  VEHICLE  STATE  VECTOR  OF  ORIGINAL  NOMINAL 

X0  (6 ) BEGINNING  ORIGINAL  NOMINAL  VEHICLE  STATE  VECTOR 

NDIM1  DIMENSION  OF  SOLVE-FOR  PARAMETER  STATE 

NDIM2  DIMENSION  OF  DYNAMIC  CONSIDER  STATE 

NDIM3  DIMENSION  OF  MEASUREMENT  CONSIDER  PARAMETER  STATE 

IAU&INt  24)  INPUT  AUGMENTATION  VECTOR  OF  QNE*S  AND  ZEROES 

IAUG  (24)  AUGMENTATION  VECTOR 

£AUGDC( 8)  DYNAMIC  CONSIDER  AUGMENTATION  VECTOR 

IAUGMCC15)  MEASUREMENT  CONSIOER  AUGMENTATION  VECTOR 
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/TAREAL/  MODE  * NOMNAL,  ERRAN,  SIMUL 


AC  (5  ,10  ) 

PHI ( 3 >3) 

T IMG (10) 

TAR(6,1Q) 

OAUX  (3) 
AAUX (3) 

OT  AR (3) 

AT  AR(3) 
TOL(6,10) 

T0LR(6> 
CTOL (6) 
FAC(3) 

TMPR 

PERV(iO) 

DINTG(IQ) 
OT  (10) 
OELV(3,10) 


ACCURACY  LEVELS  (UP  TO  5)  USEO  IN  EACH  GUIDANCE 
EVENT 

TARGETING  MATRIX 

TIMES  OF  EACH  GUIDANCE  EVENT  REFERENCED  TO  EPOCH- 
-INITIAL  TIME,  SOI  TIME,  OR  CA  TIME 

OESIREO  VALUES  OF  TARGET  PARAMETERS  (UP  TO  6 
AVAILABLE)  FOR  EACH  GUIDANCE  EVENT 

DESIREO  AUXILIARY  PARAMETER  VALUES  OF  ITERATE 

ACTUAL  AUXILIARY  VALUES  OF  ITERATE 

DESIRED  TARGET  VALUES  OF  ITERATE 

ACTUAL  TARGET  VALUES  OF  ITERATE 

ALLOWABLE  TOLERANCES  OF  TARGET  PARAMETERS  FOR 
EACH  GUIDANCE  EVENT 

NOT  USED  IN  CURRENT  TARGET  VERSION 

TOLERANCES  FOR  CURRENT  EVENT 

SCALING  FACTORS  USED  IN  BAD  STEP  CHECK 

DAYS  BETWEEN  PRINTOUTS  OF  NOMINAL  TRAJECTORY 

PERTURBATION  SIZE  FOR  VELOCITY  COMPONENTS  IN 
CONSTRUCTING  SENSITIVITY  MATRICES  IN  TARGETING 
EVENTS 

NOT  USED  IN  CURRENT  TARGET  VERSION 

JULIAN  DATES  OF  TARGET  TIMES 

EXTERNALLY  SUPPLIED  VELOCITY  CORRECTION  OR 
VELOCITY  INCREMENT  COMPUTED  BY  INSERTION  DECISION 
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TRTM 
RIN(  65 
TIN 
01 

DG(10> 

CELT  AT 

TMU 

RRF{3) 

DELTAVC3) 

DVMAX<10) 

ACKT 

EQECP<3,3> 

TIMS 

SPHFAC< 10) 
RPS1103 


TRAJECTORY  TIME  (OAYSJ  REF.  TO  INJECTION 
CURRENT  STATE  VECTOR  AT  I-TH  EVENT 
JULIAN  DATE  AT  INJECTION 
JULIAN  DATE  ASSOCIATED  WITH  RI N ARRAY 
JULIAN  DATES  OF  EVENT  TIMES 

NUMBER  OF  OAYS  INTEGRATION  IS  TO  CONTINUE  IF 
NO  OTHER  STOPPING  CONDITION  OCCURS 

* 

GRAVITATIONAL  CONSTANT  OF  TARGET  PLANET 

SPACECRAFT  POSITION  AT  END  OF  INTEGRATION 

CORRECTIONS  TO  BE  ADDED  TO  VELOCITY  COMPONENTS 
FOR  NEXT  ITERATION 

MAXIMUM  ALLOWABLE  CHANGE  IN  ANY  VELOCITY 
COMPONENT  FOR  EACH  EVENT 

TRAJECTORY  INTEGRATION  ACCURACY 

TRANSFORMATION  FROM  ECLIPTIC  TO  EQUATORIAL 
SYSTEM'  FOR  TARGET  PLANE 

INTERNAL  CLQCK  TIME  AT  START  OF  v COMPUTER  RUN 

REDUCTION  FACTORS  FOR  TARGET  PLANET  SPHERE 
OF  INFLUENCE  FOR  EACH  EVENT 

RADIUS  OF  PROBE  IMPACT  SPHERE  IN  KM  FOR  VARIOUS 
TYPES  OF  PROBE  EVENTS 


60 


/TARIN1V  MODE*  NOMNAL,  ERRAN,  SIMUL 


NQGYO 
KTIM  <10  > 

j 

KTYPUO) 

KMXUC10) 

MDL< 10  > 

NPAR<10) 

KT  AR (6 > 10) 

KEYT  AR<  3) 
MATS 1Q> 


TOTAL  NUMBER  OF  GUIDANCE  EVENTS 

EPOCH  TO  WHICH  GUIDANCE  EVENT  TIMES  ARE  REFER- 
ENCED 

= 0 EVENT  NOT  PROCESSED 
= 1 INITIAL  TIME 
-2  SOI  TIME 
= 3 CA.  TIME 
= 4 CALENDAR  DATE 

TYPE  OF  GUIDANCE  EVENT  FOR  EACH  EVENT 
=-l  TERMINATION  EVENT 
=1  TARGETING  EVENT 
= 2 RETARGETING  EVENT 
=3  ORBIT  INSERTION  EVENT 

COMPUTE/EXECUTE  MODES  FOR  EACH  GUIDANCE  EVENT 
=1  COMPUTE  VELOCITY  CORRECTION  ONLY 
=2  EXECUTE  VELOCITY  CORRECTION  ONLY 
=3  COMPUTE  AND  IMMEDIATELY  EXECUTE  CORRECTION 
=4  COMPUTE 'BUT  EXECUTE  CORRECTION  LATER 

EXECUTION  MODELS  FOR  EACH  GUIDANCE  EVENT 
= 1 IMPULSIVE  ' 

= 2 PULSING  ARC 

NUMBER  OF  TARGET  PARAMETERS  IN  EACH  TARGETING 
EVENT 

CODES  OF  TARGET  PARAMETERS  <UP  TO  6)  FOR  EACH 
TARGETING  EVENT  OR  ORBIT  INSERTION  OPTION  FOR 
EACH  INSERTION  EVENT 

KEY  DEFINING  DESIRED  TARGET  PARAMETERS  FOR 
CURRENT  EVENT 

TARGETING  MATRIX  COMPUTATION  CODE  FOR  EACH  TAR- 
GETING EVENT 

=1  COMPUTE  TARGETING  MATRIX  ONLY  AT  FIRST  LEVEL 
= 2 COMPUTE  TARGETING  MATRIX  AT  EACH  STEP 


61 


19ADSUQ) 

NOITCIO) 

MAX8U0) 

LEVELS 

LEV 

NITS 

MAX8A0 

1 8 AST 
MATX 

ISTART 

IPHA  SE 
NOPHAS 
HARM 

I8AD 


BAD  STEP  FLAGS  FOR  EACH  TARGETING  EVENT 
si  NEVER  USE  BAD  STEP  CHECK 
= 2 USE  BAD  STEP  CHECK  AT  FINAL  LEVEL  ONLY 
= 3 USE  BAD  STEP  CHECK  AT  ALL  LEVELS 

THE  NUMBER  OF  TOTAL  ITERATIONS  ALLOWED  AT  THE 
FIRST  ANO  LAST  LEVELS  OF  TARGETING  EVENTS  FOR 
EACH  GUIDANCE  EVENT 

THE  NUMBER  OF  BAD  STEPS  ALLOWED  DURING  ANY  TAR- 
GETING EVENT 

NUMBER  OF  ACCURACY  LEVELS  FOR  CURRENT  EVENT 

CURRENT  LEVEL  IN  CURRENT  TARGETING  EVENT 

ALLOWABLE  NUMBER  OF  ITERATIONS  FOR  CURRENT  EVENT 

MAXIMUM  NUMBER  OF  BAD  ITERATIONS  FOR  CURRENT 
EVENT 

BAD  STEP  CHECK  INDICATOR  FOR  CURRENT  EVENT 

MATRIX  COMPUTATION  CODE  FOR  CURRENT  TARGETING 
EVENT  (SEE  DEFN  OF  MAT) 

STAGE  OF  INITIAL  TARGETING 
= 0 NO  TARGETING  STARTED 

= 1 FIRST  PHASE  STARTED  AND  HAVE  TARGETING  MATRIX 
= 2 SECOND  PHASE  STARTED  AND  HAVE  MATRIX 

I 

PHASE  COUNTER  FOR  CURRENT  TARGETING  EVENT 

NUMBER  OF  TARGETING  PHASES  FOR  CURRENT  EVENT 

FLAG  TO  CONTROL  CONSTRUCTION  OF  TARGETING  MATRIX 
=0  DO  NOT  COMPUTE  TARGETING  MATRIX 
= 1 COMPUTE  TARGETING  MATRIX  ON  CURRENT  ITERATION 

BAD  STEP  FLAG  FOR  CURRENT  ACCURACY  LEVEL 
= 1 DO  NOT  CHECK  FOR  BAD  STEP 
= 2 CHECK  FOR  BAO  STEP 
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ISTOP 

NOPAR 

KWIT 

IPRE 

NCPR 

IFINTUO) 
K6YD  < 10 ) 
KSICA 

KUR 

K AXT  ARt  3) 

LVLSUQ) 

NOSOI 

IPCS(iO) 


STOPPING  CONDITION  INDICATOR  IN  SUBROUTINE 
TARGET 

= 1 STOP  ON  TIME 
= 2 STOP  AT  SPHERE  OF  INFLUENCE 
-3  STOP  AT  CLOSEST  APPROACH 

NUMBER  OF  TARGET  PARAMETERS  FOR  CURRENT  EVENT 

TERMINATION  FLAG 
=0  CONTINUE  RUN 
■=1  TERMINATE  RUN 

CASE  FLAG 
= 0 FIRST  CASE 
= 1 STACKED  CASE 

NUMBER  OF  INTEGRATION  INCREMENTS  BETWEEN  PRINT- 
OUTS OF  NOMINAL  TRAJECTORY 

NOT  USED  IN  THIS  TRAJECTORY  VERSION 

INDICES  OF  EVENTS  TO  BE  PROCESSED 

FLAG  INDICATING  STAGE  OF  NOMINAL  TRAJECTORY 
= 1 SOI  NOT  YET  INTERSECTED 
= 2 SOI  INTERSECTED  BUT  NO  CLOSEST  APPROACH 
= 3 CLOSEST  APPROACH  ALREADY  ENCOUNTERED 


INDEX  OF  CURRENT  EVENT 

KEY  DEFINING  AUXILIARY  PARAMETERS  FOR  CURRENT 
„ EVENT 


NUMBER  OF  ACCURACY  LEVELS  TO  BE  USED  ON  EACH  TAR 
GETING  EVENT 

OUTER  TARGETING  FLAG 
= 0 NORMAL  TARGETING 
= 1 OUTER  TARGETING 

FLAG  SPECIFYING  PL ANETOCENT RIC  COORDINATE  SYSTEM 
FOR  VARIOUS  TYPES  OF  PROBE  EVENTS 
= 0 EQUATORIAL 
=1  SUBSOLAR  ORBIT -PLANE 
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/TAROIM/  MODE*  NOMNAL 


D8R 

OBT 

DOCP 

DINC 

DRAP 

ORCA 

IAUX 

IINCRA 

IRCADC 

ITARR 

XATAR13) 


DESIRED  VALUE  OF  AUXILIARY  TARGET  B.R  IN  KM  TO 
ACHIEVE  ACTUAL  TARGET  PAIRS  OF  EITHER  INCLINATION 
AND  RADIUS  OF  CLOSEST  APPROACH  OR  RIGHT  ASCENSION 
AND  DECLINATION  OF  PROBE  TARGET  SITE 

DESIRED  VALUE  OF  AUXILIARY  TARGET  8*R  IN  KH  TO 
ACHIEVE  ACTUAL  TARGET  PAIRS  OF  EITHER  INCLINATION 
AND’  RADIUS  OF  CLOSEST  APPROACH  OR  RIGHT  ASCENSION 
AND  DECLINATION  OF  PROBE  TARGET  SITE 

ACTUAL  TARGET  VALUE  OF  PROBE  SITE  DECLINATION  IN 
DEG  RELATIVE  TO  PROBE-SPHERE  FRAME 

ACTUAL  TARGET  VALUE  OF  INCLINATION  AT  CLOSEST 
APPROACH  IN  DEG  RELATIVE  TO  EQUATORIAL  FRAME  \ 

ACTUAL  TARGET  VALUE  OF  PR08E  SITE  RIGHT  ASCENSION 
IN  DEG  RELATIVE  TO  PROBE-SPHERE  FRAME  . - 

ACTUAL  TARGET  VALUE  OF  RADIUS  AT  CLOSEST 
APPROACH  IN  KM 

FLAG  INDICATING  TYPE  OF  AUXILIARY  TARGETING 
= 0 NO  AUXILIARY  TARGETING 

=1  AUXILIARY  TARGETING  WITH  INCLINATION  AND 

RADIUS  AT  CLOSEST  APPROACH  AS  ACTUAL  TARGETS 
=2  AUXILIARY  TARGETING  WITH  RIGHT  ASCENSION 
AND  DECLINATION  OF  PROBE  IMPACT  SITE  AS 
ACTUAL  TARGETS 

INDEX  OF  DESIRED  INCLINATION  OR  PROBE  SITE 
RIGHT  ASCENSION  IN  DTAR  ARRAY 

INDEX  OF  DESIRED  RADIUS  OF  CLOSEST  APPROACH  OR 
PROBE  SITE  DECLINATION  IN  OTAR  ARRAY 

FLAG  INDICATING  OPERATING  MODE  OF  TARQPT  (SAME 
AS  ITARO) 

ARRAY  OF  ACTUAL  TARGET  VALUES  (SAME  AS  ATAR) 


64 


/TARVAR/  MODE  ERRAN,  SIMUL 


XTAR (6) 10) 
XTOL (6, 10> 
XAC(5,10) 
XPERVUQ) 

XQVMAX(IO) 
XFACtlO) 
XOEL  V <3>  10) 
TGT3C10) 

LKTARC6  >10) 
LKTPUO) 
LKLPtlO) 
LNPARdO } 
LLVLSC10) 


DESIRED  TARGET  VALUES 

TOLERANCES  ON  TARGET  PARAMETERS 

ACCURACY  LEVELS  EMPLOYED  IN  TARGETING 

VELOCITY  PERTURBATION  USED  TO  COMPUTE  TARGETING 
MATRIX 

MAXIMUM  ALLOWABLE  VELOCITY  CORRECTION 

SPHERE  OF  INFLUENCE  FACTORS 

NONLINEAR  VELOCITY  CORRECTION 

OESIRED  TARGET  TIMES  REFERENCED  TO  INITIAL 
TRAJECTORY  TIME 

ARRAY  DEFINING  TARGET  PARAMETERS 

ARRAY  OF  TARGET  PLANETS 

ARRAY  OF  LAUNCH  PLANETS 

NUMBER  OF  TARGET  PARAMETERS  OESIRED 

■ 1 i • 

NUMBER  OF  INTEGRATION  ACCURACY  LEVLES  USED 
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/TIM  / MOOES  ERRAN,  SIMUL 

DATE  J 

JULIAN  DATE  OF  INITIAL  TRAJECTORY  TIME 
(REFERENCED  TO  1950) 

TRTM1 

INITIAL  TRAJECTORY  TIME 

OELTM 

TIME  INCREMENT 

FNTM 

FINAL  TRAJECTORY  TIME 

UNIVT 

UNIVERSAL  TIME 

TRTMB 

TRAJECTORY  TIME  AT  BEGINNING  OF  TRAJECTORY 

/TMW2  / MOOES  SIMUL 


T 1 

EIGENVECTOR  EVENT 

TIMES 

T2 

PREDICTION  EVENT 

STARTING  TIMES 

T4 

CONIC  COMPUTAT  ION 

EVENT  TIMES 

T5 

QUASI-L  INEAR  EVENT 

TIMES 

T 6 

NOT  USED 

T7 


NOT  USED 


/TRAJCO/  MODE*  ERRAN,  SIMUL 


DTMAX 

/ 

ACCND 

DTSUN 

OTPLAN 

NTMC 

ISTMC 

ISTM1 

NOACC 


MAXIMUM  TIME  INCREMENT  FOR  WHICH  ISTMC  IS 
VALIO 

ACCURACY  USED  IN  NUMERICAL  OIF  FERE  NCING  IF 
NOACC  INDICATES 

STATE  TRANSITION  INTEGRATION  INTERVAL  WHEN 
THE  SUN  IS  CENTRAL  BODY  ANO  ISTM1=1 

STATE  TRANSITION  INTEGRATION  INTERVAL  WHEN 
TARGET  PLANET  IS  CENTRAL  800Y  ANO  ISTM1=1 

NOMINAL  TRAJECTORY  COOE 

STATE  TRANSITION  MATRIX  COOE 

ALTERNATE  STATE  TRANSITION  MATRIX  COOE 

NUMERICAL  OIFF ERENCING  ACCURACY  COOE 
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/TRIJAR  / MODE-*  ERRAN,  SIMUL 


OCTP (3> 

RATP (3J 

VTANGM 

OCSAF 

RASAF 

SO 

ACTPP 

FACTR 

XSAvE (6 ) 
WFLS (3) 
UCNT  RH5) 
IPCSK 

ISAO 

IPROPI 


DECLINATIONS  OF  3 MINI-PROBE  TAGETS 
RIGHT  ASCENSIONS  OF  3 MINI-PROBE  TARGETS 
M IN I-PR08E  TANGENTIAL  VELOCITY 
FIXED  SPIN  AXIS  DECLINATION  AT  RELEASE 
FIXED  SPIN  AXIS  RIGHT  ASCENSION  AT  RELEASE 
STEP  SIZE  UPPER  30 UNO  IN  THE  CONTROL  SPACE 

VMP  ACCURACY  LEVEL  FOR  MINI-PROBE  TARGETING 

> 

FRACTION  OF  SOI  INTEGRATED  TO  BEFORE  CONIC  PROPA 
GAT  ION  STARTS 

STATE  VECTOR  AT  RELEASE 

WEIGHTING  FACTORS  FOR  TARGET  SITES 

TARGET  CONTROLS 

= i SUBSOLAR  COORDINATE  SYSTEM 
-2  EQUATORIAL  COORDINATE  SYSTEM 

SPIN  AXIS  ORIENTATION  FLAG 

TRAJECTORY  PROPAGATION  CODE 
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/TRJ  / MOOEX  ERRAN,  SIMUL 


RCAH6) 
RCA2 (6) 

RCA3  <b) 
RS0I1(3> 

RSOX  2 <3 ) 

RS0I3 (3} 
VSOIK3) 

VS0I2U) 

V SOI  3(3) 

TCAi 

TCA2 

TCA3 
TSOI  1 

TSOI  2 

TS0I3 


STATE  AT  CLOSEST  APPROACH  ON  ORIGINAL  NOMINAL 

STATE  AT  CLOSEST  APPROACH  ON  MOST  RECENT 
NOMINAL 

STATE  AT  CLOSEST  APPROACH  ON  ACTUAL  TRAJECTORY 

POSITION  AT  SPHERE  OF  INFLUENCE  ON  ORIGINAL 
NOMINAL 

POSITION  AT  SPHERE  OF  INFLUENCE  ON  MOST  RECENT 
NOMINAL 

POSITION  AT  SPHERE  OF  INFLUENCE  ON  ACTUAL 
TRAJECTORY 

VELOCITY  AT  SPHERE  OF  INFLUENCE  ON  ORIGINAL 
NOMINAL 

VELOCITY  AT  SPHERE  OF  INFLUENCE  ON  MOST  RECENT 
NOMINAL 

VELOCITY  AT  SPHERE  OF  INFLUENCE  ON  ACTUAL 
TRAJECTORY 

TIME  AT  CLOSEST  APPROACH  OF  ORIGINAL  NOMINAL 

TIME  AT  CLOSEST  APPROACH  OF  MOST  RECENT 
NOMINAL 

TIME  AT  CLOSEST  APPROACH  OF  ACTUAL  TRAJECTORY 

TIME  AT  SPHERE  OF  INFLUENCE  OF  ORIGINAL 
NOMINAL 

TIME  AT  SPHERE  OF  INFLUENCE  OF  MOST  RECENT 
NOMINAL 

TIME  AT  SPHERE  OF  INFLUENCE  OF  ACTUAL 
TRAJECTORY 
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BSI1 

BSI2 

8SI3 

0DTSI1 

80TSI2 

B0TSI3 

BORSIi 

B0RSI2 

8DRSI3 

15011 

15012 

15013 
ICA1 
ICA2 
ICA3 


0 ON  ORIGINAL  NOMINAL 
0 ON  HOST  RECENT  NOMINAL 
8 ON  ACTUAL  TRAJECTORY 
8 DOT  T ON  ORIGINAL  NOMINAL 
B DOT  T ON  MOST  RECENT  NOMINAL 
B OOT  T ON  ACTUAL  TRAJECTORY 
8 OOT  R ON  ORIGINAL  NOMINAL 
B DOT  R ON  MOST  RECENT  NOMINAL 
B DOT  R ON  ACTUAL  TRAJECTORY 

SPHERE  OF  INFLUENCE  CODE  FOR  ORIGINAL  NOMINAL 

SPHERE  OF  INFLUENCE  CODE  FOR  MOST  RECENT 
NOMINAL 

SPHERE  OF  INFLUENCE  CODE  FOR  ACTUAL  TRAJECTORY 
CLOSEST  APPROACH  CODE  FOR  ORIGINAL  NOMINAL 
CLOSEST  APPROACH  COOE  FOR  MOST  RECENT  NOMINAL 
CLOSEST  APPROACH  CODE  FOR  ACTUAL  TRAJECTORY 


/TMTRIX/  MODE*  NOMNAL*  ERRAN,  SIMUL 


CHI(3,3J  SENSITIVITY  MATRIX  (TRANSFERRED  FOR  OUTPUT) 
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/TPTIN  / MODE*  ERRAN  ,SIMUL 


GMUP 

RTPS 

T <3, 3) 

OJERN 

OTPRSC 

RSCRPAI3) 

VSCRPAt  3) 

RSCRPM 

CSOCSA 

SNDCSA 

CSRASA 

SNRASA 

NNTP 

I MIN 

KKWIT 


GRAV IT  ATIONAL  CONSTANT  OF  TARGET  PLANET 
RADIUS  OF  PROBE  SPHERE 

COORDINATE  SYSTEM  TRANSFORMATION  MATRIX 

JULIAN  DATE  OF  TARGETING  EVENT 

TIME  FROM  PERIAPSIS  TO  NOMINAL  RELEASE  TIME 
RELEASE  POSITION  OF  S/C 

RELEASE  VELOCITY  OF  S/C 

MAGNITUOE  OF  RELEASE  POSITION  VECTOR 

COS  OF  DECLINATION  OF  SPIN  AXIS 

SIN  OF  DECLINATION  OF  SPIN  AXIS 

COS  OF  RIGHT  ASCENSION  OF  SPIN  AXIS 

SIN  OF  RIGHT  ASCENSION  OF  SPIN  AXIS  , 

NUMBER  OF  THE  TARGET  PLANET 

INDEX  OF  THE  MINI-PROBE4 NEAREST  THE  S/C  AT  IMPACT 

=1  NO  CONVERGENCE  IN  MINI-PROBE  TARGETING 
=0  CONVERGENCE  IN  MINI-PROBE  TARGETING 
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/TPTIN  / MOOE*  NOMNAL 


AATTP(3) 

ARRAY  OF  ANGLES  OF  ATTACK  IN  DEG  FOR  MI NIPR08E S 
AT  IMPACT 

ACTPP 

ACCURACY  LEVEL  OF  VMP  MINIPROBE  PROPAGATION 

CSOCSA 

COSINE  OF  ECLIPTIC  DECLINATION  OF  BUS  SPIN  AXIS 
AT  RELEASE 

CSRASA 

COSINE  OF  ECLIPTIC  RIGHT  ASCENSION  OF  BUS  SPIN 
AXIS  AT  RELEASE 

DCTP (33 

ARRAY  OF  TARGET  SITE  DECLINATIONS  OF  MINIPROBES 
IN  DEG  RELATIVE  TO  PLANETOCENTRIC  PROBE-SPHERE 
FRAME 

DELTM 

MAXIMUM  VIRTUAL-MASS  PROPAGATION  INTERVAL  FOR 
BUS  AND  MINIPROBES 

0JEITP(3) 

ARRAY  OF  JULIAN  DATES  OF  IMPACT  FOR  MINIPROBES 
EPOCH  1900 

OJERN 

JULIAN  DATE  EPOCH  1900  OF  MINIPROBE  RELEASE 

OTPRSC 

TIME  INTERVAL  IN  SEC  ON  BUS  NEAR-PLANET 
OSCULATING  CONIC  FROM  PERIAPSIS  TO  RELEASE  STATE 

FPATP(3 ) 

ARRAY  OF  FLIGHT  PATH  ANGLES  IN  DEG  FOR  MINIPROBES 
AT  IMPACT 

GMUP 

GRAVITATIONAL  CONSTANT  OF  TARGET  PLANET  IN 
KM*  *3/ SEC**  2 

IFIN2 

FLAG  INDICATING  OPERATING  MOOE  OF  TPPROP 
= 1 MISS-MINIMIZATION  IS  IN  PROCESS— OBTAIN  PHI 
AS  A FUNCTION  OF  UCNTRL 
= 2 MISS-MINIMIZATION  IS  COMPLETE — OBTAIN 
MINIPROBE  IMPACT  DATA  FOR  MINIMUM-MISS 
RELEASE  CONTROLS 

IMIN 

INOEX  OF  MINIPR08E  WHOSE  IMPACT  PLANE  ASYMPTOTE 
PIERCE  POINT  IS  NEAREST  THAT  OF  BUS 

I PROP 

FLAG  INDICATING  MINIPROBE  PROPAGATION  MOOE  TO  BE 
USED  IN  TPPROP  (MAY  DIFFER  FROM  THAT  REQUESTED 
IN  IPROPI) 

= 1 CONIC 
-2  VIRTUAL-MASS 

I SAG 

FLAG  INDICATING  SPIN  AXIS  ORIENTATION  MODE 
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= i BOTH  SPIN  AXIS  DECLINATION  AND  RIGHT 
ASCENSION  ARE  FREE  CONTROLS 
-2  SPIN  AXIS  IS  COINCIDENT  WITH  aUS  VELOCITY 
VECTOR  AT  RELEASE 

-3  SPIN  AXIS  IS  NORMAL  TO  BUS/SUN  LINE  , PARALLEL 
TO  ECLIPTIC  PLANE,  AND  WITHIN  90  OEG  OF  BUS 
VELOCITY  VECTOR 

=4  SPIN  AXIS  OECL INAT ION  AND  RIGHT  ASCENSION 
ARE  BOTH  FIXED 
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RATP  (.3) 

RSCRHA ( 3 ) 
RSCRPAC  3) 

RSCRPM 

RTPS 

SNDCSA 

SNRASA 

TRANSF 

VIHTP13) 

VSCRHAC3) 

VSCRPAt  3) 

WFLS  ( 3) 


ARRAY  OF  T A RGE-T  SITE  RIGHT  ASCENSIONS  OF 
MINIPROBES  IN  OEG  RELATIVE  TO  PLANETOCENTRIC 
PROBE-SPHERE  FRAME 

HELIOCENTRIC  ECLIPTIC  POSITION  VECTOR  OF  BUS  IN 
KM  AT  MINIPROBE  RELEASE 

PLANETOCENTRIC  ECLIPTIC  POSITION  VECTOR  IN  KM 
ON  BUS  NEAR-PLANET  OSCULATING  CONIC  AT  EQUIVALENT 
RELEASE  STATE 

MAGNITUDE  OF  PLANETOCENTRIC  POSITION  VECTOR  OF 
BUS  IN  KM  AT  EQUIVALENT  CONIC  RELEASE  STATE 

RADIUS  OF  MINIPR08E  IMPACT  SPHERE  IN  KM  (SAME 
AS  RADIUS  OF  PROBE  IMPACT  SPHERE) 

SINE  OF  ECLIPTIC  DECLINATION  OF  BUS  SPIN  AXIS 
AT  RELEASE 

SINE  OF  ECLIPTIC  RIGHT  ASCENSION  OF  8US  SPIN 
AXIS  AT  RELEASE 

TRANSFORMATION  MATRIX  FROM  PLANETOCENTRIC 
ECLIPTIC  TO  PROBE-SPHERE  COORDINATE  FRAME 

ARRAY  OF  VELOCITY  MAGNITUDES  OF  MINIPROBES  AT 
IMPACT  IN  KM/SEC 

HELIOCENTRIC  ECLIPTIC  VELOCITY  VECTOR  OF  BUS  IN 
KM/SEC  AT  MINI  PROBE  RELEASE 

PLANETOCENTRIC  ECLIPTIC  VELOCITY  VECTOR  IN 
KM/SEC  ON  BUS  NEAR-PLANET  OSCULATING  CONIC 
AT  EQUIVALENT  RELEASE  STATE 

ARRAY  OF  WEIGHTING  FACTORS  APPLIED  TO  IMPACT 
FLANE  MISS  DISTANCES  AT  RESPECTIVE  MINIPROBE 
TARGET  SITES  IN  LEAST-SQUARES  MISS-MINIMIZATION 
PROCESS 
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/VM 


/ MODE*  NOMNAL,  ERRAN,  SIMUL 


ALNGTH 

TM 

DELT-P 
RC  lb) 
OG 

RSK  3) 
VSK3) 
DSI 

RVS( 6) 

VMU 

Q 

80T 
' 80R 
DELTH 
TXMINT 
R£(6i 
RTP ( 6) 
CAINC 
RCA 
TACA 


LENGTH  UNITS  PER  A.U. 

TIME  UNITS  PER  DAY 

PRINT  INCREMENTS  <IN  OAYS) 

STATE  AT  CLOSEST  APPROACH 

JULIAN  DATE, EPOCH  1900, AT  CLOSEST  APPROACH 

POSITION  AT  SPHERE  OF  INFLUENCE 

VELOCITY  AT  SPHERE  OF  INFLUENCE 

JULIAN  DATE,  EPOCH  1900,  AT  SPHERE  OF 
INFLUENCE 

POSITION  OF  VEHICLE  RELATIVE  TO  VIRTUAL  MASS 
GRAVITATIONAL  CONSTANT  OF  VIRTUAL  MASS 
8 AT  SPHERE  OF  INFLUENCE 
8 DOT  T 
B OOT  R 

INCREMENT  IN  TRUE  ANOMALY  USED 

TOTAL  TIME  USED 

POSITION  AND  VELOCITY  OF  EARTH 

POSITION  AND  VELOCITY  OF  TARGET  PLANET 

INCLINATION  AT  CLOSEST  APPROACH 

MAGNITUDE  OF  CLOSEST  APPROACH  POSITION  VECTOR 

TRAJECTORY  SEMIMAJOR  AXIS  WITH  RESPECT  TO  TARGET 
BODY  AT  CLOSEST  APPROACH  TQ  TARGET  BODY 
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SSS( 3) 
NLP 
N800 
NB  Cl 1) 
NTP 
INPR 
I P RO  8 
ISPH 

INCMT 

IEPHEM 

ICL 

IPRINT 

ICL2 


DIRECTION  COSINE  VECTOR  OF  SPACECRAFT  SPIN  AXIS 
CODE  OF  LAUNCH  PLANET 

NUMBER  OF  30DI ES  USED  IN  VIRTUAL  MASS  PROGRAM 

CODES  OF  PLANETS 

CCOE  OF  TARGET  PLANET 

PRINT  INCREMENTS  (IN  INCREMENTS) 

PROBLEM  NUMBER 

SPHERE  OF  INFLUENCE  CODE 

= 0 SPHERE  OF  INFLUENCE  NOT  INTERSECTED 

= 1 SPHERE  OF  INFLUENCE  ALREADY  ENCOUNTERED 

TOTAL  INCREMENTS  USED 

EPHEMERIS  CODE 

CLOSEST  APPROACH  CODE 

= 0 CLOSEST  APPROACH  NOT  ENCOUNTERED 

-1  CLOSEST  APPROACH  ALREADY  ENCOUNTERED 

PRINT  CODE 

=0  OUTPUT  INITIAL  AND  FINAL  DATA 
= 1 DO  NOT  OUTPUT  INITIAL  ANO  FINAL  DATA 

CLOSEST  APPROACH  TERMINATION  CODE 
=0  00  NOT  STOP  AT  CLOSEST  APPROACH 

= 1 STOP  AT  CLOSEST  APPROACH 
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/xxxl  / mode*  er ran,  simul 


XSL(24>  SOL  VE-FOR  PARAMETER  LABELS 

XU (8 ) DYNAMIC  CONSIQER  PARAMETER  LABELS 

XV <15)  MEASUREMENT  CONSIOER  PARAMETER  LABELS 

XLAQC6)  VEHICLE  POSITION/  VELOCITY  VECTOR  COMPONENT  NAMES 

XNM124)  AUGMENTATION  PARAMETER  LABELS 

KPRI NT  CORRELATION  MATRIX  PRINT  CODE 


ZD  AT  (6> 

RP 

FI 

PSU 
PS  12 
TIHi 
TIM2 
THELS 
PHILS 
T I 
TF 

THEDOT 

RPRAT 


/ZERDAT/  MOOE*  NOMNAL 

ZERO  ITERATE  VECTOR 
PARKING  ORBIT  RAOIUS 
INJECTION  TRUE  ANOMALY 

ANGLE  OF  FIRST  BURN  

ANGLE  OF  SECOND  BURN 

TIME  INTERVAL  OF  FIRST  BURN 

TIME  INTERVAL  OF  SJECOND  BURN  - 

LONGITUDE  OF  LAUNCH  SITE 

LATITUDE  OF  LAUNCH  SITE 

NOT  USEO 

NOT  USED 

ROTATION  RATE  OF  LAUNCH  PLANET 
PARKING  ORBIT  INVERSE  RATE 
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SIGMAL 

NOMINAL  LAUNCH  AZIMUTH 

IZERO 

ZERO  ITERATION  FLAG 
= 0 INITIAL  STATE  READ  IN 
=1  PLANET-TO-PLANET 
= 2 PLANET-TO-POINT 
= 3 POINT-TO-PLANET 
=4  POINT-TO-POINT 
= 10  LUNAR  TARGETING 

KOAST 

PARKING  ORBIT  INDICATOR 
= -i  SHORT  COAST 
= 1 LONG  COAST 

LTARG 

TYPE  OF  MISSION  FOR  TARGETING 
= 0 INTERPLANETARY  MISSION 
= 1 LUNAR  MISSION 

/ZOUT  / MODE t NOMNAL 

VHPM  MAGNITUDE  OF  HYPER80LIC  EXCESS  VELOCITY  AT  TARGET 

BODY  (VHP  VECTOR) 

DPA  DECLINATION  OF  VHP 

RAP  RIGHT  ASCENSION  OF  VHP 
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5.2  COMMON  VARIABLES  IN  ALPHABETICAL  OROER 


IN  THIS  1 

SECTION  ALL 

VARIABLES  APPEARING  IN  COMMON  ARE  LISTEO 

AND  DEFINED 

IN  ALPHABETICAL  OROER.  THE  SECOND  FIELD  SERVES 

TO  IDENTIFY 

THE  BLOCK 

IN  WHICH  THE  VARIABLE  APPEARS. 

ro 

** 

PBLK 

FTA  IMPACT  PLANE  TRANSFORMATION  MATRIX 

A ALP (20) 

SIMCNT 

ACTUAL  ERROR  IN  POINTING  ANGLE  1 

AAUX (3) 

TAREAL 

ACTUAL  AUXILIARY  VALUES  OF  ITERATE 

ABET (20) 

SIMCNT 

ACTUAL  ERROR  IN  POINTING  ANGLE  2 

AC  (5  » 10) 

TAREAL 

' „ V 

ACCURACY  LEVELS (UP  TO  5)  USED  IN  EACH 
GUIDANCE  EVENT 

ACC 

MISC 

ACCURACY  FIGURE  USEO  IN  VIRTUAL  MASS  PRO- 
GRAM 

ACC1' 

SIM2 

ACCURACY  USED  IN  ACTUAL  TRAJECTORY 

ACCND 

TRAJCO 

ACCURACY  USEO  IN  NUMERICAL  DIFFERENCING  IF 
NDACC  INDICATES 

ACKT 

TAREAL 

TRAJECTORY  INTEGRATION  ACCURACY 

ADA(3,6) 

BAIM 

VARIATION  MATRIX 

ADEVSB(2<t> 

SIM1 

ACTUAL  DEVIATION  IN  SOLVE-FOR  PARAMETERS 
AT  TRAJECTORY  BEGINNING 

AOEVX (6) 

SI  Ml 

ACTUAL  DEVIATION  IN  THE  STATE  VECTOR 

AOEVXB (6) 

SI  Ml 

ACTUAL  DEVIATION  IN  STATE  VECTOR  AT  BEGIN- 
NING OF  TRAJECTORY 

ADEVXS (24) 

SI  Ml 

ACTUAL  DEVIATION  IN  SOLVE-FOR  PARAMETERS 

AINC7 

EVENT 

ORBIT  INSERTION  VARIABLES.  NON-FUNCTIONAL  IN 
IN  EXISTING  PROGRAM 

AK<6»41 

STM 

KALMAN  GAIN  CONSTANT  FOR  POSITION/VELOCITY 
STATE 
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AL^piS) 

STH 

OBSERVATION  MATRIX  RELATING  OBSERVABLES 
TO  MEASUREMENT  CONSIDER  PARAMETER  STATE 

ALNGTH 

VM 

LENGTH  UNITS  PER  A*U. 

AMC4p24J 

STM 

OBSERVATION  MATRIX  RELATING  OBSERVABLES 
TO  SOLVE-FOR  PARAMETER  STATE 

anode? 

EVENT 

ORBIT  INSERTION  VARIABLES*  NON-FUNCTIONAL 
IN  EXISTING  PROGRAM 

ANC 

IMPTAR 

TARGET  INCLINATION  CONVERTED  FROM  INPUT 
FORMAT  TO  VALUE  BETWEEN  0 AND  180  DEGREES 
AND  SATISFYING  APPROACH  ASYMPTOTE 
CONSTRAINT 

ANOIS  ? AS 

SIM1 

ACTUAL  WHITE  NOISE 

APR0«20> 

SI MCNT 

ACTUAL  PROPORTIONALITY  ERROR 

ARC<»pA) 

SI  Mi 

ACTUAL  MEASUREMENT  NOISE 

ARES  4 2'0) 

SI MCNT 

ACTUAL  RESOLUTION  ERROR 

ATAR43) 

TAREAL 

ACTUAL  TARGET  VALUES  OF  ITERATE 

ATRANS<6) 

BAIM 

CLOSEST  APPROACH  STATE 

AVARM412) 

SIMCNT 

VARIANCE  OF  ACTUAL  MEASUREMENT  NOISE 

AY  (4) 

SI  Ml 

ACTUAL  MEASUREMENT 

AYMEVS4) 

SI  Mi 

ACTUAL  MEASURE ?4ENT  MINUS  ESTIMATED 
MEASUREMENT 

B 

VM 

B AT  SPHERE  OF  INFLUENCE 

BOON 43J 

LUNART 

MAXIMUM  STEP  SIZES  OF  CONTROLS 

BOR 

VM 

8 DOT  R 

BDT 

VM 

B DOT  T 

8IAU2I 

MI  SC 

MEASUREMENT  BIASES 

0SI1 

TRJ 

B ON  ORIGINAL  NOMINAL 

BSX2 

TRJ 

B ON  MOST  RECENT  NOMINAL 

BSX3 

TRJ 

B ON  ACTUAL  TRAJECTORY 

BOTSIi 

TRJ 

B DOT  T ON  ORIGINAL  NOMINAL 

B0TSI2 

TRJ 

B DOT  T ON  MOST  RECENT  NOMINAL 

BDTSI3 

TRJ 

B OOT  T ON  ACTUAL  TRAJECTORY 

BORSIi 

TRJ 

B DOT  R ON  ORIGINAL  NOMINAL 

B0RSI2 

TRJ 

B DOT  R ON  MOST  RECENT  NOMINAL 

80RSI3 

TRJ 

B OOT  R ON  ACTUAL  TRAJECTORY 

CAX 

LUNART 

DESIRED  CLOSEST  APPROACH  EQUATORIAL 
INCLINATION 

CAINC 

VM 

INCLINATION  AT  CLOSEST  APPROACH 

CHI <3 9 3) 

TMTRX 

SENSITIVITY  MATRIX (TRANSFERRED  FOR  OUTPUT! 

CMPNMC30J 

NAME 

COMPONENT  NAME 

CNC80) 

BLK 

CONSTANTS  USED  TO  CALCULATE  THE  ORBITAL 
ELEMENTS  OF  THE  FIRST  FIVE  PLANETS 
(SEE  -LARGE  ARRAY  DEFNS  IN  SECTION  5.3) 

CR 

PBLK 

CAPTURE  RADIUS  OF  TARGET  PLANET 

CTOL (6) 

TAREAL 

TOLERANCES  FOR  CURRENT  EVENT 

CXSU(24,SS 

STM 

CORRELATION  BETWEEN  SOLVE-FOR,  PARAMETERS 
AND  DYNAMIC  CONSIDER  PARAMETERS 

CXSUBC2%8J 

STM 

CORRELATION  BETWEEN  SOLVE-FOR  PARAMETERS 
AND  DYNAMIC  CONSIDER  PARAMETERS  AT 
INITIAL  TIME 

GXSUG<2498> 

GUI 

CONTROL  CORRELATION  BETWEEN  SOLVE-FOR 
PARAMETERS  AND  DYNAMIC  CONSIDER  PARAMETERS 

CXSUP  (24?  85 

GUI 

CORRELATION  BETWEEN  SOLVE-FOR  PARAMETERS 
ANO  DYNAMIC  CONSIDER  PARAMETERS  PRIOR  TO 
PROCESSING  A MEASUREMENT 
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CXSV< 24,15) 

STM 

CORRELATION  BETWEEN  SOLVE-FOR  PARAMETERS 
AND  MEASUREMENT  CONSIDER  PARAMETERS 

CXSV8«24,15) 

STM 

CORRELATION  BETWEEN  SOLVE-FOR  PARAMETERS 
AND  MEASUREMENT  CONSIOER  PARAMETERS  AT 
INITIAL  TIME 

CXSVG«24?i5) 

GUI 

CONTROL  CORRELATION  BETWEEN  SOLVE-FOR 
PARAMETERS  AND  MEASUREMENT  CONSIOER  PARA- 
METERS 

CXSVP  <24, 15) 

STM 

CORRELATION  BETWEEN  SOLVE-FOR  PARAMETERS 
ANO  MEASUREMENT  CONSIOER  PARAMETERS  PRIOR 
TO  PROCESSING  A MEASUREMENT 

CXU<6 , 8) 

STM 

CORRELATION  BETWEEN  POSITION/ VELOCITY 
STATE  AND  DYNAMIC  CONSIOER  PARAMETERS 

CXUB  <6, 8) 

STM 

CORRELATION  BETWEEN  POSITION/VELOCITY 
STATE  AND  DYNAMIC  CONSIDER  PARAMETERS  AT 
•INITIAL  TIME 

CXUG<6,8) 

GUI 

CONTROL  CORRELATION  BETWEEN  POSITION/ 
VELOCITY  STATE  AND  DYNAMIC  CONSIOER 
PARAMETERS  i 

CXUP<6,8> 

STM 

CORRELATION  BETWEEN  POSITION/VELOCITY 
STATE  AND  DYNAMIC  CONSIOER  PARAMETERS 
PRIOR  TO  PROCESSING  A MEASUREMENT 

CXV<6,15> 

STM 

CORRELATION  BETWEEN  POSITION/VELOCITY 
STATE  AND  MEASUREMENT  CONSIDER  PARAMETERS 

CXVB<&,15) 

STM 

CORRELATION  BETWEEN  POSITION/ VELOCITY 
STATE  AND  MEASUREMENT  CONSIDER  PARMETERS 
AT  INITIAL  TIME 

CXVG (6,15) 

GUI 

CONTROL  CORRELATION  BETWEEN  POSITION/ 
VELOCITY  STATE  AND  MEASUREMENT  CONSIOER 
PARAMETERS 

CXVP(6,15) 

STM 

CORRELATION  BETWEEN  POSITION/VELOCITY' 
STATE  AND  MEASUREMENT  CONSIDER  PARAMETERS 
PRIOR  TO  PROCESSING  A MEASUREMENT 
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CXXSC6,2M 

STM 

CORRELATION  BETWEEN  POSITION/VELOCITY 
STATE  AND  SOLVE-FOR  PARAMETERS 

CXXSB(6»24) 

STM 

CORRELATION  BETWEEN  POSITION/VELOCITY 
STATE  AND  SOLVE-FOR  PARAMETERS  AT  INITIAL 
TIME 

CXXSG  56*24) 

GUI 

CONTROL  CORRELATION  BETWEEN  POSITION/ 
VELOCITY  STATE  AND  SOLVE-FOR  PARAMETERS 

CXXSP56*  24) 

STM 

CORRELATION  BETWEEN  POSITION/VELOCITY 
STATE  AND  SOLVE-FOR  PARAMETERS  PRIOR  TO 
PROCESSING  A MEASUREMENT 

01 

TAREAL 

JULIAN  OATE  ASSOCIATED  WITH  RIN  ARRAY 

DAB 

SIMCNT 

BIAS  IN  SEMI-MAJOR  AXIS  OF  TARGET  PLANET 

OATEJ 

TIME 

JULIAN  OATE  OF  INITIAL  TRAJECTORY  TIME 
(REFERENCED  TO  1950) 

OAUX (3) 

TAREAL 

OESIREO  AUXILIARY  PARAMETER  VALUES  OF 
ITERATE 

DC 

VH 

JULIAN  DATE, EPOCH  1900, AT  CLOSEST  APPROACH 

DEB 

SIMCNT 

BIAS  IN  ECCENTRICITY  OF  TARGET  PLANET 

DECLIN 

LUNART 

DECLINATION  OF  APPROACH  ASYMPTOTE  WITH 
RESPECT  TO  LUNAR  EQUATOR 

OELAXS 

C0NST3 

TARGET  PLANET  SEMI-MAJOR  AXIS  FACTOR  USED 
IN  NUMERICAL  OIFFERENCING 

OELECC 

C0NST3 

TARGET  PLANET  ECCENTRICITY  FACTOR  USED  IN 
'NUMERICAL  OIFFERENCING 

DELICL 

C0NST3 

TARGET  PLANET  INCLINATION  FACTOR  USED  IN  ' 
NUMERICAL  DIFFERENCING 

DELNA 

' C0NST3 

j 

TARGET  PLANET  MEAN  ANOMALY  FACTOR  USED.  IN 
NUMERICAL  DIFFERENCING 

OELMUP 

C0NST3 

TARGET  PLANET  GRAVITATIONAL  CONSTANT 
FACTOR  USED  IN  NUMERICAL  DIFFERENCING, 

DELMUS 

C0NST3 

SUN  GRAVITATIONAL  CONSTANT  FACTOR  USED  IN 

NUMERICAL  OIFFERENCING 

' r 
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DELNOD 

0ELPX<3) 

C0NST3 

EXE 

TARGET  PLANET  LONGITUDE  OF  THE  ASCENDING 
NODE  FACTOR  USED  IN  NUMERICAL  DIFFERENCING 
VELOCITY  CORRECTION  TO  BE  MODELEO-  AS  AN 
IMPULSE  SERIES 

DELTAT 

TAREAL 

NUMBER  OF  DAYS  INTEGRATION  IS  TO  CONTINUE 
IF  NO  OTHER  STOPPING  CONDITION  OCCURS 

DELTA  VO) 

TAREAL 

CORRECTIONS  TO  BE  ADDED  TO  VELOCITY 
COMPONENTS  FOR  NEXT  ITERATION 

DELTH 

VM 

INCREMENT  IN  TRUE  ANOMALY  USED 

OELTM 

TIME 

TIME  INCREMENT 

OELTP 

VM 

PRINT  INCREMENTS  (IN  DAYS) 

DELV(3,10) 

TAREAL 

EXTERNALLY  SUPPLIED  VELOCITY  CORRECTION 
OR  VELOCITY  INCREMENT  COMPUTED  BY 
INSERTION 

DELV(3,10) 

PBLK 

ARRAY  OF  EXTERNALLY-SUPPLIED  VELOCITY 
CHANGES 

DELW 

C0NST3 

TARGET  PLANET  ARGUMENT  OF  PERIAPSIS  FACTOR 
USED  IN  NUMERICAL  DIFFERENCING 

DG (10) 

TAREAL 

JULIAN  DATES  OF  EVENT  TIMES 

DIB 

SIMCNT 

BIAS  IN  INCLINATION  OF  TARGET  PLANET 

DINTGU0) 

TAREAL 

NOT  USED  IN  CURRENT  TARGET  VERSION 

DIPX 

EXE 

JULIAN  DATE  TRANSFERRED  TO  EXCUT  OR  EXCUTS 

DMAB 

SIMCNT 

BIAS  IN  MEAN  ANOMALY 

QMUPB 

SIMCNT 

BIAS  IN  GRAVITATIONAL  CONSTANT  OF  TARGET 
PLANET 

DMUS8 

SIMCNT 

BIAS  IN  GRAVITATIONAL  CONSTANT  OF  SUN 

DNCN (3) 

CONST 

CONSTANTS  FROM  NHICH  DYNAMIC  NOISE  IS 
COMPUTED 

DNOB 

SIMCNT 

BIAS  IN  LONGITUDE  OF  ASCENDING  NODE 

DPA 

20  UT 

DECLINATION  OF  VHP 

DSI 

VH 

JULIAN  DATE,  EPOCH  1900,  AT  SPHERE  OF 
INFLUENCE 

DTUO) 

TAREAL 

JULIAN  OATES  OF  TARGET  TIMES 

DTARJ3) 

TAREAL 

OESIREO  TARGET  VALUES  OF  ITERATE 

DTAR<3) 

LUNART 

TARGET  VALUES  OF  $MA,B«T , AND  B.R  IN 
LUNAR  TARGETING 

OTI 

PULS 

TIME  INTERVAL  COAYS)  BETWEEN  SUCCESSIVE 
PULSES 

DTXME 

OVERL 

TIME  INTERVAL  BETWEEN  ORBITAL  INSERTION 
DECISION  ANO  EXECUTION 

DTMAX 

TRAJCO 

MAXIMUM  TIME  INCREMENT  FOR  WHICH  ISTMC  IS 
VALID 

DTPLAN 

TRAJCO 

STATE  TRANSITION  INTEGRATION  INTERVAL  WHEN 
TARGET  PLANET  IS  CENTRAL  BODY  ANO  ISTM1=1 

DTSUN 

TRAJCD 

STATE  TRANSITION  INTEGRATION  INTERVAL  WHEN 
THE  SUN  IS  CENTRAL  BODY  AND  ISTM1=1 

DUMMVQW 

EXE 

ARRAY  OF  EXECUTION  ERROR  VARIANCES 

DUR 

PULS 

DURATION  OF  SINGLE  PULSE 

DV8(3> 

EVENT 

ORBIT  INSERTION  VARIABLE.  NON-FUNCTIONAL 
IN  EXISTING  PROGRAM 

DVFC31 

PULS 

VELOCITY  INCREMENT  ADDED  ON  FINAL  PULSE 

0VK3) 

PULS 

VELOCITY  INCREMENT  AODEO  ON  TYPICAL  PULSE 

DVMAXUO) 

TAREAL 

MAXIMUM  ALLOWABLE  CHANGE  IN  ANY  VELOCITY 
COMPONENT  FOR  EACH  EVENT 

0VN<3> 

PBLK 

COMMANDED  VELOCITY  CORRECTION  TRANSFERRED 
TO  BIAIM 

DVRBC3) 

PBLK 

VELOCITY  CORRECTION  REQUIRED  TO  REMOVE 
AIHPOINT  BIAS 
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OVUP (3) 

PBLK 

UPDATE  VELOCITY  CORRECTION 

0W9 

SIMCNT 

BIAS  IN  ARGUMENT  OF  PERXAPSIS 

ECC7 

EVENT 

ORBIT  INSERTION  VARIABLESo  NON-FUNCTIONAL  IN 
IN  EXISTING  PROGRAM 

EDEVSMC24) 

SI  Ml 

ESTIMATED  DEVIATION  IN  SOLVE-FOR 
PARAMETERS  (FOR  AOAPTIVE  FILTERING) 

EDEVX  (6) 

SI  Ml 

ESTIMATED  DEVIATION  IN  THE  STATE  VECTOR 

EDEVXM«6) 

SEMI 

ESTIMATED  DEVIATION  IN  THE  STATE  VECTOR 
* (FOR  AOAPTIVE  FILTERING) 

EOEVXS(?45 

SIMt 

ESTIMATED  DEVIATION  IN  SOLVE-FOR 
PARAMETERS 

EIGHT 

DPNUM 

THE  NUMBER  EIGHT  (8)  TO  NINE  SIGNIFICENT 
FIGURES*  TARGETING  MODE  ONLY 

ELMNT (805 

BLK 

CONTAINS  THE  ORBITAL  ELEMENTS  OF  THE 
PLANETS 

(SEE  LARGE  ARRAY,  OEFNS  IN  SECTION  5*3) 

' EM(2,63 

GUI 

VARIATION  MATRIX  RELATING  POSITION 
/VELOCITY  DEVIATIONS  TO  B.T  AND  BoR 
DEVIATIONS  

EMI 

OPNUM 

THE  NUMBER  i,E~t  TO  NINE  SIGNIFICANT 
FIGURES 

EM2 

DPNUM 

THE  NUMBER  l»E-2  TO  NINE  SIGNIFICANT 
FIGURES 

EM3 

t 

OPNUM 

THE  NUMBER  i«E-3  TO  NINE  SIGNIFICANT 
FIGURES 

• EM4 

OPNUM 

THE  NUMBER  t«,E~4  TO  NINE  SIGNIFICANT 
FIGURES 

EM5 

DPNUM 

THE  NUMBER  i.E-5  TO  NINE  SIGNIFICANT 

FIGURES 

1 

EM6 

OPNUM 

THE  NUMBER  i«E-6  TO  NINE  SIGNIFICANT 
FIGURES 

1-  n 

EM7 

DPNUM 

THE  NUMBER  I.E-7  TO  NINE  SIGNIFICANT 
FIGURES 

£M8 

DPNUM 

THE  NUMBER  l.E-8  TO  NINE  SIGNIFICANT 
FIGURES 

EM9 

OPNUM 

THE  NUMBER  loE-9  TO  NINE  SIGNIFICANT 
FIGURES 

EM13 

DPNUM 

THE  NUMBER  l„E-i3  TO  NINE  SIGNIFICANT 
FIGURES 

EM50 

DPNUM 

THE  NUMBER  t*E-50  TO  NINE  SIGNIFICANT 
FIGURES 

EMN(15) 

8LK 

THE  CONSTANTS  USED  TO  CALCULATE  THE  ORBIT- 
AL ELEMENTS  OF  THE  MOON 

EMU 

LUNART 

GRAVITATIONAL  CONSTANT  OF  EARTH {KM3/SEC2J 

EPS 

CONST 

OBLIQUITY  OF  EARTH 

EQECP<3,3> 

TAREAL 

TRANSFORMATION  FROM  ECLIPTIC  TO  EQUATORIAL 
SYSTEM  FOR  TARGET  PLANE 

EQLQ (3  j 3) 

LUNART 

TRANSFORMATION  MATRIX  FROM  EARTH- 
EQUATORIAL  TO  LUNAR  EQUATORIAL  COORDINTES 

EVNMUil 

NAME 

EVENT  NAME 

£X£C<3,3» 

PBLK 

EXECUTION  ERROR  COVARIANCE  MATRIX 

EY(4J 

SI  Mi 

ESTIMATEO  MEASUREMENT 

* 

F(4<»*4> 

COM 

CONTAINS  THE  POSITIONS  AND  VELOCITIES  OF 
THE  PLANETS  AT  A SPECIFIED  TIME  PLUS  THE 
POSITIONS  ANO  VELOCITIES  OF  THE  SPACE- 

■ 

. 

CRAFT  RELATIVE  TO  THE  PLANETS 

. FACC3S 

TAREAL 

SCALING  FACTORS  USED  IN  BAD  STEP  CHECK 

\ i 

FACP 

wise 

POSITION  FACTOR  USED  IN  NUMERICAL  DIFFER- 
ENCING 

FACV 

MI  SC 

VELOCITY  FACTOR  USED  IN  NUMERICAL  DIFFER- 
ENQING 

FI 

ZERDAT 

INJECTION  TRUE  ANOMALY 
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FIVE 

DPNUM 

THE  NUMBER  FIVE  (5)  TO  NINE  SIGNIFICANT 
FIGURES®  TARGETING  MODE  ONLY 

FNTM 

TIME 

FINAL  TRAJECTORY  TIME 

FOP 

C0NST2 

OFF-DIAGONAL  ANNIHILATION  VALUE  FOR 
POSITION  EIGENVALUES 

FOUR 

DPNUM 

THE  NUMBER  FOUR  (4)  TO  NINE  SIGNIFICANT 
FIGURES®  TARGETING  MODE  ONLY 

FOV 

CONST 2 

OFF-OIAGONAL  ANNIHILATION  VALUE  FOR 
VELOCITY  EIGENVALUES 

FS  (2,5) 

PULS 

F-SERIES  COEFFICIENTS  OF  LAUNCH  AND  TARGET 
BODIES 

G<4,8  3 

STM 

OBSERVATION  MATRIX  RELATING  OBSERVABLES 
TO  DYNAMIC  CONSIDER  PARAMETER  STATE 

GA  (3,6) 

OVER! 

GUIDANCE  MATRIX 

GG(3) 

PULS 

GRAVITIONAL  CONSTANTS  OF  SUN,  LAUNCH,  AND 
TARGET  BODIES 

GS  (2,4) 

PULS 

G-SERIES  COEFFIEXENTS  OF  LAUNCH  AND  TARGET 
BODIES 

H (4,6) 

STM 

OBSERVATION  MATRIX  RELATING  OBSERVABLES  TO 
POSITION/VELOCITY  STATE 

HALF 

OPNUM 

» 

THE  NUMBER  ONE-HALF  (1/2)  TO  NINE  SIGNIF- 
ICANT FIGURES 

HP? 

EVENT 

ORBIT  INSERTION  VARIABLES.  NON-FUNCTIONAL 
EXISTING  PROGRAM 

HPHR(4,4) 

STM 

NON-FUNCTIONAL  IN  PRESENT  ERROR  ANALYSIS 
PROGRAM 

IAMNF 

SIMCNT 

ACTUAL  MEASUREMENT  NOISE  FLAG 

I AUG IN (24) 

STVEC 

INPUT  AUGMENTATION  VECTOR  OF  ONE^S  AND 
ZERO-S 

I AUG  £24)  • 

STVEC 

AUGMENTATION  VECTOR 

XAUGOC (8) 

STVEC 

DYNAMIC  CONSIDER  AUGMENTATION  VECTOR 

IAUGMCC15J 

STVEC 

MEASUREMENT  CONSIDER  AUGMENTATION  VECTOR 

IBAO 

TARINT, 

BAD  STEP  FLAG  FOR  CURRENT  ACCURACY  LEVEL 
=1,  00  NOT  CHECK  FOR  BAD  STEP 
-2 > CHECK  FOR  BAD  STEP 

IBADSJ105 

TARINT 

BAD  STEP  FLAGS  FOR  EACH  TARGETING  EVENT 
-1  NEVER  USE  BAD  STEP  CHEQUE 
=2  USE  BAO  STEP  CHECK  AT  FINAL  LEVEL  ONLY 
=3  USE  BAD  STEP  CHECK  AT  ALL  LEVELS 

IBAG 

8AIM 

NOT  USED 

IBARY 

CNTRXC 

REFERENCE  COORDINATE  SYSTEM  CODE 

IBAST 

TARINT 

BAD  STEP  CHECK  INDICATOR  FOR  CURRENT  EVENT 

I BIAS 

PBLK 

BIASED  AIMPOINT  GUIDANCE  EVENT  FLAG 
* 0 AIMPOINT  NOT  BIASED 
-I  AIMPOINT  BIASED 

ICA1 

TRJ 

CLOSEST  APPROACH  CODE  FOR  ORIGINAL  NOMINAL 

ICA2 

TRJ 

CLOSEST  APPROACH  CODE  FOR  MOST  RECENT 
NOMINAL 

ICA3 

TRJ 

CLOSEST  APPROACH  CODE  FOR  ACTUAL 
TRAJECTORY  t 

ICDQ3S20B 

EVENT 

ARRAY  OF  COOES  WHICH  DETERMINE  WHICH 
EXECUTION  POLICIES  ARE  TO  BE  USED  IN  ■ 
GUIDANCE  EVENTS 

ICDT3420I 

EVENT 

.CODES  WHICH  DETERMINE  WHICH  GUIDANCE 
POLICIES  ARE  BEING  USED 

I CL 

VM 

CLOSEST  APPROACH  CODE 

=0  CLOSEST  APPROACH  NOT  ENCOUNTERED 

=1  CLOSEST  APPROACH  ENCOUNTERED 

XCL2 

VM 

CLOSEST  APPROACH  TERMINATION  CODE 
=0  DO  NOT  STOP  AT  CLOSEST  APPROACH 
STOP  AT  CLOSEST  APPROACH 

ICOOE 

OVER! 

MEASUREMENT  CODE 

ICOOR 

MISC 

COOE  TO  DETERMINE  WHICH  COORDINATE  SYSTEM 
THE  INITIAL  STATE  VECTOR  IS  INPUT 
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ICOORD 

CNTRIC 

NON-FUNCTIONAL  IN  ERROR  ANALYSIS  MODE 

I0ENS 

P8LK 

PROBABILITY  OENSITY  FUNCTION  CODE.  NON- 
FUNCT.ONAL 

IDNF 

wise 

DYNAMIC  NOISE  FLAG 

IEIG 

EVENT 

CODE  USED  TO  DECIOE  IF  BOTH  POSITION  AND 
VELOCITY  EIGENVECTORS  ARE  REQUESTED 

IEPHEM 

VH 

EPHEMERIS  CODE 

IEVNT450J 

EVENT 

COOES  OF  EVENTS 

IFINT  <103 

TARINT 

NOT  USED  IN  THIS  TRAJECTORY  VERSION 

IGP 

OVERZ 

MIDCOURSE  GIUOANCE  POLICY  CODE 

XGUID«5»I0) 

BAIM 

ARRAY  OF  GUIDANCE  EVENT  COOES 

IHYPi 

EVENT 

HYPERELLIPSOID  CODE  USED  TO  DETERMINE  IF 
K=i,  K=3,  OR  BOTH 

II 

BAIM 

/ 

GUIDANCE  EVENT  COUNTER 

IIGP 

PBLK 

MIOCOURSE  GUIDANCE  POLICY  COOE 

IIPOL 

EVENT 

CODE  WHICH  DETERMINES  IF  EITHER  TWO 
-VARXJ3LE  OR  THREE-VARIABLE  B-PLANE 
GUIDANCE  POLICY  HAS  OCCURRED 

XMNF 

MISC 

MEASUREMENT  NQXSE  FLAG 

INC 

COM 

DETERMINE  WHETHER  THE  ABOVE  OPTION  IS  TO 
BE  USED 

INCMNT 

COM 

NUMBER  OF  INCREMENTS  USED 

INCMT 

VM 

TOTAL  INCREMENTS  USED 

INCPR 

COM 

SPECIFIES  AFTER  HOW  MANY  TIME  INCREMENTS 
PRINT-OUT  IS  TO  OCCUR 

INITIAL 

CNTRIC 

NON-FUNCTIONAL  IN  ERROR  ANALYSIS  MODE 

INPR 

VM 

PRINT  INCREMENTS  <IN  INCREMENTS! 

INPX 

EXE 

IMPULSE  SERIES  CODE 

1 

I0PT7 

EVENT 

ORBIT  INSERTION  VARIABLE*  NON-FUNCTIONAL 
IN  EXISTING  PROGRAMS 

IPG 

COM 

PAGE  NUMBER 

IPHASE 

TARINT 

PHASE  COUNTER  FOR  CURRENT  TARGETING  EVENT 

I POL 

EVENT 

CODE  WHICH  DETERMINES  IF  FIXED-TIME-OF- 
ARRIVAL  GUIDANCE  EVENT  HAS  OCCURED 

IPO 

8AIM 

NOT  USED 

IPR 

COM 

A CODE  WHICH  DETERMINES  IF  PR I NT- OUT  IS  TO 
OCCUR  AFTER  A SPECIFIED  NUMBER  OF  DAYS 

IPRE 

TARINT 

CONTROLS  INITIALIZATION  OF  PROGRAM 
CONSTANTS  IN  SUBROUTINE  -PRELIM-* 

IPRINT 

VM 

PRINT  CODE 

=0  OUTPUT  INITIAL  AND  FINAL  DATA 
=1  DO  NOT  OUTPUT  DATA 

I PROS 

VH 

PROBLEM  NUMBER 

IPRT  (4) 

COM 

SPECIFIES  PRINT  OPTIONS  <NOT  APPLICABLE 
TO  STEAP  TRAJECTORY) 

I SOU 

► 

TRJ 

SPHERE  OF  INFLUENCE  CODE  FOR  ORIGINAL 
NOMINAL 

I SOI  2 

TRJ 

SPHERE  OF  INFLUENCE  CODE  FOR  MOST  RECENT 
NOMINAL 

I SOI  3 

TRJ 

SPHERE  OF  INFLUENCE  COOE  FOR  ACTUAL 
TRAJECTORY 

ISP2 

MI  SC 

SPHERE  OF  INFLUENCE  FLAG 

ISPH 

VM 

SPHERE  OF  INFLUENCE  CODE 

-0  SPHERE  OF  INFLUENCE  NOT  INTERSECTED 

=1  SPHERE  OF  INFLUENCE  INTERSECTED 

ISTART 

TARINT 

STAGE  OF  INITIAL  TARGETING 

=0  NO  TARGETING  STARTED 
=1  FIRST  PHASE  STARTED  -HAVE  TARG 
MATRIX 

=2  SECOND  PHASE  STARTED  - HAVE  TARG 
MATRIX 
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ISTM1 

TRAJCO 

ALTERNATE  STATE  TRANSITION  MATRIX  CODE 

ISTMC 

TRAJCO 

STATE  TRANSITION  MATRIX  CODE 

I STOP 

TARINT 

STOPPING  CONDITION  INDICATOR  IN  SUBROUTINE 
TARGET 

= 19  STOP  ON  TIME 
= 2,  STOP  AT  SPHERE-OF-INFLUENCE 
*3,  STOP  AT  CLOSEST  APPROACH 

ITAG 

LUNART 

FLAG  SPECIFYING  STAGE  OF  TARGETING 

=1  IN  SMA  TARGETING 

-2  IN  SMA,  INC,  RCA  TARGETING 

ITARM 

TARINT 

FLAG  TO  CONTROL  CONSTRUCTION  OF  TARGETING 
MATRICES 

= 0,  DO  NOT  CALCULATE  STATE  TRANSITION 
-i,  CALCULATE  STATE  TRANSITION  MATRIX 
AFTER  EACH  ITERATION 

ITR 

MI  SC 

MODE  FLAG 

ITRAT 

COM 

IN  INTERNAL  CODE  USED  TO  DETERMINE  HON 
MANY  ITERATIONS  HAVE  BEEN  ACCOMPLISHED  IN 
THE  VIRTUAL  MASS  PROCEDURE 

IX 

OVERX 

NONLINEAR  GUIDANCE  CODE 

I ZERO 

ZEROAT 

ZERO  ITERATION  FLAG 
=0  INITIAL  STATE  READ  IN 
=1  PLANET  TO  PLANET 
=2  PLANET  TO  POINT 
=3  POINT  TO  PLANET 
POINT  TO  POINT 
=10  LUNAR  TARGETING 

JX 

OVERX 

GUIDANCE  EVENT  COUNTER 

KAXTARC3) 

TARINT 

KEY  DEFINING  AUXILIARY  PARAMETERS  FOR 
CURRENT  EVENT 

KEVTAR<3J 

TARINT 

KEY  DEFINING  DESIRED  TARGET  PARAMETERS  FOR 
CURRENT  EVENT 

KGYDC10) 

TARINT 

FLAG  INDICATING  GUIDANCE  INFORMATION  IN 
CORRESPONDING  COLUMNS  OF  INPUT  ARRAYS 
=1,  INFORMATION 
=0,  NO  INFORMATION 

KL 

COM 

PROBLEM  NUMBER  <NOMNAL  ONLY) 

KMXQ(IO) 

TARINT 

COMPUTE/EXECUTE  MOOES  FOR  EACH  EVENT 
=1  COMPUTE  VELOCITY  CORRECTION  ONLY 
-2  EXECUTE  VELOCITY  CORRECTION  ONLY 
=3  COMPUTE  AND  IMMEDIATELY  EXECUTE  CORRECTIONS 
=4  COMPUTE  BUT  EXECUTE  CORRECTION  LATER 

KOAST 

ZERDAT 

=-l,  SHORT  COAST.  LONG-COAST 

KOUNT 

COM 

A CODE  WHICH  SPECIFIES  WHETHER  PRINT-OUT 
IS  TO  OCCUR  AFTER  THIS  TIME  INCREMENT 

KPRINT 

XX  KL 

CORRELATION  MATRIX  PRINT  COOE 

KSICA 

TARINT 

*. 

STOPPING  CONDITION  INDICATOR  IN  SUBROUTINE 
TRJTRY  = 1,  STOP  ON  TIME 

=2,  STOP  AT  SPHERE-OF-INFLUENCE 

=3,  STOP  AT  CLOSEST  APPROACH 

KTARCGyiO) 

TARINT 

COOES  OF  TARGET  PARAMETERS  CUP  TO  6)  FOR 
EACH  TARGETING  EVENT  OR  ORBIT  INSERTION 
OPTION  FOR  EACH  INSERTION  EVENT 

KTIM(IO) 

TARINT 

EPOCH  TO  WHICH  GUIDANCE  EVENT  TIMES 

ARE  REFERENCED 

±0  EVENT  NOT  PROCESSED 

=1  INITIAL  TIME 

=2  SOI  TIME 

=3  CA  TIME 

=4  CALENDAR  DATE 

KTYPCIO) 

TARINT 

TYPE  OF  GUIDANCE  EVENT  FOR  EACH  EVENT 
=~1  TERMINATION  EVENT 
=i  TARGETING  EVENT 
=2  RETARGETING  EVENT 
-3  ORBIT  INSERTION  EVENT 

KMXCU10) 

TARINT 

COMPUTE/EXECUTE  MOOES  FOR  EACH 
GUIDANCE  EVENT 

=1  COMPUTE  VELOCITY  CORRECTION  ONLY 
“2  EXECUTE  VELOCITY  CORRECTION  ONLY 
-3  COMPUTE  AND  IMMEDIATELY  EXECUTE 
CORRECTION 

=4  COMPUTE  BUT  EXECUTE  CORRECTION  LATER 
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KUR 

TARINT 

FLAG  INDICATING  WHICH  EVENT  IS  THE  CURRENT 
EVENT 

KM  IT 

TARINT 

TERMINATION  INDICATOR  =09  CONTINUE  RUN 

=1?  TERMINATE  RUN 

LEV 

TARINT 

CURRENT  LEVEL  IN  CURRENT  TARGETING  EVENT 

LEVELS 

TARINT 

NUMBER  OF  ACCURACY  LEVELS  FOR  CURRENT 
EVENT 

LIMCT 

' COM 

LINE  COUNT  (NGMNAL  ONLY) 

LINPGE 

COM 

LINES  PER  PAGE  5 NOMNAL  ONLY) 

LKLPdOJ 

TARVAR 

ARRAY  OF  LAUNCH  PLANETS 

LKTAR(6»iO) 

TARVAR 

ARRAY  DEFINING  TARGET  PARAMETERS 

LKTP(IO) 

TARVAR 

ARRAY  OF  TARGET  PLANETS 

LLVLS  410) 

TARVAR 

NUMBER  OF  INTEGRATION  ACCURACY  LEVELS  USEO 

LNPARdO) 

TARVAR 

NUMBER  OF  TARGET  PARAMETERS  DESIRED 

LTAR5 

ZERDAT 

* Op  INTERPLANETARY  TARGETING.  =1*  LUNAR 

targeting 

LVLS 

TARINT 

NUMBER  OF  ACCURACY  LEVELS  TO  BEUSED  ON 
EACH  TARGETING  EVENT 

HAT(IO) 

TARINT 

TARGETING  MATRIX  COMPUTATION  COOE  FOR 
EACH  TARGETING  EVENT 

COMPUTE  TARGETING  MATRIX  ONLY  AT 
FIRST  LEVEL 

=2  COMPUTE  TARGETING  MATRIX  AT  EACH  STEP 

MATX 

TARINT 

MATRIX  COMPUTATION  CODE  FOR  CURRENT 
TARGETING  EVENT  (SEE  DEFN  OF  MAT) 

MAXB(IQ) 

TARINT 

THE  NUMBER  OF  BAD  STEPS  ALLOWED  DURING 
ANY  TARGETING  EVENT 

MAXBAO 

TARINT 

MAXIMUM  NUMBER  OF  BAD  ITERATIONS  FOR 
CURRENT  EVENT 

MCNTR 

MEAS 

NUMBER  OF  MEASUREMENTS  HAVING  OCCURREO 

MCODE  (±0001 

MEAS 

ARRAY  OF  MEASUREMENT  CODES 

HOL(IO) 

TARINT 

EXECUTION  MODELS  FOR  EACH  GUIDANCE  EVENT 
IMPULSIVE 
-2  PULSING  ARC 

MNCNC12) 

CONST 

MEASUREMENT  NOISE  CONSTANTS 

MNNAMEU293> 

NAME 

MEASUREMENT  NAME 

MONTHUZ) 

PRT 

NAMES  OF  MONTHS 

NAE 

EVENT 

AOAPTIVE  FILTERING  EVENTS  HAVING  OCCURRED* 

NAF6 (20) 

EVENT 

ARRAY  OF  ADAPTIVE  FILTERING  EVENT  COOES* 
NONFUNCTIONAL  IN  EXISTING  PROGRAM 

NAFC 

OVER! 

ADAPTIVE  FILTER  FLAG 

NBtii) 

VM 

CODES  OF  PLANETS 

NBilll) 

SI  M2 

ARRAY  OF  PLANET  CODES  IN  ACTUAL  TRAJECTORY 

NBOD 

VM 

NUMBER  OF  BODIES  USED  IN  VIRTUAL  MASS 
PROGRAM 

NBOOi 

SI  M2 

NUMBER  OF  BODIES  IN  ACTUAL  TRAJECTORY 

NBOOY 

COM 

EQUAL  TO  4*NB0DYI-3 

MBODYI 

COM 

NUMBER  OF  BODIES  CONSIDERED  IN  VIRTUAL 
MASS  TRAJECTORY 

NCPR 

TARINT 

NUMBER  OF  INTEGRATION  INCREMENTS  BETWEEN 
PRINT-OUTS  OF  NOMINAL  TRAJECTORY 

NDACC 

TRAJCD 

NUMERICAL  DIFFERENCING  ACCURACY  CODE 

NOXM1 

STVEC 

DIMENSION  OF  SOLVE-FOR  PARAMETER  STATE 

NOIM2 

STVEC 

DIMENSION  OF  DYNAMIC  CONSIDER  STATE 

NOIM3 

STVEC 

DIMENSION  OF  MEASUREMENT  CONSIDER 
PARAMETER  STATE 

NEV 

EVENT 

NUMBER  OF  EVENTS 

NEV1 

EVENT 

TOTAL  NUMBER  OF  EIGENVECTOR  EVENTS 

NEV2 

EVENT 

TOTAL  NUMBER  OF  PREDICTION  EVENTS 
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NEV3 

EVENT 

TOTAL  NUMBER  OF  GUIDANCE  EVENTS 

NEV4 

EVENT 

TOTAL  NUMBER  OF  -COMCON-  EVENTS 

NEV5 

EVENT 

TOTAL  NUMBER  OF  QUASI-LINEAR  FILTERING 
EVENTS 

NEV6 

EVENT 

TOTAL  NUMBER  OF  ADAPTIVE  FILTERING  EVENTS. 
NON-FUNCTIONAL  IN  EXISTING  PROGRAM 

NEV7 

EVENT 

ORBIT  INSERTION  VARIABLES.  NON-FUNCTIONAL 
IN  EXISTING  PROGRAM 

IN 

NEV8 

EVENT 

ORBIT  INSERTION  VARIABLE.  NON-FUNCTIONAL 
IN  EXISTING  PROGRAMS 

NEV9 

EVENT 

ORBIT  INSERTION  VARIABLES.  NON-FUNCTIONAL 
IN  EXISTING  PROGRAM 

IN 

NEV10 

EVENT 

ORBIT  INSERTION  VARIABLES.  NON-FUNCTIONAL 
IN  EXISTING  PROGRAM 

IN 

NEVii 

EVENT 

ORBIT  INSERTION  VARIABLES.  NON-FUNCTIONAL 
IN  EXISTING  PROGRAM 

IN 

NGE 

EVENT 

NUMBER  OF  GUIDANCE  EVENTS  HAVING  OCCURRED 

NINETY 

DPNUH 

THE  NUMBER  NINETY  C90S  TO  NINE  SIGNIFICANT 
FIGURES.  TARGETING  MODE  ONLY 

NITS 

TARINT 

ALLOWABLE  NUMBER  OF  ITERATIONS  FOR  CURRENT 
EVENT 

NLP 

VM 

CODE  OF  LAUNCH  PLANET 

NMN 

MEAS 

TOTAL  NUMBER  OF  MEASUREMENTS 

NOU1J 

SLK 

AN  ARRAY  OF  PLANET  CODES  BEING  USED  TO 
GENERATE  THE  VIRTUAL  MASS  TRAJECTORY 

N06YD 

TARINT 

TOTAL  NUMBER  OF  GUIDANCE  EVENTS 

NOITUO) 

TARINT 

THE  NUMBER  OF  TOTAL  ITERATIONS  ALLOWED  AT 
THE  FIRST  AND  LAST  LEVELS  OF  TARGETING 
EVENTS  FOR  EACH  GUIDANCE  EVENT 

NOPAR 

TARINT 

NUMBER  OF  TARGET  PARAMETERS  FOR  CURRENT 
EVENT 

NOPHAS 

TARINT 

NUMBER  OF  TARGETING  PHASES  FOR  CURRENT 
EVENT 

NOSOI 

TARINT 

OUTER  TARGETING  FLAG 
=0  NORMAL  TARGETING 
=1  OUTER  TARGETING 

NPE 

EVENT 

NUMBER  OF  PREDICTION  EVENTS  HAVING 
OCCURRED 

NPUL 

PULS 

NUMBER  OF  PULSES  IN  PULSING  ARC 

NQE 

EVENT 

QUASI-LINEAR  FILTERING  EVENTS  HAVING 
OCCURRED 

MR 

OVER! 

NUMBER  OF  ROWS  IN  THE  OBSERVATION  MATRIX 

NST 

CONST 

NUMBER  OF  STATIONS  TO  BE  USED  (MAXIMUM  3) 

NTMC 

TRAJCD 

NOMINAL  TRAJECTORY  COOE 

NTP 

VM 

CODE  OF  TARGET  PLANET 

OMEGA 

CONST 

EARTH-S  ROTATION  RATE 

ONE 

DPNUM 

THE  NUMBER  ONE  (1)  TO  NINE  SIGNIFICANT 

FIGURES 

OT  ARCS) 

LUNART 

OESIREO  VALUES  OF  SMA,RCA,  AND  INC 

P(6,6) 

STM 

POSITION/VELOCITY  COVARIANCE 

P8C6?&) 

STM 

POSITION/VELOCITY  COVARIANCE  AT  INITIAL 
TIME 
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ORBIT  INSERTION  VARIABLES..  NON-FUNCTIONAL 
EXISTING  PROGRAM 

IN 

PCON(3) 

LUNART 

PERTURBATIONS  IN  CONTROLS (ALPHA?DELTA» 
THETA) 

PERP7 

EVENT 

ORBIT  INSERTION  VARIABLES.  NON-FUNCTIONAL 
EXISTING  PROGRAM. 

IN 

PERV(iO) 

TAREAL 

PERTURBATIONS  SIZE  FOR  VELOCITY  COMPONENTS 
IN  CONSTRUCTING  SENSITIVITY  MATRICES  IN 
TARGETING  EVENTS 

PG(6$  6J 

GUI 

POSITION/VELOCITY  CONTROL  COVARIANCE 
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PHI(3,3> 

TAREAL 

TARGETING  MATRIX,  REQ-D  ONLY  IF  ISTART-i*2 

PHIC 6*6) 

STM 

POSITION/VELOCITY  STATE  TRANSITION  MATRIX 

PHI2  (3*3) 

BAIM 

INVERSE  OF  VARIATION  MATRIX  PARTITION 

PHILS 

ZEROAT 

LATITUOE  OF  LAUNCH  SITE 

PI 

COM 

THE  VALUE  OF  THE  MATHEMATICAL  CONSTANT  PI 

PLANET (IIS 

PRT 

NAMES  OF  PLANETS 

PMASS(il) 

BLK 

GRAVITATIONAL  CONSTANTS  OF  PLANETS  IN 
A,U.**3/DAY**2 

POI 

PBLK 

PROBABILITY  OF  IMPACT 

PP(6,6) 

STM 

POSITION/VELOCITY  COVARIANCE  MATRIX 
PRIOR  TO  PROCESSING  A MEASUREMENT 

PROBI 

BAIM 

ALLOWABLE  PROBABILITY  OF  IMPACT 

PS  (24*24) 

STM 

SOLVE-FOR  PARAMETER  COVARIANCE 

PSB(24*24) 

STM 

SOLVE-FOR  PARAMETER  COVARIANCE  AT  INITIAL 
TIME 

PSG<24,24) 

GUI 

SOLVE-FOR  PARAMETER  CONTROL  COVARIANCE 

i 

PSII 

ZEROAT 

ANGLE  OF  FIRST  BURN 

PSI2 

ZEROAT 

ANGLE  OF  SECOND  BURN 

PSP<24*24) 

STM 

SOLVE-FOR  PARAMETER  COVARIANCE  MATRIX 
PRIOR  TO  PROCESSING  A MEASUREMENT 

PSTAR 

PBLK 

NOMINAL  PROBABILITY  DENSITY  FUNCTION 
EVALUATED  AT  TARGET  PLANET  CENTER 

PULHAG 

PULS 

THRUST  MAGNITUDE  OF  PULSING  ENGIEN 

PULHAS 

PULS 

NOMINAL  MASS  OF  SPACECRAFT  DURING  PULSING 
ARC 

PULT 

PULS 

TOTAL  TIME  INTERVAL  OF  PULSING  ARC 

DYNAMIC  NOISE  COVARIANCE  MATRIX 


0(6; 65 
QK<6,6) 

RU,4» 

RAP 

RAD 

RADIUS  fill 

RCC6J 

RCA 

RCA 

RCA1C6I 

RCA? C 65 

RCA3 ( 61 

RE  {6) 

RES<U 

RFC6) 

RF<6) 

RFU65 

RF1I6) 

RI«65 

RIC6) 

RK6J 

RX1 


STM 

EXE  EFFECTIVE  EXECUTION  ERROR  COVARIANCE 

MATRIX 

STM  MEASUREMENT  NOISE  COVARIANCE  MATRIX 

ZOUT  RIGHT  ASCENSION  OF  VHP 

COM  THE  NUMBER  OF  DEGREES  PER  RAOIAN 

9LK  THE  RADIUS  OF  A GIVEN  PLANET  IN  A*U« 

VM  STATE  AT  CLOSEST  APPROACH 

VM  MAGNITUDE  OF  CLOSEST  APPROACH  POSITION 

VECTOR 

LUNART  RADIUS  OF  CLOSEST  APPROACH  TO  MOON 
CDESIRED) 

TRJ  STATE  AT  CLOSEST  APPROACH  ON  ORIGINAL 

NOMINAL 

TRJ  STATE  AT  CLOSEST  APPROACH  ON  MOST  RECENT 

NOMINAL 

TRJ  STATE  AT  CLOSEST  APPROACH  ON  ACTUAL! 

TRAJECTORY 

VM  POSITION  AND  VELOCITY  OF  EARTH 

SI Ml  RESIDUAL 

OVER  FINAL  TARGETED  NOMINAL  STATE  VECTOR 

OVERZ  FINAL  TARGETEO  STATE  VECTOR 

OVER  FINAL  MOST  RECENT  NOMINAL  STATE  VECTOR 

OVERZ  FINAL  MOST  RECENT  NOMINAL  STATE  VECTOR 

0VER1  INITIAL  TARGETED  NOMINAL  STATE  VECTOR 

OVERR  STATE  VECTOR  AT  EVENT  TIME 

LUNART  GEOCENTRIC  STATE  OF  S/C  AT  LUNAR  SOI 
0VER1  INITIAL  MOST  RECENT  NOMINAL  STATE  VECTOR 
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RIN<65 

TAREAL 

CURRENT  STATE  VECTOR  AT  I-TH  EVENT 

RK  (2  f 3) 

PULS 

y 

POSITION  VECTORS  OF  LAUNCH  AND  TARGET 
PLANETS  AT  IMPULSIVE  TIME(MIOPOINT  OF 
PULSING  ARC) 

RMASS(li) 

8LK 

THE  RELATIVE  GRAVITATIONAL  CONSTANT  OF  A 
STATED  PLANET  WITH  RESPECT  TO  THE  SUN 

RME<6> 

LUNART 

GEOCENTRIC  STATE  OF  CENTER  OF  MOON  IN 
ECLIPTIC  COORDINATES  AT  TSI 

RMQ56) 

LUNART 

GEOCENTRIC  STATE  OF  CENTER  OF  MOON  AT 
TSI  IN  EQUATORIAL  COORDINATES 

RP  . 

ZERDAT 

PARKING  ORBIT  RADIUS 

RPE 

LUNART 

RADIUS  OF  EARTH  PARKING  ORBIT 

RPRAT 

ZERDAT 

PARKING  ORBIT  INVERSE  RATE 

RRFC 3) 

TAREAL 

SPACECRAFT  POSITION  AT  END  OF  INTEGRATION 
USED  IN  BROKEN  PLANE  TARGETING 

RSIC3) 

VH 

POSITION  AT  SPHERE  OF  INFLUENCE 

RSIC6) 

LUNART 

SELENOCENTRIC  STATE  OF  S/C  AT  LUNAR'  SOI 

RS0I1C3) 

TRJ 

POSITION  AT  SPHERE  OF  INFLUENCE  ON  ' 
ORIGINAL  NOMINAL 

RS0I2 (35 

TRJ 

POSITION  AT  SPHERE  OF  INFLUENCE  ON  MOST 
RECENT  NOMINAL 

RS0I3C3S 

TRJ 

POSITION  AT  SPHERE  OF  INFLUENCE  ON  ACTUAL 
TRAJECTORY 

RTP( 6) 

VM 

POSITION  AND  VELOCITY  OF  TARGET  PLANET 

RVS<6) 

VH 

POSITION  OF  VEHICLE  RELATIVE  TO  VIRTUAL 
MASS 

S<2 

STM 

KALMAN  GAIN  CONSTANT  FOR  SOLVE-FOR 
PARAMETERS 

SAL<35 

CONST 

ALTITUDES  OF  STATIONS 

SIGALP 

EVENT 

VARIANCE  OF  ERROR  IN  POINTING  ANGLE  i 

SIGBET 

EVENT 

VARIANCE  OF  ERROR  IN  POINTING  ANGLE  2 

SXGMAL 

ZEROAT 

NOMINAL  LAUNCH  AZIMUTH 

SIGPRO 

EVENT 

VARIANCE  OF  PROPORTIONALITY  ERROR 

SIGRES 

EVENT 

VARIANCE  OF  RESOLUTION  ERROR 

SLAT i 3) 

CONST 

LATITUDES  OF  STATIONS 

SL8(  9) 

SIMCNT 

BIASES  IN  STATION  LOCATION  CONSTANTS 

SL0N(3) 

CONST 

LONGITUDES  OF  STATIONS 

SMA 

LUNAR7 

SIMI-MAJOR  AXIS  OF  LUNAR  HYPERBOLA 
< DESIRED) 

SMJR( 183 

BLK 

CONSTANTS  USED  TO  CALCULATE  THE  SEMI-MAJOR 
AXES  OF  THE  PLANETS 

SPHERE  ill? 

BLK 

THE  SPHERES  OF  INFLUENCE  OF  THE  PLANETS  IN 
A»U« 

SPHFACUO) 

TAREAL 

REDUCTION  FACTORS  FOR  TARGET  PLANET  SPHERE 
OF  INFLUENCE  FOR  EACH  EVENT 

SSS( 31 

VM 

DIRECTION  COSINES  VECTOR  OF  SPACECRAFT 
SPIN  AXIS 

t 

ST«505 

BLK 

CONSTANTS  USED  TO  CALCULATE  THE  ORBITAL 
ELEMENTS  OF  THE  LAST  FOUR  PLANETS 
tSEE  LARGE  ARRAY  DEFNS  IN  SECTION  5.3) 

T 

BLK 

TRAJECTORY  TIME  IN  DAYS 

T1C20S 

THH2 

EIGENVECTOR  EVENT  TIMES 

T2«20J 

i 

THH2 

PREDICTION  EVENT  STARTING  TIMES 

T3  <10  J 

BAXM 

ARRAY  OF  GUIDANCE  EVENT  TIMES 

TM20J 

TMM2 

CONIC  COMPUTATION  EVENT  TIMES 

T5<20$ 

TMW2 

QUASI-LINEAR  EVENT  TIMES 

87 


T6420) 

TMW2 

NOT  USED 

T7 

TMW2 

NOT  USEO 

TACA 

VM 

TRAJECTORY  SEMIMAJOR  AXIS  WITH  RESPECT 
TO  TARGET  BODY  AT  CLOSEST  APPROACH  TO 
TARGET  BODY 

T AR<  6» 10) 

TAREAL 

DESIREO  VALUES  OF  TARGET  PARAMETERS  <UP 
TO  6 AVAILABLE)  FOR  EACH  GUIDANCE  EVENT 

TAU7 

EVENT 

0R8IT  INSERTION  VARIABLES.  NON-FUNCTIONAL 
IN  EXISTING  PROGRAM 

TCA 

LUNART 

J.D.  OF  TIME  AT  LUNAR  CLOSEST  APPROACH 
{DESIRED) 

TCA1 

TRJ 

TIME  AT  CLOSEST  APPROACH  OF  ORIGINAL 
NOMINAL 

TCA2 

TRJ 

TIME  AT  CLOSEST  APPROACH  OF  MOST  RECENT 
NOMINAL 

TCA3 

TRJ 

TIME  AT  CLOSEST  APPROACH  OF  ACTUAL 
TRAJECTORY 

TEN 

OPNUM 

THE  NUMBER  TEN  CIO)  TO  NINE  SIGNIFICANT 
FIGURES.  TARGETING  MODE  ONLY 

TEV450) 

EVENT 

TIMES  OF  EVENTS 

TEVN 

OVER! 

TIME  OF  CURRENT  EVENT 

TEVN 

OVERR 

EVENT  TIME 

TF 

ZERO  AT 

NOT  USED 

TG 

GUI 

TRAJECTORY  TIME  AT  MOST  RECENT  GUIDANCE" 
EVENT 

TGT3410J 

TARVAR 

DESIRED  TARGET  TIMES  REFERENCED  TO  INITIAL 
TRAJECTORY  TIME 

THEOOT 

ZERDAT 

ROTATION  RATE  OF  LAUNCH  PLANET 

THELS 

ZERDAT 

LONGITUDE  OF  LAUNCH  SITE 

THREE 

OPNUM 

THE  NUMBER  THREE  «3>  TO  NINE  SIGNIFICANT 
FIGURES 

TI 

ZERDAT 

NOT  USEO 

TIMGC10J 

TAREAL 

TIMES  OF  EACH  GUIDANCE  EVENT  REFERENCED 
TO  EPOCH- INITIAL  TIHE,  SOI  TIME, 

OR  CA  TIME 

TIM1 

ZERO AT 

TIHE  OF  FIRST  BURN 

TIM2 

ZEROAT 

TIME  OF  SECOND  BURN 

TXMINT 

VM 

TOTAL  TIME  USEO 

TIMS 

TAREAL 

INTERNAL  CLOCK  TIME  AT  START  OF  COMPUTER 
RUN 

TIN 

TAREAL 

JULIAN  DATE  AT  INJECTION 

TINJ 

BAIM 

INJECTION  TIME 

TH 

VM 

TIME  UNITS  PER  DAY 

TMNCiOS.0) 

ME  AS 

TIMES  OF  MEASUREMENTS 

TMPR43J 

BAIM 

MOST  RECENT  TARGET  STATE 

TI0HBC35 

8AIM 

NOMINAL  B-PLANE .TARGET  STATE 

T0OMCCTI 

8AIM 

NOMINAL  CLOSEST  APPROACH  TARGET  STATE 

THU 

TAREAL 

GRAVITATIONAL  CONSTANT  OF  TARGET  PLANET 

TMU 

LONART 

GRAVITATIONAL  CONSTANT  OF  M0QNCKM3/SECES 

TOLCSpiO) 

TAREAL 

ALLOWABLE  TOLERANCES  OF  TARGET  PARAMETERS 
FOR  EApH  GUIQANCE  EVENT 

TRTM 

TARgAL 

TRAJECTORY  TIME  (DAYS)  REF,  TO  INJECTION 

?OL«G,tjB> 

i 

TAREAL 

TOLERANCES  OF  TARGET  PARAMETERS  FOR  EACH 
TARGETING  EVENT 

T0LRC6J 

TAREAL 

NOT  USEO  IN  CURRENT  TARGET  VERSION 
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TPT2 ( 20) 

EVENT 

ARRAY  OF  TIMES  TO  WHICH  A PREDICTION  IS  MADE 

TRTM 

TAREAL 

TRAJECTORY  TIME  ON  NOMINAL  TRAJECTORY 

TRTM1 

TIME 

INITIAL  TRAJECTORY  TIME 

TRTHB 

TIME 

TRAJECTORY  TIME  AT  BEGINNING  OF  TRAJECTORY 

TSI 

LUNART 

PROJECTED  J,0«  AT  SOI  INERTSECTION 

TSOIi 

TRJ 

TIME  AT  SPHERE  OF  INFLUENCE  OF  ORIGINAL 
NOMINAL 

TS0I2 

TRJ 

TIME  AT  SPHERE  OF  INFLUENCE  OF  MOST  RECENT 
NOMINAL 

TSOI  3 

TRJ 

TIME  AT  SPHERE  OF  INFLUENCE  OF  ACTUAL 
TRAJECTORY 

TSPH 

LUNART 

RADIUS  OF  LUNAR  SOI  <KM) 

TTIHi 

SIMCNT 

FIRST  TIME  USED  FOR  UNMODELLEO 
ACCELERATION 

TTIH2 

SIMCNT 

SECOND  TIME  USED  FOR  UNMODELLED 
ACCELERATION 

TTOL (3) 

LUNART 

ALLOWABLE  TOLERANCES  IN  SMA?8.T,B»R 

i 

TWO 

DPNUM 

THE  NUMBER  TWO  (2)  TO  NINE  SIGNIFICANT 

FIGURES 

TWOPI 

DP HUM 

THE  MATHEMATICAL  CONSTANT  2.*PX 

TXUJ&,85 

STM 

STATE.  TRANSITION  MATRIX  PARTITION 
ASSOCIATED  WITH  DYNAMIC  CONSIDER  PARAMETERS 

TXXSC6s>2U 

STM 

STATE  TRANSITION  MATRIX  PARTITION 
ASSOCIATED  WITH  SOLVE-FOR  PARAMETERS 

UO  (8  p 8) 

STM 

DYNAMIC  CONSIDER  PARAMETER  COVARIANCE 
MATRIX 

UNIVT 

TIME 

UNIVERSAL  TIME 

UNHACt3*3$ 

SIMCNT 

UNMODELLEO  ACCELERATION 

UST(35 

CONST2 

DIRECTION  COSINES  OF  3 REFERENCE  STARS 

V ( 16  p 7) 

COM 

AN  ARRAY  WHICH  STORES  PERTINANT  VECTORS 
USED  IN  THE  CALCULATION  OF  THE  VIRTUAL 
MASS  TRAJECTORY 

(SEE  LARGE  ARRAY  OEFNS  IN  SECTION  5.3) 

VO  C15 jl5) 

STM 

MEASUREMENT  CONSIDER  PARAMETER  COVARIANCE 
MATRIX 

VHPM 

ZOUT 

MAGNITUDE  OF  HYPERBOLIC  EXCESS  VELOCITY 
AT  TARGET  BODY  (VHP  VECTOR) 

VINF 

8AIM 

HYPERBOLIC  EXCESS  VQLOCITY 

VK(2,3> 

PULS 

VELOCITY  VECTORS  OF  LAUNCH  AND  TARGET 
PLANETS  AT  IMPULSIVE  TIME  (MIDPOINT  OF 
- PULSING  ARC) 

VMU 

VM 

GRAVITATIONAL  CONSTANT  OF  VIRTUAL  MASS 

VSI(3)  - 

VM 

VELOCITY  AT  SPHERE  OF  INFLUENCE 

VS0I1C3) 

i 

TRJ 

VELOCITY  AT  SPHERE  OF  INFLUENCE  ON 
ORIGINAL  NOMINAL 

VS0I2 (3) 

TRJ 

VELOCITY  AT  SPHERE  OF  INFLUENCE  ON  MOST 
RECENT  NOMINAL 

VS0X3C3) 

TRJ 

VELOCITY  AT  SPHERE  OF  INFLUENCE  ON,  ACTUAL 
TRAJECTORY 

VST (3) 

C0NST2 

DIRECTION  COSINES  OF  3 REFERENCE  STARS 

W (17) 

SI  Ml 

ACTUAL  DYNAMIC  NOISE 

WST (3) 

C0MST2 

DIRECTION  COSINES  OF  3 REFERENCE  STARS 

XAC(5P10) 

TARVAR 

ACCURACY  LEVELS  EMPLOYED  IN  TARGETING 

X8  (6) 

ST  VEC 

BEGINNING  ORIGINAL  NOMINAL  VEHICLE  STATE 
VECTOR 

X80T 

SAVVAL 

1 

ORIGINAL  VALUE  OF  B.T  IN  N-L  GUIDANCE 

X8DR 

SAVVAL 

ORIGINAL  VALUE  OF  B.R  IN  N“L  GUIDANCE 

XDC 

SAVVAL 

ORIGINAL  VALUE  OF  DC  IN  N-L  GUIDANCE 

XDELV(3910I 

TARVAR 

NONLINEAR  VELOCITY  CORRECTION 
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XDSI 

SAVVAL 

ORIGINAL  VALUE  OF  TSI  IN  N-L  GUIOANCE 

XD.VMAX  <10 ) 

TAR VAR 

MAXIMUM  ALLOWABLE  VELOCITY  CORRECTION 

XFC6) 

STVEC 

FINAL  VEHICLE  STATE  VECTOR  OF  ORIGINAL 
NOMINAL 

XF1C6I 

SIM1 

FINAL  STATE  VECTOR  OF  MOST  RECENT  NOMINAL 
TRAJECTORY 

XFACUO) 

TARVAR 

SPHERE  OF  INFLUENCE  FACTORS 

XGC6) 

GUI 

STATE  VECTOR  AT  TIME  OF  LAST  GUIOANCE 
EVENT 

XI  <6> 

STVEC 

INITIAL  VEHICLE  STATE  VECTOR  OF  ORIGINAL 

NOMINAL 

XI1(6) 

SlMi 

INITIAL  STATE  VECTOR  OF  MOST  RECENT 
NOMINAL 

XXN«6> 

OVERX 

STATE  VECTOR  TRANSFERRED  TO  NONLIN 

XLAB(6J 

XX  XL 

VEHICLE  POSITION/VELOCITY  VECTOR 
COMPONENT  NAMES 

XLAM<2?2» 

PBLK 

PROJECTION  OF  TARGET  CONDITION  COVARIANCE 
MATRIX  INTO  THE  IMPACT  PLANE 

XLAMX<2,2) 

PBLK 

INVERSE  OF  XLAM(2,2) 

XMUS(2) 

PBLK 

NOMINAL  IMPACT  PLANE  TARGET  STATE 

XNM<2A) 

XXXL 

AUGUMENTATION  PARAMETER  LABELS 

XPC6J 

8LK 

THE  POSITION  AND  VELOCITY  OF  A PLANET  IN 
HELIOCENTRIC  ECLIPTIC  COORDINATES 

XPERVfiOl 

TARVAR 

VELOCITY  PERTURBATION  USED  TO  COMPUTE 
TARGETING  MATRIX 

XRC<6) 

SAVVAL 

ORIGINAL  VALUE  OF  RC  IN  N-L  GUIDANCE 

XRSX135 

SAVVAL 

ORIGINAL  VALUE  OF  RSI  IN  N~L  GUIDANCE 

XSL<2W 

XXXL 

SOLVE-FOR  PARAMETER  LABELS 

XT  AR (6*10 ) 

TARVAR 

DESIRED  TARGET  VALUES 

XTOL(6,iOJ 

YARVAR 

TOLERANCES  ON  TARGET  PARAMETERS 

XU(fi) 

XXXL 

DYNAMIC  CONSIOER  PARAMETER  LABELS 

XV  (15  9 

XXXL 

MEASUREMENT  CONSIDER  PARAMETER  LABELS 

XVSK3) 

SAVVAL 

ORIGINAL  VALUE  OF  VSI  IN  N-L  GUIOANCE 

XXIN<6) 

EXE 

STATE  VECTOR  TRANSFERRED  TO  EXCUT  OR 
EXCUTS 

Z(17) 

SIMi 

ACTUAL  STATE  VECTOR 

Z0ATC6J 

ZERO  AT 

ZERO  ITERATE  VECTOR 

IF  IZERO=Q  ZDAT <±-6)  = INITIAL  STATE 

=2,3,4,  ZDAT<i-3>=  INITIAL 

POSITION 

ZDAT (4-6)=  FINAL  POSITION 

ZERO 

DPNUM 

THE  NUM8ER  ZERO  (0)  TO  NINE  SIGNIFICANT 
FIGURES 

ZIC17) 

SIMi 

INITIAL  ACTUAL  STATE  VECTOR 

ZF<6) 

SIMI 

FINAL  ACTUAL  STATE  VECTOR  AFTER  ADDING  THE 

EFFECT  OF  UNMODELED  ACCELERATION 
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5.  3 Large  Array  Definitions 

In  this  section  large  arrays  appearing  in  COMMON  will  be  displayed. 

The  arrays  depicted  are  frequently  referenced  in  trajectory  propagation 
subroutines  in  STEAPj  hence  the  programmer  studying  such  subroutines  will 
find  the  following  tables  extremely  useful. 

Tables  5. 1 to  5. 5 describe  arrays  containing  planetary  ephemerls  con- 
stants. The  values  actually  stored  in  these  arrays  may  be  found  in  the 
documentation  for  BLOCK  DATA.  Tables  5.6  through  5.8  contain  variables  used 
in  the  virtual  mass  propagation  procedure.  Discussions  of  these  variables 
may  be  found  in  VMP,  EFHEM,  ORB,  and  similar  routines. 


Constant 

i 

CO 

e 

M 

a 

CO 

E 

ao 

al 

Mercury 

1 

2 

3 

4 

5 

6 

.7 

8 

1 

2 

Venus 

9 

10 

11 

12 

13 

14 

15 

16 

3 

4 

Earth 

17 

18 

19 

20 

21 

:.22 

23 

24 

5 

6 

Mars 

25 

26 

27 

28 

29 

30 

31 

32 

7 

8 

Jupiter 

33 

34 

35 

36 

37 

38 

39 

40 

9 

10 

Saturn 

41 

42 

43 

44 

45 

46 

47 

48 

11 

12 

Uranus 

49 

50 

51 

52 

53 

54 

55 

56 

13 

14 

Neptune 

57 

58 

59 

60 

61 

62 

63 

64 

15 

16 

Pluto 

65 

66 

67 

68 

69 

70 

71 

72 

17 

18 

Moon 

73 

74 

75 

76 

77 

78 

79 

80 

Table  5. 1 ELMNT  Array  — Conic  Elements  Table  5. 2 SMJR'  Array 


Constant 

i0 

*1 

±2 

i3 

J20 

fil 

°2 

% 

cou 

0 

"L 

"2 

r** 

“3 

eo 

S1 

e2 

e3 

Mo 

M1 

M2 

M3 

Mercury 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

Venus 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

Earth 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

Mars 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

Table  5, 3 CN  Array  — Inner  Planet  Constants 


Constant 

*0 

H 

°L 

rss 

W0 

®L 

eo 

el 

Mo 

M1 

Jupiter 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

Saturn 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

Uranus 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

Neptune 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

Pluto 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

Table  5.4  ST  Array  — Outer  Planet  Constants 


Constant 


Moon 


1 2 3 4 5 6 


7 8 9 10  11  12  13  14  15 


Table  5.5  EMN  Array  — Lunar  Constants 


XI 

F- Array 
yl 

zl 

T1 

X1 

yl 

£1 

V1 

*81 

y81 

2si 

rSl 

Note : 

X 

yen 

L. 

v_, 

Subscript  i indicates  component  ie 

S1 

’'SI 

SI 

SI 

i-th  body  referenced  to  inertial 

X2 

y2 

Z2 

r2 

coordinate  system 

Subscript  si  indicates  component 

X2 

y2 

Z2 

V2 

is  spacecraft  referenced  to  i-th 
body 

XS2 

yS2 

ZS2 

rS2 

*S2 

CM 

CO 

ZS2 

CM 

>W 

4 

• 

• 

4 

4 

4 

• 

• 

• 

9 

4 

Table  5. 6 E-Array  — Ephemeris  Data 


TRG(l) 

cos  E 

TRG (5) 

cos  i 

TRG  (9)  coew 

TRG  (13) 

cos(4J  + f) 

TRG (2) 

Bin  E 

TRG (6) 

sin  i 

TRG  (10)  sin  o) 

TRG (14) 

ain(W+  f) 

TRG (3) 

cos  f 

TRG (7) 

cos  Q 

TRG  (11)  cos  oj 

TRG  (4) 

sin  f 

TRG (8) 

sin  S3 

TRG (12)  sin 

Table  5, 7 TRG  Array  — Trigonometric  Functions 
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3 


-4- 


1 

(t0)  ,tB 

0 dim  B 

<*.  ) , X 

dim  B 

<v 

dim  B 

2 

x-. 

% 

3 

' 'eph,, 
e dim  B 

(x  ) . 

cdta  B 

H 

Sphg 

% 

X 

D 

V . % 

e dim  B 

( ) i x„ 

edto  B 

tyv  > . yv 

0 dim  B 

H 

My.  yv^ 

1 

(x  ) . X 

e dim  B 

<yv  > . yv 

eto  B 

8 

**ve 

Mx‘  \ 

ftV  % 

9 

rvsB 

*vbb 

^ VSB 

10 

X 

Y-« 

V-B 

*VSB 

yv*B 

12 

X 

V8e 

xvs  '«x+7 

* ivae 

7vs 

y e + 

voe  y rvSe 

13 

> 

14 

1 

! ec 

e 

% 

15 

(k)4to 

) 

* dim 

mi 

1 

k 

kx 

ky 

Table  5.8  lV-Array  — Virtual  1 
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Propagation  Variables 


6.  INDIVIDUAL  SUBROUTINE  DOCUMENTATION 

This  chapter  contains  the  Individual  documentation  for  all  the  sub- 
t routines  in  the  STEAP  II  series.  The  following  information  is  given  for 
each , subroutine. 

1.  Purpose;  The  tasks  performed  by  the  subroutine. 

2.  Calling  Sequence:  The  statement  by  which  the  subroutine  is  called. 

3.  Arguments:  The  arguments  in  the  calling  sequence,  their  definition, 
and  identification  as  input,  output,  or  both. 

4.  Subroutines  Supported:  A list  of  subroutines  calling  the  sub- 

routine being  documented. 

5.  Subroutines  Required:  A list  of  subroutines  called  by  the  sub- 

routines being  documented. 

6.  Local  Symbols:  The  internal  (non-common)  variables  used  in  the 

subroutine  and  their  definitions, 

7.  Common  Computed /Used:  A list  of  variables  appearing  in  common 

blocks  which  are  both  computed  and  used  (see  Chapter  3 for 
definitions), 

8.  Common  Computed:  A list  of  common  variables  which  are  set  in  the 

program. 

9.  ‘ Common  Used;  A list  of  common  variables  only  used  by  the  sub- 

routine. N 

10.  Analysis:  The  detailed  mathematical  analysis  on  which  the  sub- 

routine is  based  (if  applicable). 

11.  Flowchart:  A flowchart  of  the  operation  of  the  program  (if  re- 

quired) . 

The  reader  is  referred  to  Chapter  4 for  an  index  of  all  subroutines 
of  STEAP  II  Cables  4.1  and  4.2)  and  for  the  calling  hierarchies  of  the  basic 
subprograms  of  STEAP  II  (Figures  4.1  to  4.4). 
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preceding*  page  BLANK  not  filmed 


ATANH-A 


SUBROUTINE  ATANH 

PURPOSE*  TO  FIND  THE  ANGLE  Y WHOSE  TANH  IS  X 
CALLING  SEQUENCE*  CALL  ATANH (X»  Y> 

ARGUMENTS!  X I T A NH  ( Y > 

Y 0 ANGLE  DESIRED 
SUBROUTINES  SUPPORTEQ!  BATCON 


LOCAL  SYMBOLS!  T1 

INTERMEDIATE 

VARIABLE 

T 2 

INTERMEDIATE 

VARIABLE 

T 3 

INTERMEDIATE 

VARIABLE 

99 


ATCEGV-A 


SUBROUTINE  ATCEGV 

PURPOSE*  TO  COMPUTE  EIGENVALUES  AND  EIGENVECTORS  OF  ACTUAL  TARGET 
CONDITION  2N0  MOMENT  MATRIX 

CALLING  SEQUENCE*  CALL  ATCEGVt  I II,  AT C, EOT , FO V) 

ARGUMENTS*  III  I NUMBER  OF  ROWS  IN  ATC  MATRIX 

ATC  I ACTUAL  TARGET  CONOITIGN  MATRIX 

EOT  I ACTUAL  TARGET  STATE  DEVIATION  MEANS 

FOV  I FINAL  OFF- 01  AG ONAL  ANNIHILATION  TERM  FOR  JACOBI 

SUBROUTINES  SUPPORTEO*  GENGIO 

SUBROUTINES  REOUIREO*  HYELS  JACOBI 

COMMON  USED*  IHYP1 

LOCAL  SYMBOLS*  DUMl  OUTPUT  MATRIX  FOR  JACOBI 

EGVL  EIGENVALUES 

PEIG  INTERMEDIATE  ARRAY 

ROW  INTERMEDIATE  VECTOR 

S ATC  COVARIANCE  ARRAY (3,3) 

SDUM  ATC  COVARIANCE  ARRAY (2,2)  FOR  JACOBI 

SSDUM  ATC  COVARIANCE  ARRAY(2,2>  FCR  HYELS 


99-1 


BATCON-A 


SUBROUTINE  BATCON 

PURPOSE*  TO  FIND  POSITION,  VELOCITY,  TRUE  ANOMALY,  RAOIUS  ANC 

VELOCITY  MAGNITUDE  AT  TIME  T GIVEN  POSITION  AND  VELOCITY 
AT  TIME  0. 

CALLING  SEQUENCE*  CALL  BATCON (U,R, V , T,RT ,VT> 

ARGUMENTS*  U I GRAVITATIONAL  CONSTANT 

R I POSITION  VECTOR 

V I VELOCITY  VECTOR 

T I TIME  AT  WHICH  POSITION  AND  VELOCITY  IS  DESIRED 
RT  0 POSITION  AT  TIME  T 

VT  0 VELOCITY  AT  TIME  T 

SUBROUTINES  SUPPORTED*  BEPS 
SUBROUTINES  REQUIRED*  ATANH  ZRANS 

LOCAL  SYMBOLS*  A SEMIMAJOR  AXIS  OF  THE  CONIC 

ACC  ACCURACY  LEVEL 

L 

AMOM  INTERMEDIATE  VECTOR 

ANS  INTERMEDIATE  ARGUMENT 

ARG  INTERMEDIATE  ARGUMENJ 

AQ  RECIPROCAL  OF  A 

C COS  OR  COSH  OF  X 

CFO  COSINE  TRUE  ANOMALY 

CF1  INTERMEDIATE  VARIABLE 

Cl  INTERMEDIATE  VARIABLE 

E ECCENTRICITY 

EPS  INTERMEDIATE  VARIABLE 

CO  INTERMEDIATE  VARIABLE 

El  INTERMEDIATE  VARIABLE 

FINF  INTERMEDIATE  VARIABLE 


99-2 


BATCON-B 


FT  TRUE  ANOMALY 


FO  INTERMEDIATE  VARIABLE  - 

Fi  INTERMEDIATE  VARIABLE 

F 2 INTERMEDIATE  VARIA8LE 

HO  INTERMEDIATE  VARIABLE 

HI  INTERMEDIATE  VARIABLE 

K COUNTER 

LM  INTERMEDIATE  VARIABLE 

I 

P SEMI-LATUS  RECTUM  OF  THE  CONIC 

PI  MATHEMATICAL  CONSTANT 

RD  INTERMEDIATE  VARIABLE 

ROT  INTERMEDIATE  VARIABLE 

RM  MAGNITUDE  OF  POSITION  VECTOR  AT  TIME  0 

RMT  MAGNITUDE  OF  POSITION  VECTOR  AT  TIME  T 

RRDT  INTERMEDIATE  VARIABLE 

S SIN  OR  SINH  OF  X 

SFO  SIN  TRUE  ANOMALY 

SFi  INTERMEDIATE  VARIABLE 

T 1 INTERMEDIATE  VARIABLE 

T 2 INTERMEDIATE  VARIABLE 

13  INTERMEDIATE  VARIABLE 

UDTDX  INTERMEDIATE  VARIABLE 

UTXN  INTERMEDIATE  VARIABLE 

VM  MAGNITUDE  OF  VELOCITY  VECTOR  AT  TIME  0 

VMT  MAGNITUDE  OF  VELOCITY  VECTOR  AT  TIME  T 

X INTERMEDIATE  VARIABLE 
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BATCON-1 


BATCOK  Analysis 


BATCON  ia  a conic  propagator  using  the  Battin  universal  variable  formu' 
lation#  A total  derivation  is  too  involved  to  be  given  here?  rather 
the  results  of  Battin1 1 e work  will  be  given  here. 


Let  the  initial  state  of  & point  oaas  moving  under  the  influence  of  a 
gravitational  force  yti  be  given  by  r^,  v^.  It  ia  required  to  determine 

the  state  if,  if  at  a time  T units  later.  It  Is  useful  to  introduce  the 
parameters 


ot 


(1) 


Battin *e  approach  is  to  introduce  a new  independent  variable  x(t)  in  place 
of  time  by  the  relation 


dx  ^ 

dt  * HtT  x(0)  a 0 (2) 


This  paraaetriaafcion  greatly  simplifies  the  conic  propagation  problem.  For 
suppose  that  the  value  of  x corresponding  tot«  T is  given  by  X,  i.e.  x(T)  « X. 
Then  the  final  state  is  given  by 


“ R,  (X)  r“  + R_(x)  ~v 

1 O 2 O 

*v  » V, (X)  t + V_(x)  vT 

1 O 2 O 


(3) 


where 


1 

Ejtt)  **  1 - rQ  U2(X) 

l . r 

S2(X)  .yjr  lr#Ux(X)+  <ro02(X) 

(4) 

V (X)  U.(X) 

1 rQ  1 

v2<x)  - 1 - o2(x) 

.00 


BATCON-2 


and  where 


U (X)  d cob  oex 
o 

a cosh ~\f~&  X 


tj2<xj  = 1-\(x) 
a 


a >o 

a<0 


sin 


u^x) 


U?(x) 


sin g\/~Ot  X 


•oe 

x-u^x) 

a 


oi  >.  0 
a < 0 


(5) 


The  problem  is  thus  reduced  to  the  determination  of  X.  X is  generated 
iteratively  by  the  recursive  formulae 


x 


V£*t  -VFt 


n 


- x 


- Ax 


(6) 


where 


t = r U.(x^)  + <r  U9(x  ) + U (x  ) 
v n o x n 2 n .?  n 

r = r n (x  ) + <r  TL(x  ) + U (x  ) 
n o xo  n l n d n 

To  start  the  process  the  initial  guess  is  set  to 


b. 


3 cr  - r (1-otr  ) 

o O 0 


(7) 


ftl?}  (8) 


The  program  sets  X - x^  when  the  correction  Ax  is  less  than  10"  . 
It  terminates  if  the  number  of  iterations  exceeds  10 « 
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BATCON  Flowchart 


f RETURN  J 


BATCON- 3 


( SI0P  ) 


3 1— 

X = K + Ax 

» 


BEPS-A 


SUBROUTINE  BEP3 

PURPOSES  TO  COMPUTE  POSITION/VELOCITY  COVARIANCE  AT  THE  8-PLANE 
ANO  TO  COMPUTE  THE  STATE  TRANSITION  MATRIX  RELATING 
CHANGE  IN  POSITION/VELOCITY  TO  B-PLANE  PARAMETER  CHANGES 

CALLING  SEQUENCE*  CALL  3EPS  (GMU»R,  V, GAMMA, OPS) 

ARGUMENTS#  GMU  I GRAVITATIONAL  CONSTANT  OF  TARGET  PLANET 

R I POSITION  VECTOR  AT  TIME  OF  EVENT 

V I VELOCITY  VECTOR  AT  TIME  OF  EVENT 

GAMMA  0 STATE  TRANSITION  MATRIX  RELATING  STATE  TO 

B-PLANE  PARAMETERS 

BPS  0 POSIT  10 N/VELOGITY  COVARIANCE  AT  8-PLANE 

SUBROUTINES  SUPPORTED#  PRED 

SUBROUTINES  REQUIRED*  CAREL  BATCOX  C0NC2  8PLANE 

LOCAL  SYMBOLS#  A SEMIMAJOR  AXIS  OF  THE  CONIC 

BPV  B-PLANE  VARIABLES  VECTOR 

CF  INTERMEDIATE  VARIABLE 

COSFX  INTERMEDIATE  VARIABLE 

DELT  TIME  DIFFERENCES  BETWEEN  SOI  ANO  PERIAPSIS 

E ECCENTRICITY  OF  THE  CONIC 

FX  INTERMEDIATE  VARIA8LE 

HSINCF  INTERMEDIATE  VARIABLE 

PP  DUMMY  ARRAY  FOR  CAREL  CALL 

QQ  DUMMY  ARRAY  FOR  CAREL  CALL 

WW  DUMMY  ARRAY  FOR  CAREL  CALL 

PSI  STATE  TRANSITION  MATRIX 

PVALUE  POSITION/VELOCITY  PERTURBATION  VECTOR 

RN  DUMMY  VECTOR  FOR  BPLANE  CALL 

SN  DUMMY  VECTOR  FOR  BPLANE  CALL 
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BEPS-B 


TN  OUMMY  VECTOR  FOR  BPLANE  CALL 

RR  INTERMEDIATE  VECTOR 

VV  INTERMEDIATE  VECTOR 

RS  POSITION  AT  THE  B-PLflNE 

VS  VELOCITY  AT  THE  8-PLANE 

RSI  SPHERE  OF  INFLUENCE  RADIUS  IN  KM. 

SINFX  INTERMEDIATE  VARIABLE 

SUM  INTERMEDIATE  VARIABLE 

TA  INSTANTANEOUS  TRUE  ANAMOLY  OF  THE  CONIC 

TANCF  INTERMEDIATE  VARIABLE 

TFP  TIME  FROM  PERIAPSIS 

TPSI  INTERMEDIATE  VARIABLE 

H ARGUMENT  OF  PERIAPSIS  OF  THE  CONIC 

XI  INCLINATION  OF  THE  CONIC  TO  REF.  FRAME 

XN  LONGITUDE  OF  ASCENDING  NODE  OF  THE  CONIC 

COMMON  USED*  ALNGTH  NTP  SPHERE 
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BIAIM-A 


SUBROUTINE  BIAIM 

PURPOSE 5 TO  PERFORM  BIASED  AIMPOINT  GUXOANCE* 

CAUL IMG  SEQUENCE*  CALL  BIAIM<RI,TEVN> 

ARGUMENTS  RI  I NOMINAL  SPACECRAFT  STATE  AT  TIME  OF  BIASED 

AIMPOINT  GUIOANCE  EVENT 

TEVN  I TIME  OF  BIASEO  AIMPOINT  GUIDANCE  EVENT 
SUBROUTINES  SUPPORTED 8 GUISIH  GUIOM 

SUBROUTINES  REQUIRED 8 MATIN  POICOM  PSIM  QCOMP 
LOCAL  SYMBOLS  ADAi  VARIATION  MATRIX  AT  TIME  T«J*1) 

BB  RIGHT  HALF  PARTITION  OF  ADAi  MATRIX 

CSQ  CONSTANT  DEFINING  CONSTRAINT  ELLIPSE 

Ci  A COEFFIEIENT  IN  THE  NECESSARY  CONDITION 

C2  A COEFFIEIENT  IN  THE  NECESSARY  CONDITION 

C3  A COEFFIEIENT  IN  THE  NECESSARY  CONDITION 

C4  A COEFFIEIENT  IN  THE  NECESSARY  CONDITION 

C5  A COEFFIEIENT  IN  THE  NECESSARY  CONDITION 

C SQUARE  ROOT  OF  CSQ 

OELMU  AIMPOINT  BIAS  IN  IMPACT  PLANE 

DENOH  INTERMEDIATE  VARIABLE 

DET  DETERMINANT  OF  PROJECTED  TARGET  CONDITION 

COVARIANCE  MATRIX 

DVBIAS  BIAS  VELOCITY  CORRECTION 

DtfTT  TOTAL  VELOCITY  CORRECTION  IF  BIAS  IS 

REMOVED 

DVT  TOTAL  VELOCITY  CORRECTION  IF  BIAS  IS 

APPLIED 

DVUPP  UPDATE  VELOCITY  ITERATE 

Di  PARTIAL  DERIVATIVE  USEO  IN  NEWTON 

ITERATION  TECHNIQUE 
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BIAIM- B 


02  PARTIAL  DERIVATIVE  USED  IN  NEWTON 
ITERATION  TECHNIQUE 

03  PARTIAL  DERIVATIVE  USED  IN  NEWTON 
ITERATION  TECHNIQUE 

Ok  PARTIAL  DERIVATIVE  USED  IN  NEWTON 

ITERATION  TECHNIQUE 

EE  MATRIX  DEFINING  FUNCTION  TO  BE  MINIMIZED 

XKNT  COUNTER  ON  NEWTON  ITERATION  LOOP 
IS  INDEX  OF  NEXT  GUIDANCE  EVENT 

ITRN  COUNTER  ON  OUTER  ITERATION  LOOP 
NDIMiS  STORAGE  FOR  NDIMi 

f 

NDIM2S  STORAGE  FOR  NDIM2 

PHII  INVERSE  OF  STATE  TRANSITION  MATRIX 

PHXi  INTERMEDIATE  ARRAY 

PSIJi  GU.IDANCE  MATRIX  PSI  AT  T(M) 

PSIJ  GUIDANCE  MATRIX  PSI  AT  EVENT  TIME  TJJ) 

. QUOT  INTERMEDIATE  VARIABLE 

RF  DUMMY  VECTOR 

SAVET  STORAGE  FOR  TRTMi 

SUM1  INTERMEDIATE  VARIABLE 

SUM  INTERMEDIATE  VARIABLE 

JWOE  CONSTANT  DEFINING  CONSTRAINT  ELLIPSE 

VCA  SPACECRAFT  CLOSEST  APPROACH  VELOCITY 

RELATIVE  TO  TARGET  PLANET 

XK4  INTERMEDIATE  VARIABLE 

XHU  MOST  RECENT  IMPACT  PLANE  AIHPOINT 

XM1  AIMPOINT  ITERATE 

XM2  AIMPOINT  ITERATE 

XH  STORAGE  FOR  MOST  RECENT  AIMPOINT  ITERATE 
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BIAE1-C 


XNI  NEGATIVE  OF  CONSTRAINT  EQUATION  EVALUATED 

AT  HOST  RECENT  AIMPOINT  ITERATE 

XN2  NEGATIVE  OF  NECESSARY  CONDITION  EVALUATED 

AT  HOST  RECENT  AIMPOINT  ITERATE 

YY  INTERMEDIATE  VARIABLE 

ZH  AIMPOINT  INCREMENT  FOR  MOST  RECENT 

ITERATION 

ZK  AIMPOINT  INCREMENT  FOR  MOST  RECENT 

ITERATION 


COMMON 

COMPUTEO/USEO* 

A 

CR 

DVN 

DVRB 

DVUP 

EXEC 

I BIAS 

IIGP 

PHI2 

RCA 

TMPR 

TRTMI 

XMUS 

COMMON 

C0MPUTE08 

DELTM 

COMMON 

USE08 

ADA 

ALNGTH 

ATRANS 

DUMMYQ 

EH3 

IDENS 

I END 

IGUID 

II 

ISTMC 

ITR 

NTP 

ONE 

PHI 

PMASS 

POI 

PROBI 

RADIUS 

TINJ 

TM 

TNOMB 

TNOHC 

TWO 

T3 

VINF 

XLAHI 

XLAM 

ZERO 
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BIAIM- 1 


BIAIM  Analysis 


Subroutine  BIAIM  performs  biased  aimpoint  guidance  computations.  If 
planetary  quarantine  constraints  are  in  effect  at  injection  or  at  a 
midcourse  correction,  and  if  the  nominal  aimpoint  does  not  satisfy  these 
constraints,  subroutine  BIAIM  will  compute  a biased  aimpoint  and  the 
required  bias  velocity  correction  such  that  the  constraints  are  satisfied 
and  some  performance  functional  is  minimized. 


Aimpoint  biasing  is  performed  in  the  impact  plane  and  as  such  permits 
only  two  degrees  of  freedom  in  the  selection  of  the  biased  aimpoint.  The 
general  aimpoint  in  the  impact  plane  will  be  denoted  by  the  2-dimensional 
vector  ju , , where  the  j-subscript  Indicates  that  the  biased  aimpoint 


V 

guidance  event  is  occurring  at  time  t. . 
are  available  in  STEAP,  and  it  will  be  necessary  to  relate 


Three  midcourse  guidance  policies 


H ■ 
J 


to  the 


specific  aimpoint  for  each  of  these  three  policies.  These  relationships 
are  summarized  below: 


(a)  Two- variable  B- plane  (2VBP) 


B • T 
B * R 


(b)  Three-«ariable  B- plane  (3VBP) : 

^"=fl  0 0 ' 

0 1 0 . 


(c)  Fixed-time-of-arrival  (FTA) : 


(1) 


B • T 
B » R 

fcSI 


(2) 


A r 


CA 


(3) 


where 


CA 


is  the  nominal  closest  approach  position  of  the  spacecraft 

relative  to  the  target  planet.  Coordinate  transformation  A projects 
the  3-dimensional  vector  (referred  to  ecliptic  coordinates)  into 

an  equivalent  FTA  impact  plane  which  is  defined  to  be  the  plane 
containing  r_.  and  perpendicular  to  the  spacecraft  closest  approach 


velocity 


CA 


relative  to  the  target  planet.  If  the  ecliptic 


coordinates  of  r^  and  v^  are  denoted  by  r , 
Vy,  vz  , respectively,  then  the  transformation  A 


r , r and  v . 
y Z xJ 

is  given  by 
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CA 


r v 


r v 
z y 


rCA  VCA 


CA 


r v - r v 
z x x z 

rtCA  VCA 


lCA 


rx  Vv  - rv  Vx 
rCA  VCA 


(4) 


Spacecraft  state  variations  at  tj  are  related  to  aimpoint  variations 
(target  condition  variations)  by  the  variation  matrix  TJ  , which  is  always 

available  prior  to  calling  BIAIM.  Thus,  the  statistical  state  dispersions 
about  the  nominal  following  the  guidance  correction  at  t.  and  represented 

+ J 

by  the  control  covariance  P_  , can  be  related  to  the  dispersions  about 

j + 

the  nominal  aimpoint  represented  by  W.  according  to  the  equation 


+ + T 

wj  - "3  s 


(5) 


The  control  covariance  P is  computed  from 

j 


Pk-  + 
k 3 


0 

0 


I 0 


Qj 


(6) 


where  Pj^  is  the  knowledge  covariance  prior  to  the  guidance  event  and 


Qj  is  the  execution  error  covariance. 


Transformations  employed  in  equations  (1)  through  (3)  can  also  be  employed 

to  project  W.  into  the  impact  plane.  The  resulting  projection  is  denoted 
J j ^ 

by  the  covariance  and  is  obtained  from  W . according  to  the  following 


equations : 

(a)  2VBP 

(b)  3VBP 


J 

A 

j 

A 


i 


- w. 

j 


1 

0 


0 

1 


w. 

J 


1 

0 

LO 


0 

1 

OJ 


(7) 

(8) 


(c)  FTA 


A 


+ 'i 

A Wj  A 


(9) 
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With  covariance  A.  available,  it  is  now  possible  to  compute  the 

j 

probability  of  impact  P0I-.  Assuming  the  probability  density  function 
associated  with  yl  is  gausslan  and  nearly  constant  over  the  target 

j 

planet  capture  area  permits  us  to  compute  P0I  using  the  equation 


2 

P0I  *=  5T  Rc  p 


(10) 


where  R is  the  target  planet  capture  radius  and  p represents  the 
c 

gaussian  density  function  evaluated  at  the  target  planet  center  and  is 
given  by 


(ID 


The  nominal  impact  plane  aimpoint  is  denoted  by  fl  . Subroutine  BIAIM 
calls  subroutine  P0IC0M  to  perform  the  computations  involved  in  equations 
(7)  through  (11). 


Capture  radius  R is  simply  the  physical  radius  R of  the  target 
c p 

planet  if  the  FXA  guidance  policy  is  employed,  while  for  the  two  B- plane 
policies  the  capture  radius  is  given  by 


R 


c 


(12) 


where  fi  is  the  target  planet  gravitational  constant  and  Veo  is  the 
hyperbolic  excess  velocity. 


If  the  probability  of  impact  P0I  does  not  exceed  the  permissible  impact 
probability  I?T  , and  if  the  nominal  aimpoint  has  not  been  previously 


biased,  we  simply  return  to  subroutine  GUIDM  (or  GUISIM).  If^the  nominal 
aimpoint  has  been  previously  biased,  a velocity  correction  required 


to  remove  that  bias  is  computed  prior  to  returning.  But  if  P0I  exceeds 
Rj,  an  aimpoint  bias  8jil.  and  the  associated  bias  velocity  correction 


must  be  computed.  Before  describing  the  details  of  the  biasing  technique 
it  is  neces-sary  to  define  the  relationship  between  AV.  and  6fl.  for 
linear  midcourse  guidance  policies.  J j 


Linear  impulsive  guidance  policies  have  form 

av.  * r.  dX 

J 3 j 


(13) 
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where  / is  the  guidance  matrix  and  dX  is  the  spacecraft  state 

j j 

deviation  from  the  targeted  nominal  trajectory.  (These  guidance  policies 
are  discussed  in  more  detail  In  the  subroutine  GUIS  analysis  section.) 
Such  guidance  policies  can  be  readily  generalized  to  account  for  changes 
in  the  target  conditions  from  their  nominal  values.  This  generalized 
version  of  equation  (13)  has  form 


Av 


j 


r 5X  + * 

J J J J 


(14) 


where  & can  also  be  referred  to  as  a guidance  matrix.  For  the  purposes 

of  the  BIAIM  analysis,  we  shall  assume  that  in  equation  (14)  is 

j 

always  an  aimpoint  change  in  the  impact  plane.  Thus,  tfr.  will  be  a 3x2 

guidance  matrix.  The  derivation  of  the  matrix  is  quite  similar  to 

J 

the  derivation  of  the  p matrix  an'd  will  not  be  presented  here.  If  we 

j 

partition  the  previously  discussed  variation  matrix  V as  follows: 

J 


k I "2] 


(15) 


then  the  & matrices  for  the  three  midcourse  guidance  policies  are 
given  by  the  following  equations : 


(a) 

2VBP  : 

& 

j 

(b) 

3VBP  : 

J 

(c) 

FTA  : 

V 

X 

j 


- V 


-1 


1 0 
0 1 

0 0 


V -1  at 


(16) 

(17) 


(18) 


If  an  aimpoint  bias  were  to  be  removed  at  time  t' , the  required  velocity 
correction  would  be  given  by  j 


Ahaij  " - * *M, 


(19) 


If  an  aimpoint  bias  were  to  be  imparted  at  time  t.  9 the  bias  velocity 
correction  would  be  given  by  * ^ 


AVb  = V Sfl. 

Bj  J J 


(20) 
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rf(l> 

If  an  aimpoint  bias^  had  been  previously  imparted,  and  if  a new 

aimpoint  bias  is  to  be  imparted,  then  the  total  bias  velocity 

correction  would  be  given  by 


»,  i%  ■ **n 


ID. 


j 


(21) 


The  general  statement  of  the  biased  aimpoint  guidance  problem  is  as  follows; 
Find  an  aimpoint  p 

probability  constraint 


Find  an  aimpoint  in  the  impact  plane  which  satisfies  the  impact 


P01  6 P, 


(22) 


and  minimizes  a performance  functional  having  form 

J “ ( fl.  - fl  ) A ( fi'  - fi  ) 

J J 


(23) 


ic  (O 

where  /I  is  the  nominal  aimpoint  and  A is  a constant  symmetric  matrix 
that  will  be  defined  subsequently. 

, The  solution  of  this  problem  is  detailed  in  the  section  on  biased  aimpoint 
guidance  in  the  analytical  manual.  Only  the  results  will  be  presented  here. 
The  assumption  of  constant  probability  density  over  the  target  planet 
capture  area  permits  us  to  rewrite  constraint  equation  (22)  as  i 


A 11.  + 2\  n n + k I U 

1*1  3 *1*2  2 


= C 


(24) 


where 


2 in 


L 2 


R 


A\ 


pi  J 


(25) 


and  fl 

a 

and  A ^ 8=1 

r * 

i 

kJ 

Ls 

sj 

The  inequality  has  been  replaced  by  an  equality  since  the  solution  can  be 
shown  to  lie  on  the  constraint  boundary,  which,  from  inspection  of  equation 
(24)  is  an  ellipse  centered  at  the  target  planet. 


If  t.  is  the  time  of  the  final  midcourse  correction,  matrix 

-J  i 


1 


will  be 


chosen  as  a 2x2  identity  matrix.  The  minimization  of  J is  then  equivalent 
to  minimization  of  the  miss  distance  | p.  ~ p*  | ♦ If  tv  is  not  the 

final  midcourse  correction  time,  A will  be  defined  as  follows: 
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A - ^ tU 

j+1  j+1 


(26) 


Here  XU  denotes  the  aimpoint  guidance  matrix  for  the  next  midcourse 
j+1 

correction  occurring  at  time  t . , - . In  this  case  the  minimization  of  J 

J-ri  . jfc 

is  equivalent  to  the  minimization  of  | AVRB  ^ , i.e.,  the  velocity  , 

required  to  remove  bias  8(1  at  time  t^+^  will  by  minimized.  The 
computation  of  XU is  based  on  the  variation  matrix  just  as  *U ^ 

was  based  on  7]^  . However,  j]  can  be  computed  more  efficiently  by 
using  the  relationship 

-1 

V ~r}<Z>  (27) 

j J+l>  J 


j+1 


where  . is  the  state  transition  matrix  over 

J+1»J 


[ty  Vl]' 


If  we  define 


<o 

A = 


^ a3 


2~> 


then  the  necessary  condition  for  a minimum  is  given  by 

2 2 

(a  A ■ a X ) 11  + (a  A - a \ ) U + (a  A - a A ) U U 
13  3A1^1  32  2A3  ^2  12  2 1 ^1^: 


+ (-a1X3/<1*-  a3X3^2*+a3X1//1*+a2X1^2*)/tl  + 


^~al^2^X  " a3^2^2  + a3^3^1  + a2^3^2  ^2  ° 


(28) 


Thus,  our  problem  is  reduced  to  finding  and  fi ^ which  satisfy 

equations  (24)  and  (28).  Since  the  analytical  solution  of  these  equations 
proved  intractable,  a- standard  Newton  iteration  technique  is  employed  in 
BIAIM  which  quickly  converges  to  solutions  for  fl ^ and  fl ^ , The  iteration 

process  ls^  started  with  an  initial  guess  defined  as  the  intersection  of  the 
extended  /?*  vector  and  the  constraint  boundary  defined  by  equation  (24). 

This  initial  guess  is  given  by 
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where  c is  defined  by  equation  (25)* 

In  addition  to  the  previously  described  iteration  process,  subroutine 
BIAIM  also^employs  an  outer  iteration  loop  which  accounts  for  the  depen-^ 
dence  of  Q.  (equation  (6))  on  g/J  ♦ The  execution  error  covariance  Q. 

^ J ^ 

is  a function  of  the  total  velocity  correction  at  t.  , but  the  total 

velocity  correction,  in  particular  AVg  , depends  on  gjU.  * This  coupling 

i ^ 

IV  J 

Is  resolved  by  recomputing  Q.  at  the  end  of  the  previously  described 
biasing  technique  and  repeating  the  biasing  cycle  until  the  error  function 


P0I  - P 


6 P];  x 10 


is  satisfied.  This  outer  iteration  process  Lis  not  performed,  however,  if 
tj  **  injection  time  since  at  injection  equation  (6)  is  replaced  by  the 

equation 


and  ($ 

j 


is  always  zero. 


Reference:  Mitchell,  R.  T. , and  Wong,  S.  K.:  Preliminary  Flight  Path 

Analysis  Orbit  Determination  and  Maneuver  Strategy  Mariner 
Mars  1969.  Project  Document  138,  Jet  Propulsion  Laboratory, 
1968. 
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Set  Avtoi  - A’rb  + Avh 


Call  QC0MP  to  comput^  execution 
error  covariance  Q ^ ■=  CL  ( AV^^) 


Write  out  /\V^  and  , 


BIAIM- 9 


simulation 


, mode  — ? 


error  analysis 


Set  Av  = A^  + Av 
UP  RB  4-4  N 


Set  Av  = Av  * 
UP  4-4  RB 


Call  P0IC0M  to  cbmpute  and 
write  out  an<^  B0I  for 

the  nominal  aimpoint. 


P0I  ^ P ? ; 


Set  fl~fi  . 
Set  IBIAS  = 0, 


Will  a velocity  bias 
be  actually  imparted? 


RETURN 


BIAIM-  II 


Write  out  the  equation  of  the 
elliptical  constraint  boundary. 


ITRNs 

■°'.s 

N0~ 

__  . ^ 

! 

! 

Compute  and  write  out  the  initial 
guess  Jt0. 

f*  - 

/ 

Initialize  Newton  Iteration  counter  IKNT, 


Compute  constants  defining  necessary 
condition  for  a minimum. 


Use  Newton  iteration  technique  to 
determine  the  i-th  iterate  if- 

nz 

| Write  out  ^ and 


_ 7/1+1  _Ii  . _.i 

Set  U-  « H + 6fl  and 

increment  IKNT. 


. , NO 

J 

< IKNT  > 25  ? ' 


Write:  Newton's  method  did  not 

converge  in  BIAIM. 


BXAS-A 


SUBROUTINE  BIAS 

PURPOSES  COMPUTE  THE  ACTUAL  MEASUREMENT  BIAS  IN  THE  SIMULATION 
PROGRAM 

RETURN  THE  ACTUAL  MEASUREMENT  BIAS  TO  BE  USED  IN  THE 
SIMULATION  MODE. 

CALLING  SEQUENCES  CALL  BIAS  CMCODE9  8VAL) 

- ARGUMENTS  BVAL  0 THE  ACTUAL  BIAS  TO  BE  USEO  IN  THE 

MEASUREMENT 

HCQOE  I MEASUREMENT  TYPE  CODE 

t 

SUBROUTINES  SUPPORTEO 8 SIMULL 
COMMON  USEOS  BIA 
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BIAS  Analysis 


The  actual  measurement  Y, 


at  time  t^  is  given  by 


A-k 


1 k 


+ b,  + v 


where  Y,  is  the  ideal  measurement,  which  would  be  made  in  the  absence 
— k 

of  instrumentation  errors,  b^.  is  the  actual  measurement  bias  and 
represents  the  actual  measurement  noise. 


The  function  of  subroutine  BIAS  is  to  compute  the  measurement  bias  b^ 

for  the  appropriate  measurement  type.  The  constant  biases  for  all  measure 
ment  devices  are  stored  in  the  vector  BIA.  Subroutine  BIAS  selects  the 
appropriate  elements  from  this  vector  to  construct  the  actual  measurement 
bias. 
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BIAS  Flow  Chart 


MC0DE  = ? 


10,11,12,13 


1,2, 3, 4, 5, 6, 7, 8 


Compute  the  bias  vector 
for  3 star- planet  angle 
measurements . 


MC0DE  even? 


BliCDAT-A 


BLOCK  DATA 

PURPOSE*  TO  LOAD  CONSTANTS  INTO  COMMON  LOCATIONS  USED  IN  VARIOUS 
OTHER  PARTS  OF  THE  PROGRAM. 

CALLING  SEQUENCES  NONE 

ARGUMENT 8 NONE 

SUBROUTINES  SUPPORTED  HALF  THE  SUBROUTINES  USE  THE  CONSTANTS 

STORED  BY  THIS  SUBROUTINE 

SUBROUTINES  REQUIRED  NONE 


COMMON  LOADED 

CN1 

CN 

ELMNT 

EMN 

EVNM 

RADIUS 

RAD 

RMASS 

SMJR 

SPHER 

F 

MNNAME 

PI 

PLANET 

PM  ASS 

ST 
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BLKDAT  Analysis 


Subroutine  BI&DAT  is  responsible  for  setting  up  constants  used  in 
computing  ephemeris  data  for  the  gravitating  bodies. 

The  arrays  set  up  by  B1XDAT  and  their  definitions  are  afe  follows: 


Array 

CN(80) 

ST  (50) 
SMJR(18) 

EMN(15) 
MASS  (11) 
EMASS(ll) 
RADIUS (11) 
SPHERE (11) 
MONTH (12) 
PLANET (11) 


Definition 

Constants  defining  mean  elements  for  inner  planets 
Constants  defining  mean  elements  for  outer  planets 
Constants  defining  semi-major  axes  for  planets  and 
moon 

Constants  defining  -lunar  elements 

Gravitational  constants  of  sun,  planets,  and  moon 

Mass  of  bodies  relative  to  sun 

Surface  radii  of  sun,  planets,  and  moon 

Sphere  of  influence  radii  of  sun,  planets,  and  moon 

Names  of  months  for  output  purposes 

Names  of  planets  for  output  purposes 


The  definitions  of  the  CN,  ST,  SMJR,  and  EMN  arrays  are  provided  in 
Tables  2 through  5 on  the  following  page.  The  actual  constants  stored 
in  those  arrays  ai:e  the  ephemeris  data  listed  on  the  next  pages  following. 


The  constants  stored  in  the  other  arrays  are  given  below. 


Body 

PMASS  (AU3/day2) 

RMASS* 

RADIUS  (AU) 

SPHERE  (AU) 

Sun 

2.959122083 (-4) 

1.0 

4.66582(-3) 

NA 

Mercury 

4.850  (-11) 

1.639  (-7) 

1.617  (-5) 

7.46(-4) 

Venus 

7.243  (-10) 

2.448  (-6) 

4. 044  (-5) 

4. 12(-  3) 

Earth 

8. 8875 7 (-10) 

3.003(-6) 

4. 263  (-5) 

6. 18  (-3) 

Mars 

9.5497905 (-11) 

3.236(-7) 

2.279(-5) 

3. 78  (-3) 

Jupiter 

2.8252  (-  7) 

9.547(-4) 

4. 7727  (-4) 

.3216 

Saturn 

8. 454  (-8) 

2. 85 7 (-4) 

4.0374(-4) 

.3246 

Uranus 

1.290  (-8) 

4.359(-5) 

1.5761  (-4) 

.346 

Neptune 

1.5(-8) 

5 .069(-5) 

1.4906(-4)  : 

.5805 

Pluto 

7.4(-10) 

2.501  (-6) 

4. 679(-5) 

.2366 

Moon 

1.0921748  (-11) 

3.696(-8) 

1.161 (-5) 

3 . 71394  (-4) 

* Truncated  from  program  values- 
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Array  Definitions 


Constant 

i 

Q 

CO 

e 

M 

a 

U 

E 

ao 

a 

1 

Mercury 

1 

2 

3 

4 

5 

6 

7 

8 

1 

2 

Venus 

9 

10 

11 

12 

13 

14 

15 

16 

3 

4 

Earth 

17 

18 

19 

20 

21 

22 

23 

24 

5 

6 

Mars 

25 

26 

27 

28 

29 

30 

31 

32 

7 

8 

Jupiter 

33 

34 

35 

36 

37 

38 

39 

40 

9 

10 

Saturn 

41 

42 

43 

44 

45 

46 

47 

48 

11 

12 

Uranus 

49 

50 

51 

52 

53 

54 

55 

56 

13 

14 

Neptune 

57 

58 

59 

60 

61 

62 

63 

64 

15 

16 

Pluto 

65 

66 

67 

68 

69 

70 

71 

72 

17 

18 

Moon 

73 

74 

75 

76 

77 

78 

79 

80 

Table  1. 

ELMNT  Array  — 

Conic 

Elements 

Table  2. 

SMJR  Array 

Constant 

*•0 

*1 

l2 

13 

% 

£>3 

"o 

/vf 

u>i 

/V 

"2 

<V 

W3 

eo 

el 

e2 

e3 

Mo 

M1 

M2 

M3 

Mercury 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

Venus 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

Earth 

. 41 

42 

43 

44  45  46 

47  48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

Mars 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

Table  3.  CN  Array  — Inner  Planet  Constants 


Cons  tant ' 

i0 

*1 

^0 

/V 

“O 

/V 

CO 

1 

eo 

el 

Mo 

M1 

Jupiter 

1 

2 

3 

4 

5 

6 

7 

8 

' 9 

10 

Saturn 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

Uranus 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

Neptune 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

Pluto 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

Table  4.  ST  Array  ~~  Outer  Planet  Constants 

Constant  &q  @2  ^3  ^2  ^3  ^*0  ^1  ^2  ^3  ^ 6 a 

Moon  1 2 3 4 5 6 7 8 9 10  11  12  13  14  15 

Table  5.  EMN  Array  — Lunar  Constants 
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Planetary  and  Lunar  Ephemerides 


Mean  Elements  of  Metrcury 

i « 0.1222233228  + 3.24776685  x 10~5  T - 3.199770295  x 10~7  T2 
0.8228518595  + 2.068578774  x 10“2  T + 3.034933644  x 10"6  T2 

1.3246996178  + 2.714840259  x 10"  2 T + 5.143873156  x 10"6  T2 

e «=  0.20561421  + 0.00002046  T - 0.000000030  T2 
M «=  1.785111955  + 7.142471000  x 10"2  d + 8.72664626  x 10"9  D2 
a = 0.3870986  A.U.  = 57,909,370  km 
Mean  Elements  of  Venus 

i « 0.0592300268  + 1.7555510339  x 10“  5 1 - 1.696847884  x 10" 8 T2 
42  = 1.3226043500  + 1.570534527  x 10"2  T l-  7.155849933  x 10“6  T2 

2.2717874591  + 2.457486613  x 10-2  T f 1.704120089  x 10“5  T2 

e = 0 .-00682069  - 0.00004774  T + 0.000000091  T2 
M - 3.710626172  + 2.796244623  x 10“2  d + 1.682497399  x 10" 6 D2 
a - 0.7233316  A.U.  = 108,209,322  km 
Mean  Elements  of  Earth 
i * 0 

£}  « o 

£> “ 1.7666368138  + 3.000526417  x 10-2  T + 7.902463002  x 10"6  T2 
+ 5.817764173  x 10"8  T3 
e » 0.01675104  - 0.00004180  T - 0.000000126  T2 
M = 6.256583781  + 1.7?pl96977  x 10"2  d - 1.954768762  x 10'7  D2 
- 1.22173047  x lO-9  D3 

i 

a = 1.0000003  A.U.  = 149,598,530  km 
Mean  Elements  of  Mars 

i *=  0.0322944089  - 1.178097245  x 10~5  T + 2.201054112  x 10"7  T2 
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& ® 0.8514840375  + 1.345634309  x 10~2  T - 2.424068406  x 10"8  T2 
- 9.308422677  x 10'8  T3 

(O  ® 5.8332085089  + 3.212729365  x 10“2  T + 2.266503959  x 10~6  T2 
-2.084698829  x 10"8  T3 

e « 0.09331290  + 0.000092064  T - 0.000000077  T2 

M - 5.576840523  + 9.145887726  x 10-3  d + 2.365444735  x 10"7  D2 

-10  3 

+ 4.363323130  x 10  DJ 
a « 1.5236915  A.U.  « 227,941,963  km 
Mean  Elements  of  Jupiter 

i = 0.0228410270  - 9.696273622  x 10-5  T 
Q » 1.7355180770  + 1.764479392  x 10“2  X 
£>  = 0.2218561704  + 2.812302353  x 10"  2 T 
e = 0.0483376  + 0.00016302  T 
M - 3.93135411  + 1.450191928  x 10“3  d 
a = 5,202803  A.U.  = 778,331,525  km 
Mean  Element  of  Saturn 

i - 0.0435037861  » 7.757018898  x 10"8  T 
£ - 1.9684445802  + 1.523977870  x 10"2  X 
W » 1.5897996653  + 3.419861162  x 10"  2 X 
e = 0.0558900  - 0.00034705  T 
M « 3.0426210430  + 5.837120844  x 10-4  d 
a » 9.538843  A.U.  - 1,426,996,160  km 
Mean  Elements  of  Uranus 

i = 0.0134865470  + 0.696273622  x 10”6  T 
■£?*=  1.2826407705  + 8.912087493  x 10~3  X 
£>>=  2.9502426085  + 2.834608631  x 10-2  I 
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e«  0.0470463  + 0.00027204  T 
M » 1.2843599X98  + 2.046548840  x 10-4  d 

a = (19.182281  - 0.00057008  T)  A.U.  » (2,869,640,310  - 83271  T)  km 

Mean  Elements  of  Neptune 

i - 0.0310537707  - 1.599885148  x 10"4  T 

S2  » 2.2810642235  4-  1.923032859  x 10”2  T 

0.7638202701  + 1.532704516  x 10"2  T 

e - 0.00852849  + 0.00007701  T 
M ® 0.7204851506  + 1.033089473  x 10~4  d 

a « (30.057053  + 0.001210166  T)  A.U.  = (4,496,490,000  + 181039  X)  km 
Mean  Elements  of  Pluto 

i = 0.2996706970859694 
Q=  1.1914337550102258 
0J  » 3.909919302791948 

e - 0.2488033053623924 

M - 3.993890007  + 0.6962635708298997  x 10-4 
a - 39.37364135300176  A.U.  - 5,890,213,786,146,730  km 
Mean  Elements  of  Moon 
i « 5.1453964° 

Q » 259.183275°  - 0.0529539222d  + 0.002078  X2  + 0.000002  T3 
' £>  « 334.329556°  + 0.1114040803d  - 0.010325  X2  - 0.000012  T3 

L - 270.434164°  + 13.1763965268d  - 0.001133  X2  + 0.0000019  T3 
a » .00256954448  A.U. 
e « 0.054900489 
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Note  If  The  above  elements  are  referred  to  the  mean  equinox  and  ecliptic 
of  date  except  for  Pluto. 

Note  2:  The  elements  for  pluto  are  oscillating  values  for  epoch  1960 

September  23.0  E.T.  « J.D.  2437200.5 

Note  3:  The  time  interval  from  the  epoch  is  denoted  by  T when  measured 

in  Julian  centuries  of  36,525  ephemeris  days,  by  D « 3.6525  T 
when  measured  in  units  of  10,000  ephemeris  days,  and  by  d *» 

10,000D  «=*  36,525  T when  measured  in  ephemeris  days.  Times  are 
measured  with  respect  to  the  ppoch  1900  January  0.5  E.T.  = J.D. 
2415020.0. 

Note  4:  Angular  relations  are  expressed  in  radians  for  planets  and  degrees 

for  moon. 


References:  (1)  Space  Research  Conic  Program,  Phase  III,  J.P.L.,  May  1969 

(Planetary  constants) 

(2)  The  American  Ephemeris  and  Nautical  Almanac  - 1965,  U.S. 
Government  Printing  Office,  Washington,  p.  493  (Lunar 
constants) 
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SUBROUTINE  0PLANE 

PURPOSE*  TO  COMPUTE  8-PLANE  PARAMETERS 

CALLING  SEQUENCE*  CALL  BPLANE (GMX. R, V»9UT, BDR » TF  ,SOR,SOT  ,C3,  INDX 

,RN,SN,TN) 

ARGUMENTS*  GMX  I GRAVITATIONAL  CONSTANT  OF  TARGET  PLANET 

R I POSITION  VECTOR 

~ V I VELOCITY  VECTOR 

BOT  0 B DOT  T 

BOR  0 B DOT  R 

TF  0 TIME  FROM  PERIAPSIS 

SOR  0 S DOT  R 

SOT  OS  DOT  T 

C3  0 PLANET  DEPARTURE  ENERGY 

INDX  I =1  FILL  RN,SN,TN  VECTORS,  =2  00  NCT  FILL 

RN  OR  VECTOR 

SN  OS  VECTOR 

TN  0 T VECTOR 

SUBROUTINES  SUPPORTED*  BEPS 

LOCAL  SYMBOLS*  A SEMIMAJOR  AXIS  OF  THE  CONIC 

AB  INTERMEDIATE  VARIABLE 

AUXF  INTERMEDIATE  VARIABLE 

B INTERMEDIATE  VARIABLE 

8V  B VECTOR 

CTA  COSINE  TRUE  ANOMALY 

Cl  ANGULAR  MOMENTUM  CONSTANT 

E ECCENTRICITY 

NINETY  90. 
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ONE 

1. 

P 

SEMI-LATUS  RECTUM 

PI 

MATHEMATICAL 

CONSTANT 

PV 

P VECTOR 

QV 

0 VECTOR 

RAO 

DEGREES  PER  RADIAN 

RO 

INTERMEDIATE 

VARIABLE 

RM 

INTERMEDIATE 

VARIABLE 

RRD 

INTERMEDIATE 

VARIABLE 

RV 

R VECTOR 

SINHF 

INTERMEDIATE 

VARIABLE 

STA 

SINE  TRUE  ANOMALY 

SV 

S VECTOR 

TA 

INTERMEDIATE 

variable 

TANG 

INTERMEDIATE 

VARIABLE 

TCA 

INTERMEDIATE 

VARIABLE 

TV 

T VECTOR 

TWO 

2. 

VX 

INTERMEDIATE 

VARIABLE 

wv 

INTERMEDIATE 

VARIABLE 

z 

INTERMEDIATE 

VARIABLE 

ZERO 

D* 
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SUBROUTINE  CAREL 

PURPOSE*  TRANSFORM  CARTESIAN  COORDINATES  TO  CONIC  ELEMEMTS 

CALLING  SEQUENCES  OALL  CAREL(GM,R,V,TFP,A,E,W,XI,XN,TA,PP,QQ,WW) 

ARGUMENTS  GM  I GRAVITATIONAL  CONSTANT  OF  THE  CENTRAL-  BODY 

R<3)  I POSITION  VECTOR  RELATIVE  TO  CENTRAL  BODY 

V«3>  I VELOCITY  VECTOR  RELATIVE  TO  CENTRAL  BODY 

TFP  0 TIME  OF  FLIGHT  FROM  PERIAPSIS  ON  THE  CONIC 

A 0 SEMI-MAJOR  AXIS  OF  THE  CONIC 

E 0 ECCENTRICITY  OF  THE  CONIC 

W 0 ARGUMENT  OF  PERIAPSIS  OF  THE  CONIC 

XI  0 INCLINATION  OF  THE  CONIC  TO  THE  REFERENCE 

FRAME 

XN  0 LONGITUDE  OF  THE  ASC (NDING  ,NODE  OF  THE 

CONIC 

TA  0 INSTANTANEOUS  TRUE  ANOMALY  OF  THE  CONIC 

PP (3)  0 UNIT  VECTOR  TOWARD  PERIAPSIS  ON  CONIC 

QQC3)  0 UNIT  VECTOR  NORMAL  TO  PP  IN  ORBITAL  PLANE 

HW(3)  0 UNIT  VECTOR  NORMAL  TO  ORBITAL  PLANE 

SUBROUTINES  SUPPORTEDt  TAROPT  LUNCON  . MULTAR  EXCUTE  COPINS 

NONINS  CPROP  VMP  GUISIM  NONLIN 

PULSEX  GUIDM 

SUBROUTINES  REQUIRED 8 NONE 

-I 

LOCAL  SYMBOLS*  AUXF  ECCENTRIC  ANOMALY  (HYPERBOLIC  CASE) 

AVA  MEAN  ANOMALY  (ELLIPTIC  CASE) 

COSEIA  COSINE  OF  THE  ECCENTRIC  ANOMALY  (ELLIPTIC 
CASE) 

CTA  COSINE  OF  THE  TRUE  ANOMALY 

C MAGNITUDE  OF  THE  ANGULAR  MOMENTUM 

DIV  INTERMEDIATE  VARIABLE  IN  CALCULATION  OF 

ECCENTRIC  ANOMALY 
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EA  ECCENTRIC  ANOMALY  (ELLIPTIC  CASE) 

P SEMX-LATUS  RECTUM  OF  THE  CONIC 

RAO  DEGREES  TO  RADIANS  CONVERSION  CONSTANT 

RD  TIME  DERIVATIVE  OF  RADIUS 

RM  MAGNITUDE  OF  CARTESIAN  POSITION  VECTOR 

SINEA  SINE  OF  THE  ECCENTRIC  ANOMALY  (ELLIPTIC 
CASE) 

SINHF  HYPERBOLIC  SINE  OF  AUXF 

STA  SINE  OF  THE  TRUE  ANOMALY 

TANG  INTERMEDIATE  VARIABLE  USED  TO  CALCULATE 
SINHF 

VM  MAGNITUDE  OF  THE  CARTESIAN  VELOCITY  VECTOR 

Z INTERMEDIATE  VECTOR  USED  TO  CALCULATE 

PP,  QQ  VECTORS 
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CAREL  Analysis 


CAEEL  converts  the  cartesian  state  (position  and  velocity)  of  a massless 
point  referenced  to  a gravitational  body  to  the  equivalent  conic  elements 
about  that  body. 

Let  the  cartesian  state  be  denoted  r,  v*  and  let  the  gravitational  con- 
stant of  the  central  body  be  p . 

The  angular  momentum  constant  c is 

c = | r*  x v*  | (1) 

A 

The  unit  normal  W to  the  orbital  plane  is 


A 

w 


_ r x v 
s c 


(2) 


The  semilatus  rectum  p is 


p ‘,5- 


The  semi-major  axis  a is 


(3) 


(4) 


rv 


Thus  a 0 for  elliptical  motion,  a <C  0 for  hyperbolic  motion.  The 
eccentricity  e is 


£ 

a 


(5) 


Thus  e < 1 for  elliptical  motion,  e > 1 for  hyperbolic  motion, 
inclination  of  the  orbit  i is  computed  from 

A 

cos  i - W 

z * 

The  longitude  of  the  ascending  node  is  defined  by 

tan  fi  = 


The 


(6) 


A 

w 


A 

-w 


(7) 


1 
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The  true  anomaly  f at  the  given  state  is  computed  from 


C08  f = 

e r 


sin  f = «L 
Me 


(8) 


Now  define  an  auxiliary  vector  "z  by 


z\  r -*  r 
z = - v - “ r 
c • c 

Then^  P , the  unit  vector  to  periapsis,  and  Q , the  in-plane  normal 


(9) 


to  P , are  defined  by 


A ^ . A - 

P - r cos  f - z sm  f 


A A , n , A (* 

Q - r sm  f + z cos  x 


(10) 

(11) 


where  r =1  , The  argument  of  periapsis  o)  is  then  computed  from 
r 


tan  a;  = 


A 

P 


$ 


(12) 


The  conic  time  from  periapsis  t is  computed  from  different  formulae 
depending  upon  the  sign  of  the  slmi-major  axis.  Fo,c  a > 0 (elliptical 
motion) 


(E  - e sin  E) 


cos  E = 6 ± cos  f 


/T~ 

sin  E = 1 " 


e sin  f 


1 + e cos  f 1 + e cos  f 

For  a 0 (hyperbolic  motion)  the  time  from  periapsis  is 

rr  * 

v~  ( 


t w 

p 


e sinh  H - H) 


(13) 


tanh 


H _ /~T-  1 

2 ' V e + 1 


f 

tan  — 
2 


(14) 


Reference:  Battin,  R.  H. , Astronautical  Guidance,  McGraw-Hill  Book  Co., 

.New  York,  1964. 


1 
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SUBROUTINE  CfiSCAO 

PURPOSE*  TO  COMPUTE  THE  STATE  TRANSITION  MATRIX  DEFINING  STATE 
PERTURBATIONS  OVER  AM  ARBITRARY  TIME  INTERVAL  BY  CAS- 
CADING DANBY  MATRIZANTS  OVER  SEGMENTS  OF  THE  INTERVAL 
USING  EITHER  PATCHED  CONIC  OR  VIRTUAL  MASS  TWO  BOOY 
FORMULAE, 

CALLING  SEQUENCES  CALL  GA$CAD(RX ,STMAT) 

ARGUMENT 8 RX  I POSITION  AND  VELOCITY  OF  VEHICLE  AT 

BEGINNING  OF  TIME  INTERVAL 

STMAT  0 STATE  TRANSITION  MATRIX  OVER  DESIRED 
INTERVAL 


SUBROUTINES  SUPPORTED.* 
SUBROUTINES  REQUIRED  8 
LOCAL  SYMBOLS  8 DELTAT 

DELT 

01 

IFLAG 

IOS 

ISP3 

PHI 

PSI 

PTP 

RAV 

RHO 

RS 

RSF 


PSIM 

C0NC2  VHP 

TIME  INTERVAL  USED  IN  A SINGLE  ITERATE 

TIME  INTERVAL  OF  CURRENT  PROPAGATION 

INITIAL  TIME  OF  ITERATE  , 

FLAG  TO  DETERMINE  WHETHER  ITERATION  IS 
COMPLETED  , , 

FLAG  INDICATING  HELIOCENTRIC  OR 
PLANETOCENTRIC  PHASE 

FLAG  USED  AS  TRAJECTORY  INTEGRATION 
SPHERE  OF  INFLUENCE  STOPPING  CODE 

CUMULATIVE  STATE  TRANSITION  MATRIX  OVER 
INTERVAL  ( TO,  TK) 

CUMULATIVE  STATE  TRANSITION  MATRIX  OVER 
INTERVAL  ( TO,  TK+i>  .... 

STATE  OF  TARGET  RELATIVE  TO  INERTIAL 
COORDINATE  AT  TIME  TK 

STATE  OF  SPACECRAFT  RELATIVE  TO  DOMINANT 
Booy  FOR  matrizant 

STATE  TRANSITION  MATRIX  OVER  INTERVAL 
<TK,XK+i>  r 

INERTIAL  SPACECRAFT  STATE,  AT  TK  .. 

INERTIAL  SPACECRAFT  STATE  AT  TK+1 
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R1 

SPACECRAFT  STATE  RELATIVE  TO  VIRTUAL  MASS 
AT  TK 

R2 

SPACECRAFT  STATE  RELATIVE  TO  VIRTUAL  MASS 
AT  TK-fri 

SUM 

INTERMEDIATE  VARIABLE 

TIME 

CUMULATIVE  TRAJECTORY  TIME  FROM  INITIAL 
TIME  TO  TK-B-1 

XHU 

VIRTUAL  MASS  MAGNITUDE  AT  TK 

YHU 

VIRTUAL  MASS  MAGNITUDE  AT  TK+1 

COMMON 

COMPUTED  a 

ICL 

COMMON 

USED  8 

ACC  ALNGTH  DATEJ  OELTM  DTPLAN 

OTSUM  ISTHi  NTP  PMASS  RTP 

RVS  TM  TRTM1  VMU  V 
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CAS CAD  Analysis 


CASCAD  approximates  the  state  transition  matrix  defining  state 

perturbations  over  an  arbitrary  interval  ^tQ,  ky  recursively 

computing  state  transition  matrices  over  intervals  £tQ,  > £t°,  t^j  , ... 

• [V  Cf]  • 

The  recursive  formula  for  the  k+1  iteration  based  on  the  k-th  iteration 
is  given  by 


(6  TO.  \If  (f) 

k+l,o  k+l,k  k,o 


a) 


where  is  the  state  transition  matrix  for  the  k+l-st  interval 

k*Tl  ,k 


[V  %.+! 


The  time  interval  ^t^+^  = t^^  - t^  is  determined  by  the  position  vector 

r^  of  the  spacecraft  relative  to  the  target  planet  along  the  nominal  n-body 

trajectory  at  the  time  ti_  . Then  if  RC(_T  denotes  the  radius  of  the  sphere 

dUX 

of  influence  of  the  target  planet  the  time  interval  is  defined  by 


:+l 


At  . „ 

planet 

l£  rk—  *801 

At 

sun 

I£  rk  > Rsoi 

and  the  n~body  nominal 


trajectory  propagated  over  At 
npt  intersect  the  SOI. 


sun 


does 


At. 


SOI 


where  At  . . and  At 

planet  sun 

a partial  step  may  be  required  so  that  At 


if  > RgQ-j-  and  the  n-body  nominal 
trajectory  intersects  the  SOI  after  the 


time  interval  At  where 
SOX 


At 


SOI 


At 


sun 


are  input  parameters.  For  the  last  interval 


n 


The  xjr 


k+1 ,1c 


'f  n-1  * 

matrix  may  be  computed  by  either  of  two  models.  In  the  patch 


conic  model  the  position  and  velocity  vectors  R^,  of  the  spacecraft 

relative  to  the  dominant  body  (the  sun  if  At.,,  = At  or  4t„._,  th 

k*-!  sun  SOI 

target  planet  if  « ^pianeP  at  the  time  \ is  used  to  define  a 
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conic  with  respect  to  the  dominant  body  and  the  Danby  matrizant  over  the 
given  interval  defines  tf'fc+l.k  (C0NC2)  . 


In  the  virtual  mass  model  the  position  and  velocity  vectors 


are 


computed  relative  to  the  virtual  mass  and  the  gravitational  constant  used 
is  that  of  the  virtual  mass  magnitude  at  the  time  t^.  The  Danby  matrizant 

corresponding  to  this  conic  then  is  used  to  compute  i \i  (C0NC2). 

k+l,k 


The  recursive  process  continues  until  the  state  transition  matrix  over  the 
entire  interval  ft0,  tfl  is  determined. 


Reference:  Danby,  J.M.A.,  ''The  Matrizant  of  Keplerlan  Motion,"  AIAA 

Journal,  vol  2,  no  1,  January,  1964. 
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SUBROUTINE  CENTER 

PURPOSES  TO  CONVERT  THE  POSITION  ANO  VELOCITY  VECTORS  OF  THE 
GRAVITATING  800IES  FROM  REFERENCE  BODY  ECLIPTIC  TO 
BARYCENTRIC  ECLIPTIC  AND  STORE  THEM  IN  THE  F ARRAY,, 

CALLING  SEQUENCES  CALL  CENTER 

SUBROUTINES  SUPP0RTE08  EPHEM 

SUBROUTINES  REQUIRED 8 NOME 

LOCAL  SYMBOLS  BARYC  POSITION  AND  VELOCITY  OF  CENTER  OF  MASS 

RELATIVE  TO  EARTHo  (AU,  AU/DAYS 

F ARRAY  OF  PLANET  EPHEMERIS  DATA.  IN  AU, 

AU/OAY  UNITS*  DATA  INDICATED  BY  THE 
FOLLOWING  INDICES 

4*1-2, J VELOCITY  OF  J-TH  PLANET  RELATIVE 
TO  THE  SUN  (INPUT)  AND  RELATIVE 
TO  THE  BARYCENTER  (OUTPUT) 

4*1-3, J POSITION  OF  I-TH  PLANET  RELATIVE 
TO  THE  SUN  (INPUT)  AND  RELATIVE 
TO  THE  BARYCENTER  (OUTPUT) 
4*IM-2, J VELOCITY  OF  MOON  RELATIVE  TO 
EARTH  (INPUT)  AND  RELATIVE  TO 
BARYCENTER  OUTPUT 

4*IM-3,J  POSITION  OF  MOON  RELATIVE  TO 
EARTH  (INPUT)  AND  RELATIVE  TO 
BARYCENTER (OUTPUT) 

GEOP  POSITION  AND  VELOCITY  ,OF  BODIES  RELATIVE 
TO  THE  EARTH.  (AU,  AU/OAY) 

XNO  INDEX  USED  TO  EXTRACT  EARTH  EPHEMERIS  DATA 
RELATIVE  TO  SUN  FROM  F-ARRAY 

IX  INDEX  OF  IJ-TH  GRAVITATIONAL  BODY 

SUM  SUM  OF  GRAVITATIONAL  CONSTANTS 

(AU**3/DAY**2) 

SUN  POSITION  ANO  VELOCITY  OF  SUM  RELATIVE  TO 
EARTH  (AU,  AU/DAY) 

COMMON  COMPUTED /USED 8 F INITAL  V 

COMMON  USED 8 N80DYI  NO  PMASS  ZERO 
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CENTER  Analysis 


Let  the  state  vector  of  position  and  velocity  of  the  gravitating  bodies 
(excluding  the  moon)  in  heliocentric  ecliptic  coordinates  be  denoted 

6»^  at  some  reference  time.  Let  the  index  of  the  earth  be  ig.  Then 

the  coordinates  of  all  bodies  (excluding  the  moon)  relative  to  the  earth 
is 


i«l,n  , i^i^ 
i®l,n  , i^i^ 


(1) 


Let  the  position  and  velocity  of  the  moon  relative  to  the  earth  be 

denoted  "r*.,  , *v\  . 

M % 

Define  the  radius  vector  to  the  center  of  mass  (in  earth  ecliptic  coordin- 
ates) by 


n 


R_ 


JL  V 11  -r. 

M iti  1 1 


«-'e 

i=l 


(2) 


CM  M 

Its  velocity  relative  to  the  earth  may  then  be  found  by  differentiation. 


1=1 


"i  Vi 


(3) 


The  coordinates  of  all  gravitating  bodies  relative  to  the  center  of  mass 
may  then  be  computed 


V 

i 


(4) 
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SUBROUTINE  CONCAR 

purpose*  to  convert  a conic  state  in  terms  of  r,  theta,  e,  p,  pa, 

QA  AND  GNU  INTO  A CARTESIAN  STATE 
ARGUMENT*  CSTA  I COSINE  OF  TRUE  ANAMOI.Y  AT  CURRENT  STATE 

E I eccentricity  OF  CONIC 

GWU  I GRAVITATIONAL  CONSTANT  OF  PLANET  IN 

KM**3/SEC**2 

PA  I UNIT  VECTOR  IN  DIRECTION  OF  PERIAPSIS 

P I SEMI-LATUS  RECTUM  OF  CONIC  IN  KM 

QA  I UNIT  VECTOR  IN  ORBIT  PLANE  IN  DIRECTION 

90  OEG  ADVANCED  FROM  PA 

*V  0 POSITION  VECTOR  OF  CURRENT  STATE  IN  KM 

R I 'MAGNITUDE  OF  POSITION  VECTOR  AT  CURRENT 

STATE  IN  KM 

SNTA  I SINE  OF  TRUE  ANAMOLY  AT  CURRENT  STATE 

W 0 VELOCITY  VECTOROF  CURRENT  STATE  IN  KM/SEC 

SUBROUTINES  SUPPORTED*  TPPROP  TPRTRG 

LOCAL  SYMBOLS*  HOP  ANGULAR  MOMENTUM  DIVIOEO  BY  SEMI-LATUS 

RECTUM  IN  KM/SEC 

POSPA  PROJECTION  OF  POSITION  VECTOR  ON  PA  IN  KM 

POSQA  PROJECTION  OF  POSITION  VECTOR  ON  QA  IN  KM 

VELPA  PROJECTION  OF  VELOCITY  ON  PA  IN  KM/SEC 

VELQA  PROJECTION  OF  VELOCITY  ON  QA  IN  KM/SEC 
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SUBROUTINE  C.0NC2 

PURPOSES  COMPUTE  STATE  TRANSITION  MATRIX  USING  ANALYTICAL 

PATCHEO  CONIC  OR  ANALYTICAL  VIRTUAL  MASS  TECHNIQUES 

CALLING  SEQUENCES  CALL  C0NCZ«R9Vs>DELT,GHXsPSIEC> 

ARGUMENTS  CELT  I TIME  INCREMENT  OVER  WHICH  THE  STATE 

TRANSITION  MATRIX  IS  BEING  CQMPUTED 

6MX  I GRAVITATIONAL  CONSTANT  OF  GOVERNING  BODY 

PSIEC  0 STATE  TRANSITION  MATRIX 

R I POSITION  OF  THE  VEHICLE  RELATIVE  TO  THE 

GOVERNING  BODY  

V I VELOCITY  OF  THE  VEHICLE  RELATIVE  TO  THE 

GOVERNING  BOOY 

SUBROUTINES  SUPPORTEDs  PSIM  CASCAO  PCTM 

LOCAL  SYMBOLS  3 A SEMI-MAJOR  AXIS 

* 

Ai  INTERMEDIATE  VARIABLE 

A2  INTERMEDIATE  VARIABLE 

A3  INTERMEDIATE  VARIABLE 

AM2  INTERMEDIATE  VARIABLE 

Cl  MAGNITUDE  OF  RXV 

CSE  COSINE  OF  ECCENTRIC  ANOMALY 

CTA  COSINE  OF  TRUE  ANOMALY 

CTA2  COSINE  OF  TRUE  ANOMALY  ON  ELLIPSE 

OOXO  INTERMEDIATE  VARIABLE 

DOYO  INTERMEDIATE  VARIABLE 

0X0  INTERMEDIATE  VARIABLE 

DYO  INTERMEDIATE  VARIABLE 

E ECCENTRICITY 

EA  ECCENTRIC  ANOMALY 
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FMXi  XNTERMEDX ATE  VECTOR 

FMX  INTERMEDIATE  VECTOR 

F INTERMEDIATE  VARIABLE 

N INTERMEDIATE  VARIABLE 

OPEC  INTERMEDIATE  VECTOR 

ORB  INTERMEDIATE  VARIABLE 

P SEMI-LATUS  RECTUM 

PI  MATHEMATICAL  CONSTANT 

PSIOP  INTERMEDIATE  STATE  TRANSITION  MATRIX 

PV  INTERMEDIATE  VECTOR 

Q INTERMEDIATE  VECTOR 

Rp  R DOT  V DIVIDED  8Y  MAGNITUDE  OF  R 

RM  MAGNITUDE  OF  R 

i 

RRD  R DOT  V 

RTHD  INTERMEDIATE  VARIABLE 

R2  INTERMEDIATE  VARIABLE 

R3  INTERMEDIATE  VARIABLE 

SNE  SINE  OF  ECCENTRIC  ANOMALY 

SNF  SINE  OF  F 

STA  SINE  OF  TRUE  ANOMALY 

STA2  SINE  OF  TRUE  ANOMALY  ON  ELLIPSE 

TXH1  INTERMEDIATE  TIME 

TIM2  INTERMEDIATE  TIME 

VM  MAGNITUDE  OF  V 

HV  RXV 

XO  INTERMEDIATE  VARIABLE 

YO  INTERMEDIATE  'VARIABLE 
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Z INTERMEDIATE  VECTOR 


COMMON  USED 8 

EM  8 

HALF 

ONE 

THREE  TWOPX 

TWO 

ZERO 
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C0NC2  Analysis 


C0NC2  is  responsible  for  the  computation  of  a state  transition  matrix 
about  a conic  trajectory  using  the  Danby  matrizant  analytic  formula. 


Danby  has  shown  (see  Reference  2)  that  the  state  transition  matrix  (or 
matrizant)  has  a particularly  simple  form  if  written  in  the  orbital  plane 
coordinate  system.  The  state  transition  matrix  0 defined  by 


5xf  •»  0 (tf,  tQ)  <5X 


(1) 


where  £xf,  5xq  refer  to  perturbations  about  a conic  trajectory  at  time 
fcf»  fco  respectively  may  be  written  in  the  orbital  plane  system 


0(tf,  to)  - M(tf)  M'1  (tQ) 


where  M$t),  M ^(t)  may  be  computed  from  the  following  formulae 


(2) 


* ! ? 

Y 

0 
X 

Y 
.0 


M**1  *»  AJMTJT 


YX-h 

-XX 

0 

YX+YX 

rX2-XX 

0 


0 

2X-3rX 

YY 

0 

0 

2Y-3TY 

-YX-2h 

.0 

Y 

0 

0 

-X 

0 

-X-3TX 

Y2  + YY 

0 

0 

-If- 3 TY 

* • 

-XY-YX 

0 

Y 

0 

0 

-X 

*#«#*# 

where  X,Y,X,Y,X,Y  are  evaluated  at  the  time  t 
h is  the  angular  momentum  constant 

T Is  the  time  interval  from  t to  some  epoch  (periapsls) 


and 


A = diag  ( a/jtt,  a///h,  1/h,  a/M,  a/uh,  1/h) 
J = 


0 

I 


-I 

0 


(3) 


(4) 


(5) 

(6) 


Thus  to  use  the  Danby  formulation  one  must  determine  the  transformation 
from  the  reference  frame  to  the  orbital  plane  coordinates , compute  the 
values  of  the  quantities  X,Y,X,Y,X,Y  and  h and  r at  the  times  t # t 
and  then  use  the  above  equations.  ° f 

Let  the  initial  state  of  the  conic  be  denoted  ‘r’,  v,  the  gravitational 
force  ft  , and  the  time  interval  At.  Then  the  unit  vectors  9 in  the 

dijeCfti0tH°f  |er*aPsis>  w iri  fche  direction  of  the  angular  momentum  vector, 
^ ^ e fining  the  orbital  plane  coordinate  system  may  be  computed 

by  the  following  conic  equations  ™ 
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h » 1 r x v 1 

X7) 

W « 

(8) 

r - £ • v 

V 

(9) 

h^, 

p T 

(10) 

« r 

(11) 

2 - r vZlu 

e c Vl  “ P/a 

(12) 

cos  f = -P-  — r sin  f = -£-^- 

er  //e 

(13) 

x — * — * 

z » ^ v - — r 

h h 

(14) 

P = cos  f — - sin  f z 
r 

(15) 

Q *=  sin  f — + cos  f z* 
r 

(16) 

£ 02  , 

(17) 

The  transformation  matrix  from  the  original-  r,  v system  to  the  orbital 
plane  system  may  then  be  written 


[a  i 

p : q l w 

i i > j 

Let  the  true  anomaly  at  the  pertinent  time  (tQ  or  t^)  be  denoted  f 
Then  the  quantities  required  in  (3)  are  written 


(18) 


X » r cos  f Y 

X = r cos  f - rf  sin  f -Y 


r 


r sin  f 


r sin  f + rf  cos  f 

_ i£Y 

3 

r 


(3  9) 


Having  computed  the  state  transition  matrix  <P  , corresponding  to  the 
orbital  plane  system  by  equations  (2),  (3),  (4),  it  is  an  easy  task  to 
convert  it  to  the  normal  reference  system 

0 «=  T 0 TT  (20) 
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References:  Battin,  R.  H. , Astronautical  Guidance,  McGraw-Hill  Book  Co., 

New  York,  1964. 

Danby,  J.M.A.,  Matrizant  of  Keplerian  Motion,  AlAA  J.,  vol.  3, 
no.  4,  April,  1965. 
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C0NC2  Flow  Chart 


i 
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CONVRT-A 


SUBROUTINE  CONVRT- 

PURPOSES  TO  COMPUTE  THE  GEOCENTRIC  EQUATORIAL  COORDINATES  OF  THE 
VEHICLE. 

CALLING  SEQUENCES  CALL  CONVRT  CRpPHX  9THETAs,VEL?GAHMA,SXGMA9X,Y,Z, 

V«,VV„V2) 

- ARGUMENTS  GAMMA  I PATH  ANGLE 

R I GEOCENTRIC  RADIUS 

PHI  I DECLINATION 

THETA  I RIGHT  ASCENSION 
VEL  I VELOCITY 

SIGMA  I AZIMUTH 

X OX  COMPONENT  OF  POSITION  IN  GEOCENTRIC 

EQUXTORIAL  COORDINATES 

Y 0 Y COMPONENT  OF  POSITION  IN  GEOCENTRIC 

EQUITORIAL  COORDINATES 

Z 0 Z COMPONENT  OF  POSITION  IN  GEOCENTRIC 

EQUITORIAL  COORDINATES 

VX  OX  COMPONENT  OF  VELOCITY  IN  GEOCENTRIC 

EQUITORIAL  COORDINATES 

VY  0 Y COMPONENT  OF  VELOCITY  IN  GEOCENTRIC 

EQUITORIAL  COORDINATES 

VZ  0 2 COMPONENT  OF  VELOCITY  IN  GEOCENTRIC 

EQUITORIAL  COORDINATES 

SUBROUTINES  ^UPPORTEDS  DATA  ' DAT AS 

LOCAL  SYMBOLS 8 Bi  INTERMEDIATE  VARIABLE 

♦ J V,  I 

82  INTERMEDIATE  VARIABLE 

B3  INTERMEDIATE  VARIABLE 

CG  COSINE  OF  PATH  ANGLE 

CP  CQSXNE  OF  DECLINATION 

CT  COSINE  OF  RIGHT  ASCENSION. 

SG  SINE  OF  PATH  ANGLE 
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CONVRT-B 


SP  SINE  OF  DECLINATION 

ST  SINE  OF  RIGHT  ASCENSION 
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CONVRT  Analysis 


Geocentric  equatorial  position  and  velocity  components  are  related  to  geo- 
centric radius,  declination,  right  ascension,  velocity  magnitude,  flight 
path  angle,  and  azimuth  through  the  following  equations: 


x = r cos  cf>  cos  0 
y “ r cos  <fj  sin  0 
z “ r sin  <f> 

X v (sin  T cos  <f>  cos  0 - cos  T sin  o sin  0 - cos  T 
cos  a sin  <f>  cos  0) 

y = v (sin  T cos  <j)  sin  0 + cos  T sin  a cos  0 - cos  T 
cos  a sin  <p  sin  0) 

z = v (§in  ,T  sin  cf>  + cos  T cos  a cos  <f> ) 


The  definitions  of  pertinent  quantities  are  apparent  in  the  following 
figure. 
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SUBROUTINE  COPINS 


PURPOSE*  TO  DETERMINE  THE  IMPULSIVE  CORRECTION  AND  TIME  REQUIRED 
TO  INSERT  FROM  AN  APPROACH  HYPERBOLA  INTO  A COPLANAR 
ELI.PTICAL  ORBIT. 


CALLING  SEQUENCE l CALL 

COPINS(GM,R,V,OA,OE,DELW,TEX,OELV,IEX> 

ARGUMENTS*  GM 

I 

GRAVITATIONAL  CONSTANT 

R13) 

I 

POSITION  VECTOR  AT  DECISION 

VC3> 

I 

VELOCITY  VECTOR  AT  DECISION 

DE 

I 

DESIRED  SEMIMAJOR  AXIS 

DE 

I 

QESIRED  ECCENTRICITY 

DELH 

I 

DESIRED  PERIAPSIS  SHIFT 

TEX 

0 

TIME  FROM  DECISION  TO  EXECUTION 

(SECONOS) 

Q£LV<3) 

0 

INSERTION  VELOCITY  CORRECTION 

ZEX 

0 

EXECUTION  CODE 

sO  EVENT  IS  EXECUTABLE 

*1  NO  EXECUTABLE  SOLUTION  FOUND 

SUBROUTINES  SUPPORTED* 

INSERS 

SUBROUTINES  REQUIRED* 

CAREL  ELCAR 

LOCAL  SYMBOLS*  A A 

COEFFICIENT  DEFINING  TANGENTIAL 
FOR  A 

SOLUTION 

AH 

HYPERBOLIC  SEMIMAJOR  AXIS 

ARC 

THE  CONST AMT  180  » 

A1 

t 

CANIOATE  SOLUTION  FOR  SEMIHAJQR 

* l 

AXIS 

AZ 

CANIDATE  SOLUTION  FOR  SEMI MAJOR 

AXIS 

A 

TARGET  SEMI MAJOR  .AXIS  t . 

BB 

COEFFICIENT  DEFINING  TANGENTIAL 
FOR  A 

SOLUTION 

B 

TANGENTIAL  SOLUTION  CONSTANT. 

CC 

i 

COEFFICIENT  DEFINING  TANGENTIAL 
FOR  A 

SOLUTION 

149 


COPINS- B 


COE 

COSTH 

COSW 

C 

0ELVM 

DISC 

DISK 

DRA 

ORP 

DVM 

DV 

0 

EH 

ERRMAX 

ERR 

ER 

ETA 

E 

HI 
HN 
HRP 
HR 
I OPT 


1/E 

COS (THETA) 

C0S«WJ 

TANGENTIAL  SOLUTION  CONSTANT 

MAGNITUDE  OF  FINAL  CORRECTION 

DISCRIMINANT  OF  SOLUTION  FOR  THETA 

DISCRIMINANT  OF  TANGENTIAL  SOLUTION 
FOR  A 

QESIRED  APOAPSIS  RADIUS 

DESIRED  PERI APSIS  RADIUS 

MAGNITUOE  OF  VELOCITY  CORRECTION  FOR 
CANDIDATE  SOLUTION 

VELOCITY  CORRECTION  OF  CANDID. ATE  SOLUTION 

TANGENTIAL  SOLUTION  CONSTANT  , 

HYPERBOLIC  ECCENTRICITY 

SCALAR  ERROR  ASSOCIATED  WITH  IMPOSSIBLE 
SOLUTION 

SCALAR  ERRORS  OF  CANDIDATE  SOLUTIONS 

RADIUS  ON  ELLIPSE  AT  INSERTION 

TRUE  ANOMALY  ON  ELLIPSE  AT  INSERTION 

ECCENTRICITY  Q.P  ELLIPSE 

INCLINATION  OF  HYPERBOLA 

ASCENDING  NODE  OF  HYPERBOLA  , 

HYPER80LIC  P5RIAPSIS  RADIUS 

RADIU.S  OF  HYPERBOLA  AT  .INSERTION 

TYPE  OF  SOLUTION 
-Q  ORBITS  INTERSECT  • 

si  MUST  MODIFY  ORBIT  TO  OBTAIN  SOLUTION 


ISOL 


INDEX  OF  SOLUTION 


COP INS -C 


HIM 

NSOLS 

PH 

PX 

PP 

P 

QQ 

rad 

RA 

RD 

REH6 

RE 

RH 

RMAG 

RP 

SGN 

SXNW 

STA 

SYGN 

S 

TFPE 

TFPH 

THA 

TIMDX 

TXMD 


INDEX  OF  MINIMUM  LOSS  FUNCTION  SOLUTION 

NUMBER  OF  SOLUTIONS 

HYPERBOLIC  SEM2LATUS  RECTUM 

THE  MATHEMATICAL  CONSTANT  PI 

UNIT  VECTOR  TOWARD  PERIAPSIS 

ELLIPTICAL  SEMILATUS  RECTUM 

UNIT  VECTOR  IN  ORBIT  PLANE  NORMAL  TO  PP 

QEGREE  TO  RADIAN  TRANSFORMATION 

APOAPSIS  RADIUS 

RADIUS  TO  DECISION  STATE 

MAGNITUDE  OF  RADIUS  ON  ELLIPSE  AFTER 
INSERTION  

POSITION  VECTOR  ON  ELLIPSE  AFTER 
INSERTION 

POSITION  QN  HYPERBOLA  BEFORE  INSERTION 

MAGNITUDE  OF  RADIUS  ON  HYPERBOLA- BEFORE 
INSERTION 

* l 

PERIAPSIS  RADIUS 

PARAMETER  IN  TANGENTIAL  SOLUTION 
SIN(H) 

TRUE  ANOMALY  ON  HYPERBOLA  AT  OECISION 
POSITIVE  OR  NEGATIVE  SIGN  IN  QUADRATIC 
INTERMEDIATE  VARIABLE 
TIME  FROM  PERIAPSIS  ON  .ELLIPSE 
HYPERBOLIQ  TIME  FROM  PERIAPSIS  AT  INSERT 
TRUE  ANOMALY  OF  INSERTION  ON" HYPERBOLA 
TIME  FROM  DECISION  TO  EXECUTION 
TIME  FROM  PERIAPSIS  AT  DECISION 
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VD  SPEED  AT  OECXSXON 

VEMG  SPEED  ON  ELLIPSE  AFTER  INSERTION 

VE  VELOCITY  VECTOR  ON  ELLIPSE  AFTER  INSERTION 

VH  VELOCITY  VECTOR  ON  HYPERBLOA  BEFORE 

INSERTION 

VMAG  SPEED  ON  HYPERBOLA  BEFORE  INSERTION 
HH  HYPERBOLIC  ARGUMENT  OF  PERIAPSIS 

HW  UNIT  NORMAL  TO  ORBITAL  PLANE 

m,  ARGUMENT  OF-  PERIAPSIS  OF  ELLIPSE 

W PERIAPSIS  SHIFT 

\ 

X CONSTANT  IN  EQUATION  DEFINING  HYPERBOLIC 

TRQE  ANOMALY  AT  INSERTION 

Y CONSTANT  IN  EQUATION  DEFINING  HYPERBOLIC 

TRUE  ANOMALY  AT  INSERTION 

Z CONSTANT  IN  EQUATION  DEFINING  HYPERBOLIC 

TRUE  ANOMALY  AT  INSERTION 


COPINS- 1 


COPINS  Analysis: 


COPINS  determines  the  impulsive  correction  and  time  required  to  insert 
from  an  approach  hyperbola  into  a coplanar  elliptical  orbit.  The  approach 
hyperbola  is  specified  by  a plane to centric  state  "r,  "v  at  a decision  time 
fcd*  £*e8*re<*  elliptical  orbit  is  prescribed  by  input  parameters  a,  e, 

ACO  where  a and  e are  the  semi-major  axis  and  eccentricity  of  the 

desired  ellipse  and  AiO  is  the  angle  (measured  counter  clockwise)  from 

the  t hyperbolic  periapsis  to  the  periapsls  of  the  desired  orbit.  The 
situation  is  illustrated  in  Figure  1. 


Figure  1.  Approach  Hyperbola  and  Desired  Orbit 

The  planetocentric  ecliptic  state  ‘r, "v  at  the  time  of  decision  t^  is 
first  converted  to  Keplerlan  elements.  (aH,  eH>  1R,  H,  £>H,  t^)  via  sub- 
routine CAREL  where  t„ , is  the  time  from  periapsls  (negative  on  the  approach 

ray).  The  angle  f between  the  hyperbolic  periapsis  and  the  approach 
asymptote  S is  computed  from 

cos  f^  =■  ~ ^ 0 < f00<  90°  (1) 

Thus  the  angle  a)  between  the  hyperbolic  periapsis  and  the  desired  elliptical 
periapsis  is  given  by 

U)  = A U)  (2) 


The  hyperbola  and  ellipse  may  therefore  be  described  in  the  PQ  plane  by* 
standard  conic  formula,  specifically. 
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rH  1 + e„  cos9 
H 

(3) 



rj5  1 + e cob  (0  - oj) 

E 

A 

where  0 is  measured  counter-clockwise  from  P and  P^jPg  are  the  semi- 

latus  rectum  of  the  hyperbola  and  ellipse  respectively.  Obviously  if  an* 
angle  of  intersection  0*  is  known,  the  states  on  both  conics  ( r“  , v^*) 

and  ( r , v^  ) may  be  computed  from  conic  formulae  and  the  deeired  impul- 

* sive  correction  is  given  by 


Av  = v^*  - v^*  (4) 

•ft 

Likewise  the  time  from  periapsis  to  the  intersection  point  t may  be 
computed  using  hyperbolic  formula  and  therefore  the  time  from  decision  to 
execution  is  given  by 


At  * t*  - td  (5) 

Thus  the  coplanar  insertion  problem  reduces  to  the  determination  of  the 
optimal  angle  8 for  'the  impulsive  maneuver. 

From  (3)  the  values  of  0 for  which  r = r are  given  by 
„ HE 


cos  0 = =2SL 

y2  + z2 

where 

X " PH  “ PE 

y “ PH  *E  COS0)  " PE  eH 
z « p e sino> 

D - y"  +\*  - *2 

If  the  discriminant  D^:  0 there  are  at  most  two  real  non- extraneous 
solutions  8uctl  tliat  rE (®)  = *H(0).  Note  that  the  angle  0 may 

not  lie  in  the  region  inside  the  approach  and  departure  asymptotes.  If 
there  are  two  solutions,  both  flv  's  are  computed  by  (4)  and  the  minimum 
Av  transfer  is  selected. 


(6) 


(7) 
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If  D<0,  the  applied  hyperbola  and  the  desired  orbit  do  not  intersect  and 
there  is  no  impulsive  transfer  between  the  two  conics.  In  such  a case  the 
desired  elements  a^  and  e^  are  modified  to  determine  the  "best"  tangen- 
tial solution  possible.  Three  different  modifications  are  tested: 


(1) 

Vary 

r 

a 

while 

holding 

r 

(2) 

Vary 

rP 

while 

holding 

r. 

(3) 

Vary 

while 

holding 

e] 

at  the  desired  value, 
at  the  desired  value, 
at  the  desired  value. 


The  three  modification  schemes  are  Illustrated  in  Figure  2 where  the  original 
nonintersecting  orbit  is  shown  by  the  broken  lines. 


a. 


Modify  r 

a 


b.  Modify 


c.  Modify  a 


Figure  2.  Candidate  Orbit  Modifications* 


It  is  desired  to  modify  the  "a"  and  the  "e”  of  the  desired  orbit  to  achieve 
the  tangential  configurations.  From  (6)  it  is  obvious  that  a necessary 
-condition  for  a tangential  solution  is  given  by  D=0.  Using  (7)  D may  be 
written 


where 


» - Ph  <4  - 1)  + Pg  b + ?PhPE  - cPEeE 


c *=  2pfieH  cos  (o 


(8) 


where  it  is  observed  the  approach  hyperbola  is  fixed  and  it  is  desired  not 
to  vary  the  W of  the  desired  ellipse  so  that  subsequent  apsidal  rotations 
are  avoided. 
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Modification  Option  li  Rewriting  (8a)  In  terms  of  a and  r^ 

a^D  **  (4  r^  b + 4 r p„  - 2 r c)  a^ 

P P 11  P 

+ (-2  r - 4 r^  b - 2 p r^  + 3 r"  b)a 
H p p H p p 

. , 2 2 , 4 , 3 < 

+ (pTT  r + r b-cr  ) 

H p p P 


leads  to 


(9) 


Now  if  D is  set  equal  to  0,  r held  at  its  desired  value,  and  the  resulting 

quadratic  solved  for  r,aff , the  solution  will  correspond  to  the  tangential 
solution  which  holds  r constant.  If  a^O  or  imaginary,  the  solution 

is  disregarded.  The  modified  eccentricity  is  of  course  defined  by 


e « 1 - IJ2 

a 


(10) 


Modification  Option  2:  Rewriting  (8a)  in  terms  of  a and  r leads  to 

a 

a^D  * (4  ra2  b + 4 r pu  + 2 r c)a^ 

a a ri  a 

+ (-2  pj  r - 4 b - 2 pH  rf  - 3 rj  c)a 


,/2  2 4,  ’ 3 v 

+ ra  + ra  b + c ra  > 


(11) 


For  computational  purposes  the  similarity  between  (9)  and  (11)  may  be 
exploited.  Again  setting  D « 0 and  holding  ra  at  its  desired  value, 

the  value  of  naM  may  be  determined  which  specifies  the  tangential  solution 
holding  constant.  Having  determined  a realistic  value  of  ,fa,f,  the 

corresponding  eccentricity  is  given  by 


e 


(12) 


Modification  Option  3:  Rewriting  (8a)  in  terms  of  a 

D * Xd2b)a2  + (2p^d  ” cd  eE)a  - dP^ 
d - (X  - / ) 


and  e leads  to 
E 


(13) 


Setting  D - 0 and  solving  for  "a”  while  holding  e_.  at  its  desired  value 
then  defines  the  option  3 solution. 


\ * 
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To  determine  the  ,,best,f  modified  orbit  from  the  three  candidate  options 
a rather  arbitrary  scheme  is  used.  A scalar  error  is  assigned  to  each 
option  according  to  a weighting  factor  and  the  difference  between  the 
desired  and  achieved  values  of  the  perlapsie  and  apoapsis  radii: 

Ei  * "t  < |*rj  + |Arp|  ) 

where  the  acalar  factor  is  set  to  1,2,3  respectively  for  the  three 

options.  Thus  the  preferred  strategy  is  the  one  which  requires  a correction 
only  at  apoapsis  while  the  least  desired  scheme  requires  subsequent  corrections 
both  at  periapsis  and  apoapsis. 

i$ivlng  determined  orbital  elements  that  necessarily  lead  to  a tangential 
solution,  (6)  may  now  be  used  to  compute  the  angle  of  intersection  0.. 
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Determine  radius  at  intersection  on 
hyperbola  r^  and  ellipse  rg  . 


r,  - r - ? 
h e 


^ \ <°  f 
e - ?>  ■>(  b 


Compute  state  r^,  V and  time 
t^  on  hyperbola  and  state  on 
ellipse  re,  v“e  at  intersection. 


6 « -0 


Compute  insertion  velocity  and  time 
^ISOL  = % -\*n 
^tISOL  “ S " tD 


IOPT=?. 


» I AV  I , At  > 0 
ISOL  !“  ISOL  ’ 

- io25.  At  < 0 


ISOL=  1. 


Choose  index  MIN  of  minimum 
Set  Av  - A^mIN 

A t = A tMIN 


If  €min  **  .5x10  or  At<0 
Set  IEX  « 1 


RETURN 


CORREL-A 


SUBROUTINE  CORREL 

PURPOSES  CONVERT  COVARIANCE  MATRIX  PARTITIONS  TO  CORRELATION 
MATRIX  PARTITIONS  AND  STANOARD  DEVIATIONS  AND  WRITE 
THEM  OUT 

CALLING  SEQUENCES  CALL  CORRELCPP,CXXSP9PSP,CXUP,UO*CXVP9 V0,CXSUP9 

CXSVP) 

ARGUMENTS  PP  I POSXTION/VELOCXTY  COVARIANCE  MATRIX 

f 

CXXSP  I CORRELATION  BETWEEN  SOLVE-FOR  PARAMETERS 
ANO  POSITION/VELOCITY  STATE 

PSP  I SOLVE-FOR  PARAMETER  COVARIANCE  MATRIX 

CXUP  I CORRELATION  BETWEEN  POSITION/VELOCITY  STATE 

ANO  DYNAMIC  CONSIDER  PARAMETERS 

HO  I DYNAMIC  CONSIDER  PARAMETER  COVARIANCE 

MATRIX 

CXVP  I CORRELATION  BETWEEN  POSITION/VELOCITY  STATE 
ANO  MEASUREMENT  CONSIOER  PARAMETERS 

VO  I MEASUREMENT  CONSIDER  PARAMETER  COVARIANCE 

MATRIX 

CXSUP  I CORRELATION  BETWEEN  SOLVE-FOR  PARAMETERS 
ANO  DYNAMIC  CONSIOER  PARAMETERS 

CXSVP  I CORRELATION  BETWEEN  SOLVE-FOR  PARAMETERS 
ANO  MEASUREMENT  CONSIOER  PARAMETERS 

SUBROUTINES  SUPPORTEOS  PRINT 4 SETEVS  GUISIM  PRESIM  PRNTS4 

PRINTS  SETEVN  GUIDM  PREO  PRNTS3 

LOCAL  SYMBOLS  8 OUM  INVERSE  OF  SQUARE  ROOT  OF  DIAGONAL 

ELEMENTS  IN  DYNAMIC  ANO  MEASUREMENT 
CONSIOER  COVARIANCE  PARTITIONS 

IENQ  COUNTER  INDICATING  TOTAL  NUMBER  OF 
AUGMENTED  STATE  VARIABLES  . 

ROM  INTERMEDIATE  COMPUTATION  ANO  OUTPUT  VECTOR 

SQP  INVERSE  OF  THE  SQUARE  ROOT  OF  DIAGONAL 
. ELEMENTS  IN  VEHICLE  ANO  SOLVE-FOR 
■r  COVARIANCE  PARTITIONS 

ZZ  STANDARD  DEVIATION 

r i • * « 

COMMON  USED 8 KPRINT  NOIM1  NDIH2  NDIH3  ONE 


m 


DATA-A 


SUBROUTINE  OATA 

PURPOSE*  TO  READ  INPUT  DATA,  TRANSLATE  THIS  DATA  INTO  PROPER 

INTERNAL  VALUES,  ASSIGN  VALUES  TO  UNSPECIFIED  NAMELIST 
VARIABLES,  SET  NECESSARY  INITIAL  VALUES,  COMPUTE 
DIMENSIONS  OF  STATE  TRANSITION,  OBSERVATION,  ANO 
COVARIANCE  MATRIX  PARTITIONS,  ORDER  MEASURMENT  ANO  EVENT 
SCHEDULES,  ANO  PRINT  OUT  INITIAL  CONDITIONS  IN  THE  ERRAN 
PROGRAM. 

CALLING  SEQUENCES  CALL  DATA 
ARGUMENT#  NONE 
SUBROUTINES  SUPPORTED*  ERRON 

SUBROUTINES  REQUIRED#  CONVRT  EPHEM  GHA  ORB  PECEQ 

TIME  TRANS  OATAl  GQATA  ELCAR 

LOCAL  SYMBOLS!  AI  INCLINATION 

AMIN  INTERMEDIATE  VARIABLE 

ANODE  LONGITUDE  OF  ASCENDING  NOOE 

A SEMIMAJOR  AXIS 

OGTR  DEGREE  TO  RADIAN  CONVERSION 

DUM1  INTERMEDIATE  STORAGE  ARRAY 

OUM  INTERMEDIATE  STORAGE  ARRAY 

D INTERMEDIATE  JULIAN  DATE 

, OATE  ARRAY  CONTAINING  FINAL  JULIAN  DATE 

EARTH  CALENDAR  OATE  AT  WHICH  EARTHS  ORBITAL 

ELEMENTS  WILL  BE  CALCULATED 

E ECCENTRICITY 

, FNDT  OATE  OF  FINAL  TIME 

GAMMA  PATH  ANGLE 

GM  GRAVITATIONAL  CONSTANT  OF  CENTRAL  BODY 

IOAY  CALENDAR  DAY  OF  FINAL  TIME 

I HR  CALENDAR  HOUR  OF  FINAL  TIME 

I MIN  CALENDAR  MINUTES  OF  FINAL  TIME 
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DATA-B 


IMO 

CALENOAR 

MONTH  OF  FINAL  TIME 

IPMN 

FLAG  FOR 

MAIN  PROBjE  MEASUREMENT 

NOISE 

ISMN 

FLAG  FOR 

MINI-PROBE  MEASUREMENT 

NOISE 

IYR 

CALENOAR 

YEAR  OF  FINAL  T’lME 

JUPITER 

CALENOAR  DATE  AT  WHICH  ORBITAL 
JUPITER  WILL  EE  CALCULATED 

ELEMENTS 

OF 

LDAY 

CALENDAR 

OAY  OF  INITIAL  TIME 

LHR 

CALENDAR 

HOURS  OF  INITIAL  TIME 

LMIN 

CALENDAR 

MINUTES  OF  INITIAL  TIME 

L MO 

CALENOAR 

MONTH  OF  INITIAL  TIME 

LYR 

CALENDAR 

yVaR  OF  INITIAL  TIME 

MARS 

CALENDAR  DATE  AT  WHICH  ORBITAL 
MARS  WILL  BE  CALCULATED 

EL EMENTS 

OF 

MERCURY  CALENDAR  ^JATE  AT  WHICH  ORBITAL  ELEMENTS  OF 
MERCURY  WILL  BE  CALCULATED 


MOON  CALENDAR, D%TE  AT  WHICH  ORBITAL  ELEMENTS  OF 
EARTHS  MOON'  WILL  BE  CALCULATED 

i 

NENT  NUM8ER  OF  ENTRIES  IN  MEASUREMENT  SCHEDULE 

NEPTUNE  CALENOAR  DATE  AT  WHICH  ORBITAL  ELEMENTS  OF 
NEPTUNE  WILL  BE  CALCULATED 

OME  ARGUMENT  OF  PERIAPSIS 

PHIT  DECLINATION 

PLUTO  CALENDAR  DATE  AT  WHICH  ORBITAL  ELEMENTS  OF 
PLUTO  WILL  BE  CALUCLATED 

PRD  INITIAL  SEMI-LATUS  RECTUM  OF  SPACECRAFT 

0R8IT 

RDS  GEOCENTRIC  RADIUS  OF  VEHICLE 

RD  MAGNITUDE  OF  POSITION  VECTOR 

’ *SA‘TUR*r  CALENDAR' ‘^ATE  AT*  &HICH  ORBITAL  ELEMENTS  OF 
SATURN  WILL  BE  CALCULATED 
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DATA-C 


SEC  INTERMEDIATE  CALENDAR  SECONDS 

SECI  CALENDAR  SECONDS  AT  FINAL  TIME 

SECL  CALENOAR  SECONDS  AT  INITIAL  TIME 

SIGMA  AZIMUTH 

f A TRUE  ANOMALY  OF  INSTANTANEOUS  POSITION  ANO 

VELOCITY 

THETA  RIGHT  ASCENSION 

URANUS  CALENDAR  DATE  AT  WHICH  ORBITAL  ELEMENTS  OF 

URANUS  WILL  BE  CALCULATED 

VEL  INJECTION  VELOCITY  RELATIVE  TO  EARTH 

VENUS  CALENOAR  DATE  AT  WHICH  ORBITAL  ELEMENTS  OF 

-VENUS  WILL  BE  CALCULATED 

VL  MAGNITUDE  DF  VELOCITY  VECTOR 

VUNIT  INTERMEDIATE  VELOCITY  CONVERSION  FACTOR 


COMMON  COMPUTED/USED8 

ACCND 

ACC  

_ ALNGTH 

CXSU 

CXSV 

CXU 

CXV 

CXXS 

QELAXS 

DELECC 

OELICL 

OELMA 

DELMUP 

QELMUS 

DELNOD 

OELTP 

DEL  W 

DTMAX 

DTPLAN 

OTSUN 

EMI 

EM4 

EM5 

EM6 

EM7 

EM8 

EPS 

EP50 

FACP 

FACV 

FNTM 

FOP 

FOV 

IAUGIN 

IBARY 

ICDQ3 

ICOORO 

ICOOR 

I CNF 

IEIG 

IEPHEM 

IEVNT 

IHYP1 

I MNF 

INPR 

IPRINT 

IPRT 

ISP  2 

ISTMC 

I ST  Ml 

KPRINT 

MNCN 

NBOD 

NDACC 

NDIMl 

NDIM2 

NDIM3 

NEV10 

NEV11 

NEV1 

NEV2 

NEV3 

NEV4 

NEV5 

NEV6 

NEV7 

NEV  9 

NEV 

NMN 

NO 

NST 

NTMC 

ONE 

PS 

P 

"RAD 

SAL 

SIGALP 

SIGBET 

SIGPRO 

SIGRES 

SLAT 

SLON 

SSS 

TEV 

TMN 

TM 

TRTM1 

TWO 

T 

UST 

UO 

VST 

VO 

WST 

XI 

XP 

ZERO 

ACTPP 

DELV 

FACTR 

IAUGW 

IBAG 

I8IAS 

I DENS 

IGAIN 

IGEN 

IGUIO 

IPCSK  , 

INPR 

IPGCK 

IPO 

I PROP  I 

IUTC 

ISAO 

LKTP 

LKLP 

N80DY I 

NDIM4 

NENT1 

NENT2 

NEV4 

NMNP 

PMN 

PRO  81 

PSIGA 

PSIGB 

PSIGK 

PSIGS 

PULMAG 

PULMAS 

RAO 

SMN 
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DATA-D 


SO 

COMMON  COMPUTED*  BORSIl 

BDTSI3 

CXSUG 

CXVB 

EMI  3 

HALF 

ICA2 

INCMT 

ISOI3 

NAE 

NOE 

PSG 

RSOI2 

TG 

TS0I2 

VS0I3 

XU 

COMMON  USEO  * AINC7 

ELMNT 

IPROB 

PERP7 

TAU7 


TIN  J 

VTANGM 

XDELV 

XFAC 

BORSI2 

B0RSI3 

80TSI1 

BDTSI2 

8SI 1 

8SI2 

3SI 3 

CXSU8 

CXSVB 

CXSVG 

CXUB 

C XU  G 

CXVG 

CXXSB 

CXXSG 

DELTM 

EM2 

EM3 

EM9 

EM 

IAUGDC 

IAUGMC 

I AUG 

ICA1 

ICA  3 

ICL2 

I CL 

INITAL 

ISOIl 

I SO  1 2 

ISPH 

ITR 

MCNTR 

MCODE 

NBODYI 

NEV8 

NGE 

NPE 

OMEGA 

P 8 

PG 

PSB 

RCA1 

RCA2 

RCA  3 

RSOI1 

RS0I3 

TCA1 

TCA2 

TCA  3 

THREE 

TIMINT 

TRTMB 

TSOI1 

TSOI  3 

TWOPI 

VSOI1 

VS0I2 

XB 

XV 

XF 

XG 

XSL 

ANOOE7 

DATEJ 

ONCN 

ECC7 

EVNM 

F 

G 

HP7 

MNNAME 

NB 

NLP 

NTP 

PI 

PLANET 

PMASS 

P7 

TPT2 

XLA8 

XNM 
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DATAS-A 


PROGRAM  DAT AS 

PURPOSE*  TO  REAO  INPUT  DATA,  TRANSLATE  THIS  DATA  INTO  PROPER 

INTERNAL  VALUES;  ASSIGN  VALUES  TO  UNSPECIFIED  NAMELIST 
VARIABLES,  SET  NECESSARY  INITIAL  VALUES,  COMPUTE 
DIMENSIONS  OF  STATE  TRANSITION,  OBSERVATION,  AND 
COVARIANCE  MATRIX  PARTITIONS,  ORDER  MEASURMENT  AND  EVENT 
SCHEOULES,  AND  PRINT  OUT  INITIAL  CONDITIONS  IN  THE  SIMUL 
PROGRAM. 

CALLING  SEQUENCE*  CALL  DATAS 

SUBROUTINES  SUPPORTED*  MAIN 

SUBROUTINES  REQUIREO*  CONVRT  DATAiS  ELCAR  EPHEM  ORB 

PECEQ  TIME  TRANS 

LOCAL  SYMBOLS  AI  INITIAL  INCLINATION  OF  SPACECRAFT  ORBIT 


ANODE  INITIAL  LONGITUDE  OF  ASCENDING  NODE  OF 
SPACECRAFT  ORBIT 

A INITIAL  SEMI-MAJOR  AXIS  OF  SPACECRAFT 

ORBIT 

DATE  ARRAY  CONTAINING  FINAL  JULIAN  DATE 

DUMi  PLANETO-CENTRIC  ECLIPTIC  SPACECRAFT  STATE 

DUM  COORDINATE  TRANSFORMATION  FROM  PLANETO- 

CENTRIC  EQUATORIAL  TO  PLANETO-CENTRIC 
ECLIPTIC  COORDINATES 

D JULIAN  DATE  AT  LAUNCH 

EARTH  CALENDAR  DATE  AT  WHICH  ORBITAL  ELEMENTS  OF 
EARTH  WILL  BE  CALCULATED 

E INITIAL  ECCENTRICITY  OF  SPACECRAFT  ORBIT 

FNDT  FINAL  JULIAN  DATE 

GAMMA  INJECTION  PATH  ANGLE 

GM  GRAVITATIONAL  CONSTANT  OF  TARGET  PLANET 

IDAY  DAY  OF  FINAL  COMPUTATION 

IHR  HOUR  OF  FINAL  COMPUTATION 

IMIN  MINUTE  OF  FINAL  COMPUTATION 

IHO  - MONTH  OF  FINAL  COMPUTATION 
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DATAS-B 


XYR  YEAR  OF  FINAL  COMPUTATION 

JUPITER  CALENDAR  DATE  AT  WHICH  ORBITAL  ELEMENTS  OF 


JUPITER  WILL  BE  CALCULATED 

LDAY 

LAUNCH 

DAY 

LHR 

LAUNCH 

HOUR 

LMIN 

LAUNCH 

MINUTE 

LMO 

LAUNCH 

MONTH 

LYR 

LAUNCH 

YEAR 

MARS 

CALENDAR  OATE  AT  WHICH  ORBITAL  ELEMENTS  OF 
MARS  WILL  BE  CALCULATED 

MERCURY  CALENDAR  DATE  AT  WHICH  ORBITAL  ELEMENTS  OF 
MERCURY  WILL  BE  CALCULATE# 

MOON  CALENDAR  DATE  AT  WHICH  ORBITAL  ELEMENTS  OF 
MOON  WILL  BE  CALCULATED  , 

i 

N^NT  NUMBR  OF  ENTRIES  IN  MEASUREMENT  SCHEDULE 

NEPTUNE  CALENDAR  DATE  AT  WHICH  ORBITAL  ELEMETNS  OF 
NEPTUNE  WILL  BE  CALCULATED 

OME  INITIAL  ARGUMENT  OF  PERIAPSIS  OF  SPACE- 
CRAFT ORBIT 

PHIT  INJECTION  DECLINATION 

PLUTO  CALENDAR  DATE  AT  WHICH  ORBITAL  ELEMENTS  OF 
PLUTO  WILL  BE  CALCULATED 

PRD  INITIAL  SEHI-LATUS  RECTUM  OF  SPACECRAFT 

ORBIT 

ROS  EARTH-CENTERED  INJECTION  RADIUS 

RD  DUMMY  VARIABLE 

SATURN  CALENDAR  DATE  AT  WHICH  ORBITAL  ELEMENTS  OF 
SATURN  WILL  BE  CALCULATED 

SECI  SECOND  OF  FINAL  COMPUTATION 

SECL  LAUNCH  SECOND 

SEC  SECOND  OF  CALENDAR  DATE  AT  WHICH  ORBITAL 


DATAS-C 


ELEMENTS  OF  A PLANET  MILL  BE  CALCULATED 

SIGMA  INJECTION  AZIMUTH 

TA  INITIAL  SPACECRAFT  TRUE  ANOMALY 

THETA  INJECTION  RIGHT  ASCENSION 

URANUS  CALENDAR  DATE  AT  WHICH  ORBITAL  ELEMENTS  OF 
URANUS  WILL  BE  CALCULATED 

VEL  INJECTION  VELOCITY  RELATIVE  TO  EARTH 

VENUS  CALENDAR  DATE  AT  WHICH  ORBITAL  ELEMENTS  OF 
VENUS  WILL  BE  CALCULATED  , 

VL  DUMMY  VARIABLE 

VUNIT  VELOCITY  CONVERSION  FACTOR 


COMMON  COMPUTEO/USED8 

AALP 

ABET 

ACCND 

ACCi 

ACC 

aoevx 

ALNGTH 

APRO 

ARES 

BXA 

cxsu 

CXSV 

GXU 

CXV 

CXXS 

DAB 

DEB 

DELAXS 

OELECC 

DELICL 

OELMA 

DELMUP 

DELMUS 

DELNOD 

DELTP 

DELW 

DIB 

DMAS 

OMUPB 

OHUSB 

□NOB 

DTMAX 

DTPLAN 

DTSUN 

□MB 

EHi 

EM<* 

EN5 

EM6 

EM7 

EM® 

EPS 

EP50 

FACP 

FACV 

FNTM 

FOP 

FOV 

XAMNF 

IAUGXN 

X8ARY 

ICOT3 

ICOORO 

XCOOR 

IDNF 

IEXG 

XEPHEM 

XHVPX, 

XMNF, 

INPR 

X0PT7 

IPRINT 

XPRT 

ISP2 

ISTMC 

XSTMi 

KPRINT 

MNCN 

NSODI 

NBOD 

NB1 

NDACC 

NOIMi 

NDXM2 

NOXM3 

NEViO 

MEVii 

NEVi 

NEV2 

NEV3 

NEV4 

NEV5 

NEV6 

NEV7 

NEV9 

NO 

NST 

NT  MG 

ONE 

PS 

P 

RAD 

SAL 

SXGALP 

SXGBET 

SIGPRO 

SXGRES 

SLAT 

SLB 

SLON 

SSS 

TM 

TRTHi 

TTXM1 

TTIM2 

TWO 

T 

UNMAC 

UST 

UO 

VST 

VO 

NST 

XX 

XP 

ZERO 

GOlWOft:  COMPUTED  8 

ADEVXS 

BDRSXi 

80RSX2 

0DRSX3 

BOTSX1 

B0TSX2 

s B0TSI3 

BSXi 

BSI2 

BSI3 

OELTN 

EM13 

EM2 

EM  3 

EM9 

HALF 

IAUGDC 

IAUGMC 

XAUG 

ICAi 

XCA2 

ICA3 

XCDQ3 

ICL2 

XCL 

XNCMT 

INXTAL 

xson 

XS0X2 

XSOX3 

SSPH 

ITR 

! 

NBOOYX 

NEVO 

RCAi 
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DATAS-B 


RCA2 

TCA1 

TIHINT 

TWOPI 

XSL 

COMMON  USED*  AINC7 

ECC7 

NAF6 

PI 

TPT2 

T5 


RCA3 

RSOIi 

RSOI2 

RS0I3 

TCA2 

TCA3 

TEV 

THREE 

TRTMB 

TSOli 

TSOI  2 

TS0I3 

VSOI1 

VS0I2 

VS0I3 

XII 

XU 

XV 

ZI 

AN0DE7 

AVARM 

OATEJ 

DNCN 

ELMNT 

F 

HPT 

IPROB 

N8 

NLP 

NTP 

PERP7 

PLANET 

PMASS 

P7 

TAU7 

Ti 

T2 

T3 

T4 

T 6 

T7 

XNH 
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DATA1-A 


SUBROUTINE  DAT  Ai 

PURPOSE*  TO  CONTINUE  THE  INITIALIZATION  PROCESS  DESCRIBED  UNDER 
DATA. 

CALLING  SEQUENCE*  CALL  OAT  At  (NENT) 

ARGUMENT*  NENT  I NUMBER  OF  CARDS  IN  THE  MEASUREMENT  SCHEDULE 
SUBROUTINES  REQUIREO*  GHA  SKEDM 

SUBROUTINES  SUPPORTEO*  OATA , 


LOCAL  SYMBOLS*  AMIN 

AP 

QGTR 

ICNT 

I GO 

IRON 

MEAS 

NOUT 


INTERMEDIATE  VARIABLE 

INTERMEDIATE  TIME  ARRAY 

DEGREE  TO  RADIAN  CONVERSION 

COUNTER  ON  MEASUREMENT  SCHEDULE  CAROS 

INTERNAL  FLAG 

INTERMEDIATE  ROM  INDEX 

MEASUREMENT  CODES 

DIMENSION  OF  AUGUMENTED  COVARIANCE  MATRIX 


COMMON  COMPUTED/USEO*  IEVNT 

TEV 

T4 

COMMON  COMPUTED*  CXSUB 

CXUG 

EM 

MCODE 

OMEGA 

TG 

COMMON  USED*  CXSU 

DATEJ 

EVNM 

IONF 

MNCN 

NEV1 

NEV6 

P 

UO 

MCODE1 

TMN1 


NEV 

NMN 

SLAT 

SLON 

TMN 

T 1 

T2 

T3 

T 5 

T 6 

T7 

T 

CXSUG 

CXSVB 

CXSVG 

CXUB 

CXV8 

CXVG 

CXXSB 

CXXSG 

EPS 

IIPOL 

IPOL 

MCNTR 

NAE 

NGE 

NPE 

NQE 

PB 

PG 

PSB 

PSG 

X8 

XF 

XG 

CXSV 

CXU 

CXV 

CXXS 

ONCN 

EM7 

EM8 

EP50 

FACP 

FACV 

FNTM 

ICDQ3 

IGUID 

IHTP1 

IMNF 

ISTMC 

MNNAME 

NDIM1 

N0IM2 

NDIM3 

NEV2 

NEV3 

NEVA 

NEV  5 

NEV  7 

NST 

ONE 

PS 

RAO 

SAL 

TPT2 

TRTM1 

VO 

XI 

ZERO 

MC0DE2 

NENTi 

NENT2 

NMNP 

TMN2 

T 6 

T7 

DAXA1S-A 


SUBROUTINE  OATA1S 

PURPOSE*  TO  CONTINUE  THE  INITIALIZATION  PROCESS  DESCRIBED  UNDER 
DATAS. 

CALLING  SEQUENCES  CALL  OATAIS(NENT) 

ARGUMENT 8 WENT  I NUMBER  OF  CARDS  IN  THE  MEASUREMENT  SCHEDULE 

SUBROUTINES  SUPPORTED*  DATAS 
SUBROUTINES  REQUIRED*  GHA 

LOCAL  SYMBOLS*  AMIN  INTERMEDIATE  VARIABLE 

AP  INTERMEDIATE  TIME  ARRAY 

ICNT  COUNTER  ON  MEASUREMENT  SCHEDULE  CARDS 

IRON  INTERMEDIATE  RON  INDEX 

MEAS  MEASUREMENT  COOES 

NOUT  DIMENSION  OF  AUGUMENTEO  COVARIANCE  MATRIX 
PARAM  ARRAY  OF  AUGMENTED  BIASES 


SCHED 

ARRAY  1 

3F  TIMES 

IN  MEASUREMENT 

SCHEDULE 

« 

COMMON  COKPUTEO/USED* 

AOEVXS 

IEVNT 

NEV 

NMN 

SLAT 

SLB 

SLON 

TEV 

TMN 

T1 

T2 

T3 

T 4 

T5 

T6 

T7 

T 

COMMON  COMPUTED* 

AOEVS8 

ADEVXB 

CXSUB 

CXSUG 

CXSVB 

CXSVG 

CXU8 

CXUG 

CXVB 

CXVG 

CXXSB 

CXXSG 

EDEVXS 

EDEVX 

EM 

EPS 

IIPOL 

IPOL 

HCNTR 

MCODE 

N AE 

NGE 

NPE 

NQE 

OMEGA 

PB 

PG 

PSB 

PSG 

TG 

X9 

XF 

XG  , 

XU 

ZI 

COMMON  USED* 

&CC1 

ADEVX 

AVARM 

BXA 

CXSU 

cxsv 

' CXU  > 

CXV 

CXXS 

DAB 

DATEJ 

DEB 

013 

DMAS 

DMUPB 

DMUSB 

DNCN 

DNOB 

DH3 

EM7 

EM8  » 

EP50 

EVNM 

FACP 

FACV 

FNTM 

XAHNF 

XAUGIN 

XCDQ3 

IQDT3 

IDNF 

IHYPi 

IMNF 

ISTMC 

MNCN 

MNNAME 

N80D1 

NBI 

N0IK1 

NDIM2 

NDIM3 

NEVi 

MEV2 

NEV3 

NEV4 
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DATA1S-B 


NEV5  NEV6  NEV7 

PLANET  PS  P 

?PT2  TRTMi  TTIN1 

UO  VO  XDUN 


NST  ONE 

RAO  SAL 

TTIM2  UNMAC 

XI  ZERO 


DESENT-A 


SUBROUTINE  DESENT 

PURPOSE 8 TO  COMPUTE  A CORRECTION  TO  AN  INITIAL  VELOCITY  BY  THE 
STEEPEST  OESCENT  OR  CONJUGATE  GRADIENT  TECHNIQUES  FOR 
USE  BY  TARGET. 

CALLING  SEQUENCES  CALL  DESENT ( ERCjIT5KREK9GNP9P.pl 

ARGUMENTS 8 ERC  I SCALAR  ERROR  OF  CURRENT  ITERATE 
IT  I/O  iteration  COUNTER 

KREK  - I STEEPEST  DESENT  RECTIFICATION  NUMBER 

GMP  I/O  PREVIOUS  GRADIENT  MAGNITUDE  (INPUT) 

CURRENT  GRADIENT  MAGNITUDE  (OUTPUT) 

PP<3>  I/O  PREVIOUS  GR&QIENT  (INPUT) 

CURRENT  GRADIENT  (OUTPUT) 

SUBROUTINES  SUPPORTED*  TARGET 

SUBROUTINES.  REQUIRED!  TARQP7  VMP 

LOCAL  SYMBOLS f ACK  CURRENT  ACCURACY  LEVEL 

AER  ABSOLUTE  ERRORS  OF  TARGET  PARAMETERS 

AUXN  VALUES  OF  AUXILIARY  PARAMETERS  OF  CURRENT 

ITERATE 

OD  DIRECTIONAL  OERIATXVE 

DELVM  MAGNITUDE  OF  PREDICTED  CORRECTION 

DEVI  DEVIATION  OF  NOMINALLY-PREDICTED , AUXILIARY 

PARAMETERS  FROM  CURRENT  ITERATE  VALUES 

DOWN  DUMMY  VARIABLES 

DUM  DUMMY  VARIABLES 

PVEE  VELQCITV  PERTURBATIONS 

0VH  MAXIMUM  ALLOWABLE  VELOCITY  ..INCREMENT 

ERB  SCALAR  ERROR  Of  .NOMINALLY-PREDICTED  .STEP 

GC  CURRENT  GRADIENT 

GMC  MAGNITUDE  OF  GC 

HB  NOMINALLY  PREDICTED  STEP  MAGNITUDE 
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DESENT-B 


HH  CORRECTION  MAGNITUDE  AFTER  CONSTRAINTS^ 

HS  CORRECTION  MAGNITUDE  AFTER  PARABOLIC  FIT 

I END  FLAG  SET  TO  I IF  TOLERANCES  ACCEPTABLE 

ON  PERTURBED  TRAJECTORY 

ISP2  SOI  STOPPING  CONDITION  FLAG 

=0  DO  NOT  STOP  AT  SOI 
STOP  AT  SOI 

PC  DIRECTION  OF  CORRECTION 

PERR  PERTURBED  ERRORS 

PH  MAGNITUDE  OF  UWNORMALXZED  DIRECTION  .VECTOR 

DC  UNIT  VECTOR  IN  DIRECTION  OF  GRADIENT 

RSF  FINAL  STATE  OF  INTEGRATION  . 


COMMON  COMPUTED/USED 8 

DELTAV 

ISPH 

RIN 

TEN 

COMMON  COMPUTED 8 

V 

XCL2 

I CL 

INCHT 

RRF 

common  USED* 

AAUX 

AC 

ATAR 

CTOL'  ^ 

1^0  AUX 

DELTAT 

DTAR 

DVMAX 

Oi 

FAC 

IPHASE 

ISTOP 

KUR 

LEV 

LVLS 

NOPAR 

PERV 

TRTM 

TWO 

ZERO 
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DESENT- 1 


DESENT  Analysis 


DESENT  computes  a correction  to  an  initial  velocity  by  the  steepest 
descent  or  conjugate  gradient  techniques  for  use  by  TARGET. 


The  technique  used  is  determined  by  the  value  of  METHOD.  DESENT  takes  n 
steps  in  the  conjugate  gradient  directions  before  rectifying  by  making  a 
steepest  descent  step  where  n = METHOD  - 1 . Thus  if  METHOD  = 1,  all 
steps  are  taken  in  the  steepest  descent  direction. 


Let  the  current  Iterate  initial  state  be  denoted  r,  v . Let  the  scalar 
error  of  the  auxiliary  parameters  corresponding  to  this  state  be  denoted  e 
Let  the  perturbation  size  for  the  sensitivities  be  dv  . 


The  current  gradient  g is  computed  by  numerical  differencing.  For  the 

c 

k-th  component  of  g*  the  corresponding  component  of  velocity  is  perturbed 

c 

by  dv 


v = 
P 


+ dv 


51K’  52K’  53K 


1 T 


(1) 


The  initial  state  ( r,  v ) is  then  propagated  to  the  final  stopping 
conditions.  Let  the  auxiliary  parameters  of  that  trajectory  be  denoted  & 
The  error  associated  with  the  perturbed  state  is  then 


Gp  - W(«p-  ~a*  ) (2) 

where  W represents  the  weighting  factors  and  a are  the  desired  target 
conditions.  The  k-th  component  of  the  current  gradient  is  then 

' ■ i 


(3) 


The  corrected  gradient  is  g;iven  by 


P + S„ 
P c 


steepest  descent  step 


conjugate  gradient  step  (4) 


where  the  subscript  c refers  to  a current  parameter,  p refers  to  a 
previous- s tep  parameter. 
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Ihe  unit  vector  in  the  direction  of  the  next  step  is  then  given  by 


(5) 


The  directional  derivative  of  the  scalar  error  in  the  the  direction  q is 

c 

d = g*  . q (6) 

i c c 

The  nominal  step  size  h is  computed  from  a linear  approximation  to  null 
the  error 


h - 


_£ 

-d 


(7) 


The  initial  state  corrected  by  this  nominal  correction  is  then  propagated 
to  the  final  stopping  conditions  and  the  resulting  error  6 computed. 

The  three  conditions 


y(o)  = € 

y (h)/  = € 

y 1 (o)  *=  d (8) 

JL  2 

may  now  be  applied  to  the  formula  of  a parabola  y - e *=  a(x  - h”)  to 
predict  the  optimal  step  size  h yielding  the  minimum  error  6 * 


h*  = 


dh2 


2(dh  + 6 - € ) 


(9) 


The  correction  for  the  current  is  then  given  by 

Av  « h*  t 
g 


(10) 


Reference:  Myers,  G.  E.,  "Properties  of  the  Conjugate  Gradient  and  Davidon 

Methods",  AAS  Paper  68-081.  Presented  at  1968  AAS/AIAA  Astro- 
dynamics  Specialist  Conference,  Jackson,  Wyoming. 
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DESCENT  Flov  Chart, 


ENTER 


DESENT-3 


DESENT-4 


Does  XT  “ 1 or 
IT  » 0 (mod  KREK)? 


3D 


l». 

.2 

A 

]~t  +t  ■ 

PC  ~ 

>*p 

|2  Pp  + Sc 

Compute  direction  q of  correction 


Compute  directional  derivative  DD 
DD  = grad  € • q\ 


Compute  nominal  size  of  correction 
h*  = € /l  3>D  | 


Integrate  nominally  corrected  state 
(VMP)  and  call  TAROPT  to  compute 
auxiliary  values  to  generate  nominal 
error  € . 


Compute  optimal  step  size  h* 
by  parabolic  fit. 


Compute  correction  Av  = h*  qc  . 


Update  parameters  for  next  iterate 
IT  = IT  + 1 

• ' pp  = pc  » 


I 8„l  * I 


RETURN 
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DIMPCP-A 


SUBROUTINE  OLMPCP 

PURPOSE*  TO  CALCULATE  THE  OESIREO  IMPACT  PLANE  ASYMPTOTE  PIERCE 
POINT  COORDINATES  GIVEN  THE  RIGHT  ASCENSION  ANO 
DECLINATION  OF  A PROBE  TARGET  SITE 

ARGUMENT*  A I SEMI-MAJOR  AXIS  OF  APPROACH  HYPERBOLA  IN 

KM 

BM  0 MAGNITUDE  OF  B VECTOR  IN  KM 

OBR  0 OESIREO  R.R  IN  KM 

OBT  0 OESIREO  B.T  IN  KM 

OCP  I OESIREO  OECLINATION  IN  PROBE-SPHERE 

coordinates  of  impact  site  in  oeg 

RAP  I DESIRED  RIGHT  ASCENSION  IN  PROBE-SPHERE 

COORDINATES  OF  IMPACT  SITE  IN  OEG 

RPR  I RAOIUS  OF  THE  PROBE  SPHERE  IN  KM 

RV  I PLANETOCENTRIC  VECTOR  IN  DIRECTION  OF 

CROSS  PROOUCT  OF  SV  BY  ECLIPTIC  POLE 
VECTOR 

SV  I PLANETOCENTRIC  VECTOR  IN  DIRECTION  OF 

TRAJECTORY  ASYMPTOTE 

TV  I CROSS  PROOUCT  OF  SV  BY  RV 

T I TRANSFORMATION  MATRIX  FROM  ECLIPTIC  TO 

PROBE-SPHERE  COORDINATES 

SUBROUTINES  SUPPORTED*  TPPROP  TPRTRG 

SUBROUTINES  SUPPORTED* 

LOCAL  SYMBOLS?  9V  PLANETOCENTRIC  UNIT  VECTOR  IN  DIRECTION  OF 

8 VECTOR 

CSOCP  COSINE  OF  OECLINATION  OF  DESIRED  IMPACT 
SITE 

COSINE  OF  THE  ARC  LENGTH  BY  WHICH  OESIREO 
IMPACT  SITE  IS  CLOSER  TO  SV  THAN  IS 
PERIAPSIS 

COSINE  OF  ANGLE  BETWEEN  SV  AND  VECTOR  TO 
OESIREO  IMPACT  SITE 

CSRAP  COSINE  OF  RIGHT  ASCENSION  OF  DESIRED 
IMPACT  SITE 
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CSOIF 

CSPHI 


DIMPCP-B 


CSTHTS  COSINE  OF  TRUE  ANAMOLY  OF  TRAJECTORY 
ASYMPTOTE 

Cl  COEFFICIENT  USED  IN  CALCULATING 

REPOSITIONED  IMPACT  SITE 

C2  COEFFICIENT  USEO  IN  CALCULATING 

REPOSITIONED  IMPACT  SITE 

DCPSAV  SAVED  VALUE  OF  IMPACT  SITE  DECLINATION 
IN  DEG 

E ECCENTRICITY  OF  CONIC 

FOUR  CONSTANT  4. 

HALF  CONSTANT  .5 


ONE  CONSTANT  1. 

RAPSAy  SAVED  VALUE  OF  IMPACT  SITE  RIGHT  ASCENSION 

' IN  DEG 

RPVRV  PLANETOCENTRIC  UNIT  VECTOR  TO  DESIRED 
IMPACT  SITE  IN  ECLIPTIC  COORDINATES 

RPV  PLANETOCENTRIC  UNIT  VECTOR  TO  DESIRED 

IMPACT  SITE  IN  PROBE-SPHERE  COORDINATES 

RTO  CONVERSION  FACTOR  FROM  RADIANS  TO  OEGREES 

SNDCP  SINE  OF  OECLINATION  OF  OESIREO  IMPACT  SITE 

SNPHI  SINE  OF  ANGLE  BETWEEN  SV  AND  VECTOR  TO 
DESIRED  IMPACT  SITE 

SNRAp  SINE  OF  RIGHT  ASCENSION  OF  OESIREO  IMPACT 
SITE 

SNTHTS  SINE  OF  TRUE  ANAMOLY  OF  TRAJECTORY 
ASYMPTOTE 


180-1 


DIMPCP-1 


DIMPCP  Analysis 

Subroutine  DfMPCP  converts  the  actual  probe  target  parameters  of 
declination  6 and  right  ascension  a of  the  trajectory  impact  point 
on  the  planet  into  the  auxiliary  target  parameters  of  equivalent 
B*T  and  B*R.  To  do  so  it  assumes  the  direction  of  the  hyperbolic 
excess  velocity  and  the  energy  of  the  trajectory  are  known  so  the 
!S,  T,  and  R*  in  the  ecliptic  frame  and  the  semimajor  axis,  a,  of 
the  approach  hyperbola  are  available  as  inputs*  To  complete  the 
specification  of  the  probe  impact  point,  the  subroutine  also  re- 
quires the  radius,  r,  of  the  planet  at  impact  as  well  as  the  trans- 
formation, L,  from  the  inertial  ecliptic  frame  to  the  coordinate 
system  to  which  the  right  ascension  and  delcxnation  are  referenced* 

Derivation  of  the  necessary  equations  is  relatively  straightforward 
once  the  appropriate  variables  are  defined.  Let  p be  a planet- 
centered  unit  vector  in  the  direction  of  the  impact  point.  Then, 
in  the  inertial  ecliptic  system. 


rcos  a cos 
= Lx  | sin  a cos  6 
sin  6 


(1) 


Define  <j>  to  be  the  unique  angle  on  the  closed  interval  from  0 to  ir 
between  p_  and  (see  Fig.  1)  * Finally  denote  the  true  anomalies 
of  p_  and  S by  0 and  0 , respectively. 

First  DIMPCP  determines  whether  the  desired  impact  point  is  indeed 
targetable.  It  is  apparent  from  Figure  1 that 

|ej  = * - 0g  (2) 

It  is  further  obvious  from  the  figure  that  the  approach  hyperbola 
will  intersect  the  planet  surface  at  true  anomalies  of  both  +0 
and  • Obviously  only  the  negative  true  anomaly  impact  points  are 
physically  realizable  since  the  trajectory  stops  at  the  first  inter- 
section with  the  planet.  Hence  DIMPCP  requires  the 

es  s * - (3) 


■ . . . / 

* 


For  definitions  of  these  vectors  see  the  analysis  section  of 


the  subroutine  STIMP. 
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Figure  1 ^Geometry  of  Probe  Impact 


« 

In  other  words,  there  is  a circular  region  on  the  planet  surface 
of  radius  0,,  about  the  outgoing  pierce  point  of  the  S_  vector  inside 

w 

of  which  no  probes  can  be  targeted.  If  p falls  in  this  untar get- 
able  region,  DIMPCP  repositions  the  desired  impact  point  direction 
to  pj  > the  nearest  acceptable  direction  in  the  plane  determined 
by  _S  and  Analytically  this  is  done  by  expressing  p/  as  a linear 
combination  of  p_  and  Sj  that  is 

p/  = dx  £ + d2  S.  . (4) 


Then  the  constraints 


1 1 p * 1 1 = i 


(5) 


and 


£_•£_’  = cos  (0g  - <j>) 


(6) 
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are  applied.  These  result  in  the  following  pair  of  simultaneous 
equations  for  and  d^: 

1 = d2  + 2 d^  <1^  cos  <f>  + d2  (7) 

cos  (0g  - <f»)  - dj^  + d2  cos  <j>  . (8) 


Solving  (8)  for  d^  in  terms  to  d 2 and  substituting  into  (7)  pro- 
duces the  quadratic 


1 - cos2  (0g  - <|>)  = d2  (1  - cos2  (J>)  . (9) 


Assuming  | cos  4*  l £ 1 leads  then  to  the  conclusion  that 


1 - cos2  (9  - 4.) 


d2  = x 


1 - cos2  <j> 


(10) 


Figure  2 geometrically  interprets  the  two  roots  of  equation  (9) 
given  by  (10) . 


Figure  2 Geometrical  Interpretation  of  the  Two  d^-Roots 


DIMPCP-4 


Clearly  the  d value  corresponding  to  the  positive  radical  is  ex- 
traneous since  it  produces  a p_'  nearer  than  p_.  Hence 


1 - cos2  (0  - (J>) 


1 - cos2  <j > 


(ID 


d-  = cos  (9  - <|>)  + cos 


1 - COS2  (Og  - <J>) 
1 - COS2  <j) 


(12) 


The  exceptional  case  that  cos  4>  = — 1 cannot  occur  since  then  <j>  = ir 
and  hence  6g  < <j>.  However,  cos  <J>  can  equal  1.  In  this  case  £ 

and  S are  coincident  so  £'  cannot  be  taken  as  a linear  combination 
of  the  two.  Further,  no  particular  point  on  the  boundary  of  the 
circular  untargetable  region  recommends  itself.  Hence  DIMPCP  ar- 
bitrarily puts  _p_'  in  the  S-T  plane  as 


On  repositioning  £, 
declination  6’  of  p 


£*  = cos  9g  + T^  sin  0g  . (13) 


DIMPCP  prints  ouf  the  right  ascention  a'  and 
* making  use  of  the  formulae 


a’  = tan-1  (p^/pp 

(14) 

6’  = sin"1  (p’) 

(15) 

Having  repositioned  £,  if  necessary,  DIMPCP  calculates  the  magni- 
tude of  the  desired  B_.  It  can  readily  be  shown  that 


COS 

6s=i 

(16) 

sin 

(17) 

B - 

lal  V^2  " 1 • 

(18) 
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Recall  the  polar  equation  of  the  near-planet  conic  trajectory,  namely 


r = a(l  - e2) 

1 1 + e cos  0 


(19) 


Substituting  equation  (2)  into  (19)  and  rearranging  gives 


a(l  - e2)  «=  r [I  + e (cos  $ cos  0 + sin  <j>  sin  0Q]  • (20) 

b b 


Using  equations  (16)  and  (17)  in  (2)  yields 

a(l  - e2)  = r (1  + cos  <j>  + \/e2  - 1 sin  <f>)  . (21) 

Eliminating  the  eccentricity  from  equation  (19)  by  means  of  (18) - 
produces  a quadratic  in  B,  that  is, 

-B2/a  = r (1  + cos  <j>)  -rB/a  . (22) 


Applying  the  quadratic  formula  to  (20)  gives 


B = 


. [r  sin  <j)  ± Vr 


sin2  (|>  - 4 ar  (1  + cos  <t>)  ] 


(23) 


Since  1 + cos  <j>  > 0 for  all  <j>  and  a < 0 for  hyperbolic  approach,, 
trajectories,  the  root  corresponding  to  the  negative  radical  in 
(21)  produces  a negative  magnitude  of  B^  and  hence  must  be  extrane- 
ous . Thus 


B 


[r  sin  + Vr2  sin2  <j>  - 4 ar  (1  + 

2 


COS  <jl)  ] 


(24) 


One  can  further  conclude  from  the  radicand  of  (23)  that  a solution 
, for  B will  exist  if,  and  only  if, 


4 ar  (1  + cos  0)  < r2  (1  - cos2  <|>)  , (25) 

or  equivalently  if  cos  <{>/-! 


cos  4>  < 1 - — 
“ r 


(26) 
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Since  a is  negative  for  a hyperbolic  approach,  this  Ipst  mequalit- 
is  always  true*  Further  if  cos  <J>  « -1,  B = 0.  Hence  equation  (22) 
always  has  the  unique  nonnegative  solution  given  by  (24) * 

Next  DIMPCP  computes  the  direction  of  3^.  Since  the  desired  B must 
lie  in  the  plane  determined  by  and  there  must  exist  real  num- 
bers C ^ and  so  that 

B/B  - C1  £ + C2  £ . (27) 

Applying  the  constraints  that  | | B^/B  j | = 1 and  B/£  » 0 
respectively 


c|  + 2 C1  C2  cos  $ + C|  = 1 (23) 


C-l  + C2  cos  <j>  = 0 . (29) 

Solving  these  two  equations  simultaneously  for  a and  b gives 

C2  = ± 1/sin  <j>  (30) 

C1  = + cot  <j>  . (31) 

The  negative  C2  root  and  the  corresponding  positive  root  are  ex- 
traneous since  they  place  B^  on  the  side  of  opposite  to  p_  as  shown 
in  Figure  1.  Substituting  the  correct  pair  of  roots  from  (30)  and 
(31)  into  (27)  gives  the  direction  of  the  desired  as 

B/B  = ( p_  - _S  cos  (j>) /sin  <f“  . (32) 

l 

Clearly  in  the  exceptional  case  that  sin  <j>  = 0,  the  trajectory 
passes  through  the  center  of  the  planet  coinciding  with  its  asymptote 
so  that  B_  = _0 . 

Finally  DIMPCP  calculates  the  desired  B*T  and  B • R coordinates  now 
that  B_  is  known: 


B-T  = B1  Tx  + B2  T2 


(33) 


B'R  = X1  ^ + B2  R2  + B3  R3  . (34) 
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FUNCTION  OINCOS 

PURPOSE*  TO  CALCULATE  THE  INVERSE  COSINE  IN  DEGREES  OF  GIVEN 

REAL  ARGUMENT  SETTING  RESULT  TO  0.  <180.)  IF  ARGUMENT 
IS  GREATER  THAN  1.  (LESS  THAN  -1.1 

ARGUMENT*  X I REAL  NUMBER  WHOSE  INVERSE  COSINE  IS  TO  BE 

EVALUATED 

SUBROUTINES  SUPPORTED*  CAREL  TPPROP 

LOCAL  SYMBOLS*  DINCOS  INVERSE  COSINE  IN  OEGREES  OF  ARGUMENT  X 

ONE  CONSTANT  1. 

RTO  CONVERSION  FACTOR  FROM  RAOIANS  TO  OEGREES 
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FUNCTION  OINSIN' 

PURPOSE*  TO  CALCULATE  THE  INVERSE  SINE  IN  DEGREES  OF  GIVEN  REAL 
ARGUMENT  SETTING  RESULT  TO  9o.  <-9<W>  IF  ARGUMENT 
IS  GREATER  THAN  1«  (LESS  THAN  -1.) 

ARGUMENT  I X REAL  NUMBER  WHOSE  INVERSE  SINE  IS  TO  BE 

EVALUATED 


SUBROUTINES  SUPPORTED*  DIMPCP  IMPCT  TPPROP  TPRTRG 


LOCAL  SYMBOLS* 


DINSIN  INVERSE  SINE  IN  DEGREES  OF  ARGUMENT  X 
ONE  CONSTANT  1. 

RTO  CONVERSION  FACTOR  FROM  RADIANS  TO  DEGREES 
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SUBROUTINE  DYNO 

PUPPOSE  * COMPUTE  ASSUMED  AND  ACTUAL  DYNAMIC  NOISE  COVARIANCE 
MATRIX  IN  THE  ERROR  ANALYSIS  PROGRAM 

CALLING  SEQUENCE  J CALL  DYNO(ICODE» 

ARGUMENTS  ICQOE  I =0  ASSUMED 

=1  ACTUAL 

SUBROUTINES  SUPPORTED*  ERRANN  SETEVN  GUIDM  PREO 
LOCAL  SYMBOLS*  02  SQUARE  OF  <DELTM*TM) 


COMMON 

COMPUTEO* 

Q 

QPR 

COMMON 

USED* 

DELTM 

IGQNF 

DNCN 

GONCN 

' IONF 

TM 
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DYN0  Analysis 

Subroutine  DYN0  evaluates  the  assumed  dynamic  covariance  matrix  Q 
over  the  time  interval  t ■*  if  IC0DE  = 0*  If  IC0DE  “ 1 

the  actual  dynamic  noise  covariance  matrix  Q1  is  evaluated  over  the 
same  interval*  In  either  case  the  dynamic  noise  covariance  matrix 
is  assumed  to  have  the  form 

Q = diag  (k  At4,  h K2  At4,  % K3  At4,  Kj  At2,  K2  At2,  K3  At2) 

where  dynamic  noise  constants  K3 , K2,  and  K3  have  units  of  km2/s4. 
To  compute  the  actual  dynamic  noise  covariance  matrix  Q',  we  simply 
replace  K3>  K2,  and  K3  with  the  actual  dynamic  noise  constants 
Ki , K2,  and  K3,  respectively. 
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SUBROUTINE  DYNOS 

PURPOSES  COMPUTE  DYNAMIC  NOISE  COVARIANCE  MATRIX  AND  THE  ACTUAL 

DYNAMIC  NOISE  (UNMODELED  ACCELERATION)  IN  THE  SIMULATION 
PROGRAM 

CALLING  SEQUENCES  CALL  DYNOSCICODE) 

ARGUMENT*  ICOOE  I INTERNAL  CODE  TO  DETERMINE  IF  THE  DYNAMIC 

NOISE  MATRIX  IS  COMPUTED  OR  IF  THE  ACTUAL 
DYNAMIC  NOISE  IS  CALCULATED 


SUBROUTINES  SUPPORTED8  SIMULL  SETEVS  GUISIM  PRESXM 


LOCAL  SYMBOLS*  OT 

02 

IC 

Ti 

T2 


INTERNAL  TIME  INCREMENT 
SQUARE  OF  (DELTH*TM> 

INTERNAL  CODE  ON  OT  CALCULATION 
CURRENT  TIME 

r 

CURRENT  TIME  + DELTA  TIME 


COMMON  COMPUTED/USEOS  W 


COMMON  COMPUTED* 
COMMON  USED* 


Q 


DELTM  ONCN  HALF 

TRTM1  TTIMi  TTIM2 


IDNF  TM 
UNHAC  ZERO 
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DYN0S  Analysis 


Subroutine  DYN0S  performs  two  functions.  It's  first  function  is 
identical  to  that  of  subroutine  DYNjfr,  namely,  to  evaluate  the  dynamic 
noise  covariance  matrix  Q over  the  time  interval  A t = t^+^  - . 


The  second  function  of  subroutine  DYK#S  is  to  compute  the  actual 
dynamic  noise  o>k+1,  which  represents  the  integrated  effect  of 

unmodelled  accelerations  acting  on  the  spacecraft  over  the  time 
interval  At.  Actual  dynamic  noise  5?.  _ is  used  elsewhere  in  the 
program  to  compute  the  actual  state  deviations  of  the  spacecraft 
from  the  most  recent  nominal  trajectory. 


If  we  define  to,  n 

*C*r  X 


] 


T 

, where 


co_  and  to  denote  the  contributions  of  unmodelled 

k+1  Vk+1 

accelerations  to  spacecraft  position  and  velocity,  respectively,  and 
if  we  assume  constant  unmodelled  acceleration  a,  then 


+ 


The  program  permits  the  entire  trajectory  to  be  divided  into  three 
arbitrary  consecutive  intervals^  over  each  of  which  a different  con- 
stant unmodelled  acceleration  <a  can  be  specified.  These  intervals  are 
represented  by  (tQ,  , (t^,  t^) , and  (t^,  tf),  where  tQ  is  the 

initial  trajectory  time  and  tf  is  the  final  trajectory  time.  If  t^ 

and  t^+^  occur  in  different  intervals,  then  the  above  equations  must 

be  evaluated  piece-wise  over  ( t^,  ) . 
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DYN0S  Flow  Chart 


DYNOS-2 


ENTER 


Is  Q or  u>  to  be 
computed? 


Compute  At^  . 

Compute  actual  dynamic 
noise  u£  at  the  end  of 
the  interval  At  . 
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SUBROUTINE  EIGHT 

PURPOSES  TO  CONTROL  THE  COMPUTATION  OF  EIGENVALUES,  EIGENVECTORS, 
AND  HYPERELL IPSO IDS* 

CALLING  SEQUENCES  CALL  EIGHY<VEIG,FOX,HARG»IFMT) 

ARGUMENTS  VEIG  I MATRIX  TO  BE  DIAGONALIZED 

FOX  I FINAL  OFF-DIAGONAL  ANNIHILATION  VALUE 

HARG  I MATRIX  FOR  WHICH  THE  HYPERELL IPSOID  IS  TO 
BE  COMPUTED 

IFMT  I FORMAT  FLAG 

=i,  PRINT  POSITION  EIGENVALUE  TITLE 

=2,  PRINT  VELOCITY  EIGENVALUE  TITLE 

-3,  PRINT  EIGENVALUE  TITLE 

SUBROUTINES  SUPPORTED*  SETEVS  GUXSXM  GUISS  PRESIM  GUIDM 
SUBROUTINES  REQUIRED*  HYELS  JACOBI 
LOCAL  SYMBOLS*  EGVCT  EIGENVECTOR  MATRIX 

EGVL  EIGENVALUE  MATRIX 

OUT  SQUARE  ROOTS  OF  EIGENVALUES 

COMMON  USED*  IHYP1 
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EIGHY  Flow  Chart 
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SUBROUTINE  ELCAR 

PURPOSES  TRANSFORMATION  OF  CONIC  ELEMENTS  TO  CARTESIAN 
COORDINATES 

CALLING  SEQUENCES  CALL  ELCAR«GM»  A,E*H,XI,XN,TA,R,RMt>  V$VM9TFP> 
ARGUMENTS  GM  I GRAVITATIONAL  CONSTANT  OF  CENTRAL  BODY 

A ' I SEMIMAJOR  AXIS 

E I ECCENTRICITY 

W I ARGUMENT  OF  PERIAPSIS 

XI  I INCLINATION  IN  REGERENCE  SYSTEM 

XN  I LONGXTUOE  OF  ASCENDING  NODE 

TA  I TRUE  ANOMALY 

RC3)  0 POSITION  VECTOR  IN  REFERENCE  SYSTEM 
RH  0 POSITION  MAGNITUDE  , 

V(3)  3 VELOCITY  VECTOR  IN  REFERENCE  SYSTEM 

VH  0 VELOCITY  MAGNITUDE  

TFP  0 TIME  FROM  PERIAPSIS 

SUBROUTINES  SUPPQRTED8  DAT AS  VMP  NONLIN  COPINS  MONINS 

..DATA  HELIO  MjULTAR  CPROP 

SUBROUTINES  REQUIRED  8 NOME 

LOCAL  SYMErOLS 8 AUXF  ECCENTRIC  ANOMALY  (HYPERBOLIC  CASE) 

AVA  MEAN  ANOMALY  (ELLIPTIC  CASE) 

Cl  . GOSXNE  OF  INCLINATION  , ... 

CK  VELOCITY  FACTOR  USED  TO  CALCULATE  FINAL 

VELOCITY  VECTOR 

CN  COSINE  OF  LONGITUDE  OF  ASCENDING  NODE  • 

COSEA  COSINE  OF  ECCENTRIC  ANOMALY  (ELLIPTIC 
CASE) 

CT  COSINE  OF  TRUE  ANOMALY 
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CH  COSINE  OF  SUM  OF  ARGUMENT  OF  PERXAPSIS  AND  . 

TRUE  ANOMALY/  COSINE  OF  ARGUMENT  OF 
PERIAPSIS 

DIV  THE  SUM  i.*E*<CQS<TA/RAD>n  USED  AS  A 

DIVISOR  IN  SUBSEQUENT  EQUATIONS  TO 
CALCULATE  TFP 

EA  ECCENTRIC  ANOMALY  (ELLIPTIC  CASE) 

P SEMI-LATUS  RECTUM 

RAO  DEGREES  TO  RADIANS  CONVERSION  FACTOR 

SINEA  SINE  OF  ECCENTRIC  ANOHALV  (ELLIPTIC  CASE) 

SXNHF  HYPERBOLIC  SINE  OF  AUXF 

SI  SINE  OF  INCLINATION 

SN  SINE  OF  LONGITUDE  OF  ASCENDING  NODE 

ST  SINE  OF  TRUE  ANOMALY 

SM  SINE  OF  THE  SUN  OF  ARGUMENT  OF  PERXAPSIS 

ANq  TRUE  ANOMALY/  SINE  OF  ARGUMENT  OF 
PERXAPSIS 

' 

TANG  INTERMEDIATE  VARIABLE  USED  TO  CALCULATE 
SINHF 
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ELCAR  Analysis 


ELCAR  transforms  the  standard  conic  elements  of  a massless  point  referenced 
to  a gravitational  body  to  cartesian  position  and  velocity  components  with 
respect  to  that  body. 

Let  the  gravitational  constant  of  the  body  be  denoted  fi  and  the  given 
conic  elements  (a,  e,  i,  0)  , Q , f )*  The  semilatus  rectum  p is 

p « a (1  - e2)  (1) 

Then  the  magnitude  of  the  radius  vector  is  given  by 

p 

r 1 + e cos  f ^2^ 

The  unit  vector  in  the  direction  of  the  position  vector  is 

us  = cos  ( « + f)  cos  ft  - cos  i sin  ( w + f)  sin  ft 

u^  = cos  ( w + f)  sin  ft  + cos  i sin  ( w + f ) cos  Q (3) 

u - sin  ( w + f ) sin  i 

z 

The  position  vector  r is  therefore 

r - ru  (4) 

The  velocity  vector  v is  given  by 

vx  = [^e  + cos  cos  ft  -cos  i sin  ft  cos  w ) 

-sin  f (cos  u cos  ft  -cos  i sin  ft  sin  w ) J 

Vy  “ \J ~ + coa  f)(-sin  w sin  ft  +cos  i cos  ft  cos  u>  ) 

-sin  f (cos  o)  sin  ft +cos  i cos  ft  sin 

V?  * \l "p”  + C°S  ^ Sin  1 COS  w ~sin  f sin  1 sin  w]  (5) 

The  conic  time  from  periapais  t is  computed  from  different  formulae 
depending  upon  the  sign  of  the  slmi-major  axis.  For  a 0 (elliptical 
motion) 


-V?*- 

v II 


e sin  E) 
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cos  E 


e 4 cos  f 
l 4*  e cos  f 


8 in  E 


sin  f 

1 + e cos  f 


(6) 


For  a 0 (hyperbolic  motion)  the  time  from  periapsis  is 
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SUBROUTINE  ELI PT 

PURPOSE!  TO  CALCULATE 
TRUE  ANAMOLY 

ARGUMENT*  A I 

E I 

OR  BE  I 

R I 

SNTA  I 

TIME  0 

SUBROUTINES  SUPPORTED! 


TIME  FROM  PERIAPSIS  ON  AN  ELLIPSE  GIVEN 

SEMI-MAJOR  AXIS  OF  ELLIPSE  IN  KM 

ECCENTRICITY  OF  ELLIPSE 

RECIPROCAL  OF  MEAN  ORBITAL  RATE  IN 
SEC/RAO 

RADIUS  IN  KM 

SINE  OF  TRUE  ANAMOLY 

TIME  FROM  PERIAPSIS  IN  SEC 

CAREL 


LOCAL  SYMBOLS!  CSE 

SNE 

TWOPI 


COSINE  OF  ECCENTRIC  ANAMOLY 
SINE  OF  ECCENTRIC  ANAMOLY 
CONSTANT  2.*PI 
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EPHEM-A 


SUBROUTINE  EPHEM 

PURPOSE*  TO  COMPUTE  THE  CARTESIAN  STATE  OF  DESIRED  BOOIES  AT 
SPECIFIED  TIMES  ACCORDING  TO  TWO  OPTIONS* 

(1)  ECLIPTIC  COORDINATES  OF  ONE  BODY  RELATIVE  TO  ITS 
REFERENCE  0OOY  (SUN  FOR  PLANETS?  EARTH  FOR  MOON) 

( 2)  ECLIPTIC  COORDINATES  OF  ALL  GRAVITATIONAL  BOOIES 
RELATIVE  TO  THE  INERTIAL  COORDINATE  SYSTEM  (EITHER 
HELIOCENTRIC  OR  BARYCENTRIC) . 


CALLING  SEQUENCE*  CALL  EPHEM(IC90? N) 


ARGUMENT* 

D 

I 

JULIAN  DATE  OF 
1950) 

REFERENCE 

TIME 

(REFERENCED 

IC 

I 

FLAG  SET  EQUAL 
FOR  OPTION  2 

TO  1 FOR 

OPTION 

1 AND  TO  0 

N 

I 

NUMBER  OF  GRAVITATIONAL 
COMPUTEO 

BODIES 

TO  BE 

SUBROUTINES 

SUPPORTED* 

HELIO  LAUNCH 

EXCUTE  TRAPAR 
PRINT 4 PSIM 
PRNTS4  DATA 

LUNTAR 

VMP 

TRAKS 

PRINT3 

MULCON 

DATAS 

GUISIM 

TRAKM 

HULTAR 

PCTM 

GUISS 

GUIDM 

GUIO 

SUBROUTINES  REQUIRED*  CENTER 

LOCAL  SYMBOLS*  A SEMI-MAJOR  AXIS  OF  LUNAR  CONIC 

DD  ONE  TEN-THOUSANDTH  TIMES  THE  INPUT 

ARGUMENT  D FOR  COMPUTATIONS  IN  FN1,  FN2 

E ECCENTRICITY  OF  LUNAR  CONIC 

ECAM  ECCENTRIC  ANOMALY  USED  TO  SOLVE  KEPLER 
EQUATION 

ECC  ECCENTRICITY  USEO  TO  SOLVE  KEPLER  EQUATION 

EM  MEAN  ANOMALY  OF  LUNAR  CONIC 

E2  E SQUARED 

E3  E CUBED 

FCTR  VELOCITY  DIVIDED  BY  RADIUS 

FNI  STATEMENT  FUNCTION  DEFINING  A THIRO  OROER 

POLYNOMINALe  USED  IN  COMPUTATION  OF  MEAN 
ANOMALY  OF  INNER  PLANETS  AND  OF  MOON 
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FN2  STATEMENT  FUNCTION  0EFININ6  A FIRST  ORDER 

POLYNOMINAL*  USED  IN  MEAN  ANOMALY  COMPUTA- 
TIONS OF  THE  OUTER  PLANETS 

I INDEX  FOR  LOGIC  CONTROL 

' I JKL  INCREMENT  COUNTER  IN  SOLUTION  OF  KEPLER 
EQUATION 

IN  INDEX,  ROW  OF  F OF  LUNAR  COORDINATES 

IND  INDEX,  ROW  OF  F OF  COORDINATES  OF  THE 

I-TH  PLANET 

ITEMP  INTERMEDIATE  VARIABLE  USED  TO  NORMALIZE 
CONIC  ANGLES 

ITEST  INTERNAL  CODE  WHICH  DETERMINES  IF 

COORDINATES  OF  EARTH  ARE  BEING  CALCULATED 
IN  ORDER  TO  COMPUTE  THOSE  OF  MOON 

ITEST2  INTERNAL  COOE  WHICH  DETERMINES  IF 

COORDINATES  OF  EARTH  HAVE  BEEN  COMPUTED 
PRIOR  TO  COMPUTING  THOSE  OF  THE  MOON 


K INOEX  USED  IN  CALCULATION  OF  MEAN  ANOMALY 

P SEMI-LATUS  RECTUM 

PX2  TWO  TIMES  THE  MATHEMATICAL  CONSTANT  PI 

R HELIOCENTRIC  RADIUS  OF  PLANET 

TRG  ARRAY  OF  TRIGONOMETRIC  FUNCTIONS  OF 

SPECIFIED  ANGLES 

VEL  VELOCITY  OF  PLANET  ; 

WX  X-COMPONENT  OF  INTERMEDIATE  VECTOR,  W 

WY  Y-COMPONENT  OF  INTERMEDIATE  VECTOR,  W 

WZ  Z^COMPONENT  OF  INTERMEDIATE  VECTOR,  W 


COMMON 

COMPUTED/USED S 

ELMNT 

F 

T 

XP 

COMMON 

USED* 

CN 

EMN 

IBARY 

NBODYI 

NO 

ONE 

ZERO 

PMASS 

ST 

TWOPI 

TWO 
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EPHEM  Analysis 


EPHEM  first  determines  the  current  value  for  the  mean  anomaly  of  the 
pertinent  body.  The  mean  anomaly  M is  computed  from 


M - M0  + Mjt  + M2t2  + M2t3 

M » M + M-.  t 
0 1 

M “ + L^t  + L2t2  + L^t3  - £>( t) 


for  inner  planets 
for  outer  planets 
for  the  moon 


Kepler's  equation  M * E - e sin  E is  then  solved  iteratively  to  determine 
the  eccentric  anomaly  E . The  subsequent  computations  are  basic  conic 
manipulations  s 

p ” a(l  - e2) 


r "i  a(l  - e cos  E) 
v 

COS  f « 

cos  y » 

(jJ  * 0)  - Q 


2 _ r 

r ~ a-i 


1 rv 


sin  f = Vl  - cos^  f 

sgn(sin  E) 

sin  7 “ "\/l  - cos2 

sgn(sin  E) 

The  cartesian  position  and  velocity  relative  to  the  reference  body  are  then 
_ X A A 

r “ rx  1 + ry  j + rz  k 

f 

r^  «=  r cos(0>  + f)  cos  42  - r sin(w  + f)  sin  42  cos  i 
**  r cos(6i>  + f)  sin42  + r sin(W  + f)  cos  4/  cos  i 
rz  « r sin(w  + f)  sin  i 

■v  - ^ [(w  x ~T. ) cos  7 + ”r“  sin  7 J 

where  w *=  (sin  i sin  42  ) i - (sin  i cos  42  ) + (cos  i)  k 
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When  option  1 is  used,  the  reference  body  for  all  the  planets  is 
tjie  sun  while  the  reference  body  for  the  moon  is  the  earth. 

When  option  2 is  used  with  heliocentric  inertial  coordinates,  the 
cartesian  state  of  the  earth  is  added  to  the  cartesian  state  of  the 
moon  to  convert  the  state  of  the  moon  to  heliocentric  coordinates 
before  storing  that  state  in  the  F-array. 

When  option  2 Is  used  with  barycentric  inertial  coordinates,  sub- 
routine CENTER  is  called  to  convert  all  elements  to  barycentric 
coordinates  before  storing  in  the  F-array. 
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PROGRAM  ERRANN 

PURPOSE*  TO  CONTROL  THE  COMPUTATIONAL  FLOW  THROUGH  THE  BASIC 
CYCLE  (MEASUREMENT  PROCESSING)  ANO  ALL  EVENTS  IN  THE 
ERROR  ANALYSIS  MOOE. 


SUBROUTINES 

SUPPORTED  * 

ERRON 

SUBROUTINES 

REQUIREOI 

SCHEO 

MENO 

MEAN 

ntm 

GNAVM 

GPRINT 

PSIM 

PRINT3 

OYNO 

SETEVN 

TRAKM 

GUIDM 

LOCAL  SYMBOLS!  AY  DUMMY  VARIABLE 

ICL2S  TEMPORARY  STORAGE  FOR  ICL2 


ICODE  EVENT  CODE 

IPRN  MEASUREMENT  COUNTER  FOR  PRINTING 

ISP2S  TEMPORARY  STORAGE  FOR  ISP2 

NEVENT  EVENT  COUNTER 

SPHERS  TEMPORARY  STORAGE  FOR  SPHERE ( NT P) 
TRTM2  TIME  OF  THE  MEASUREMENT 


COMMON 

COMPUTEO/USEO! 

ICODE 

XF 

MCNTR 

XI 

RI 

TEVN 

TRTM1 

COMMON 

COMPUTED* 

DELTM 

XPHI 

T LAST 
ALFA 

SPHERE 

CELT 

I CL  2 
ABN 

ISP  2 

COMMON 

USED* 

FNTM 

NMN 

UCNTRL 

IEVNT 

NR 

IUTC 

IPRINT 

NTMC 

KKWIT 

ISTMC 

RF 

NOGEN 

NEV 

TEV 

T7 
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ERRANN  Analysis 

Subroutine  ERRANN  controls  the  computational  flow  through  the  basic 
cycle  (measurement  processing)  and  all  events  in  the  error  analysis/ 
generalized  covariance  analysis  program. 


In  the  basic  cycle  the  first  task  of  ERRANN  is  tojiontrol  the  gen- 
eration of  the  targeted  nominal  spacecraft  state  at  time 

8iven  thc  state  ^ at  time  t^.  Then  calling  PSIM,  DYN0, 

TRAKM,  and  MEN0,  successively,  ERRANN  controls  the  computation  of 
all  matrix  information  required  by  subroutine  GNAVM  to  compute  the 
actual  and  assumed  knowledge  covariance  matrix  partitions  at  time 

t£_^  immediately  following  the  measurement* 


At  an  event,  ERRANN  simply  calls  the  proper  event  subroutine  or 
overlay  where  all  required  computations  are  performed.  Subroutine 
ERRANN  also  controls  miniprobe  targeting  in  the  error  analysis 
program. 
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ERRANN-3 


8 
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ERRANN-4 


I GEN  = 0? 

No  4 ] ^ 

Propagate  actual  estimation  error  means 
and  2nd-moment  matrix  partitions  to  t^ 


RETURN 
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PROGRAM  ERRON 

PURPOSE!  TO  CONTROL  T 
SUBROUTINES  SUPPORTED* 
SUBROUTINES  REQUIRED! 
LOCAL  SYMBOLS!  IRUNX 

I RUN 
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: ERROR  ANALYSIS  OVERLAY  SCHEME 

NONE 

DATA  ERRAN  PRNTS3 

TOTAL  NUMBER  OF  DATA  CASES 
OAT A CASE  COUNTER 


ESTMT-A 


SUBROUTINE  ESTMT 

PURPOSES  TO  UPDATE  THE  PINAL  VALUES  OP  THE  PRECEDING  COMPUTATION 
• INTERVAL  WHICH  SERVE  AS  INITIAL  VALUES  POR  THE  NEW  STEP, 
TO  DETERMINE  THE  OESIRED  SIZE  OF  THE  NEXT  TIME  INCREMENT 
ON  THE  8ASIS  OF  TRUE  ANOMALY  OR  REQUESTED  PRINTTIME, 

AND  TO  ESTIMATE  THE  FINAL  POSITION  AND  MAGNITUDE  OF  THE 
VIRTUAL  MASS. 

CALLING  SEQUENCES  CALL  ESTMT <D1 ,OELTM,TRTM) 

ARGUMENTS  D1  I JULIAN  DATE,  EPOCH  1900,  OF  THE  INITIAL 

TRAJECTORY  TIME 

DELTM  I TIME  INTERVAL  OVER  WHICH  THE  TRAJECTORY 
WILL  BE  PROPAGATED  (DAYS) 

TRTM  I INITIAL  TRAJECTORY  TIME  (DAYS)  REFERENCED 
TO  INJECTION 

SUBROUTINES  SUPPORTED!  VMP 
SUBROUTINES  REQUIRED*  NONE 
* COMMON  COMPUTED /USED*  INCMNT  V 

COMMON  COMPUTED!  ITRAT  KOUNT 

COMMON  USEDS  INCPR  INC  IPR 
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ESTtyT  Analysis 


The  initial  values  of  the  state  variables  are  first  set  equal  to  the 
values  at  the  end  of  the  previous  interval.  The  nominal  time  interval 
to  be  used  during  the  current  step  is  computed  from 


C2  rVS 


B 


V. 


VS 


B 


(1) 


where  is  the  constant  input  true  anomaly  increment  relative  to  the 

virtual  mass  trajectory. 


The  time  interval  to  the  final  time  t_  or  to  the  next  time  printout  t 

f P 

is  computed  and  the  current  time  interval  A t is  adjusted  if  necessary. 


Finally  the  virtual  mass  final  position  and  magnitude  are  estimated  by 
the  expansions 


^ v = % + At  +^*vAt2 

E VB  B V 

— * - ii*  2 

r = r +r  A t + r At 
V V V V 

E B - B av 


(2) 
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SUBROUTINE  EULMX 

PURPOSE*  TO  COMPUTE  THE  MATRIX  REQUIREO  TO  OEFINE  TRANSFORMATIONS 
FROM  ONE  COORDINATE  SYSTEM  TO  ANOTHER. 

CALLING  SEQUENCES  CALL  EULMX (ALP, NN, BET, MM, GAM, LL,P) 

ARGUMENTS  ALP  I FIRST  ROTATION  ANGLE  (RADIANS) 

NN  I FIRST  AXIS  OF  ROTATION 

BET  I SECOND  ROTATION  ANGLE  (RADIANS) 

MM  I SECOND  AXIS  OF  ROTATION 

GAM  I THIRD  ROTATION  ANGLE  (RADIANS) 

LL  I THIRD  AXIS  OF  ROTATION 

P(3,3)  0 TRANSFORMATION  MATRIX 

SUBROUTINES  SUPPORTED*  PECEQ 

SUBROUTINES  REQUIRED*  NONE 

LOCAL  SYMBOLS*  A INTERMEDIATE  ROTATION  MATRIX 

ALPHA  TEMPORARY  LOCATION  FOR  EACH  OF  THE 
ROTATION  ANGLES*  ALP,  BET,  AND  GAM 

D INTERMEDIATE  PRODUCT  MATRIX 

F TRANSFORMATION  MATRIX  FOR  ANGLE  ALP 

G TRANSFORMATION  MATRIX  FOR  ANGLE  BET 

H TRANSFORMATION  MATRIX  FOR  ANGLE  GAM 

N COUNTER  SHOWING  NUMBER  OF  COORDINATE  AXES 

FOR  WHICH  CALCULATIONS  REMAIN 

NAXIS  TEMPORARY  LOCATION  FOR  EACH  OF  THE  AXES 
OF  ROTATION*  NN»MM,  ANO  LL 

COMMON  USED*  ONE  ZERO 
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EXCUT 

CONTROL  EXECUTION  OP  A VELOCITY  CORRECTION  MODELED  AS  AN 
IMPULSE  SERIES  IN  THE  ERROR  ANALYSIS  PROGRAM 


CALLING  SEQUENCES  CALL  EXCUT 


SUBROUTINES  SUPPORTED®  6UEO,M 


SUBROUTINES  REQUIRED®  PREPUL  PULCOV  PULSEX 


COMMON  COMPUTED/ USED  8 XX1N 

COMMON  COMPUTED i QK 

COMMON  MS EOS  DELPX,  DIPX,  TM*  XNPX 
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SUBROUTINE  EXCUTE 

PURPOSE*  TO  CONTROL  THE  ACTUAL  EXECUTION  OF  THE  VELOCITY 
INCREMENT  DELTAV. 

CALLING  SEQUENCE*  CALL  EXCUTE 

SUBROUTINES  SUPPORTED*  GIOANS 

SUBROUTINES  REQUIRED*  PREPUL  PULSEX  CAREL  PECEQ 

LOCAL  SYMBOLS 9 A SEMIMAJOR  AXIS  OF  DOMINANT  BODY  CONIC 

DVM  MAGNITUDE  OF  VELOCITY  INCREMENT 

E ECCENTRICITY  OF  DOMINANT  BODY  CONIC 

INDEX  CODE  OF  BODY  BEING  TESTED  FOR  DOMINANT 
BOQY 

T. ND  INQEX  OR  CODE  OF  OOMINANT  BODY 
I SUN  SUN  VALUE  OF  INO 

I INDEX 

JX  INDEX  OF  S/C-REL-T 0-B.QDY  ROM  OF  F-ARRAY 

MODEL  EXECUTION  MODEL  U=INPULSIVE,  2*PULSE  ARC) 

PP  UNIT  VECTOR  TO  PERIAPSIS  XJf  ORBITAL  PLANE 

QQ  UNIT  VECTOR  NORMAL  TQ  PP  IN  ORBITAL  PLANE 

RN  POSITION  AN.0  VELOCITY  OF  S/C  AT  END  OF 

EXECUTION  BY  PULSING  ARC. 

RSI  POSITION  VECTOR  OF  S/C  RELATIVE  TO 
DOMINANT  BODY  AT  EXECUTION  TIME 

I 

RTB  RADIUS  MAGNITUDE  TO  BODY  BEING  TESTED  FOR 
DOMINANT  BODY 

TA  TRUE  ANOMALY  ON  DOMINANT  BODY  CONIC 

TFP  TIME  FROM  PERIAPSIS  ON  DOMINANT  BODY  CQNIC 

VSI  VELOCITY  VECTOR  OF  S/C  RELATIVE  TO 

OOMINANT  BODY  A.T  EXECUTION  TIME 

MW  UNIT  NORMAL  TO  ORBITAL  PLANE 

M ARGUMENT  OF  PERIAPSIS  OF  OOMINANT  BODY 
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CONIC 


XI 

INCLINATION 

OF  DOMINANT 

BODY 

CONIC 

XMU 

GRAVITIONAL 

CONSTANT  OF 

DOMINANT  BOOY 

XN 

LONGITUDE  OF 

ASCENDING 

NQOE 

OF  DOMINANT 

80  DV 

COMMON 

COHPUT  ED/USED  8 

OELTAV 

01 

RIN 

trth 

COMMON 

COMPUTED# 

KTIW 

COMMON 

USED# 

ALNSTH 

DELV 

F 

KUR, 

MOL 

NBOO 

NS 

PM  ASS 

PULT 

SPHERE 

TH 

TWO 

V 
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EXCUTE  Analysis 


EXCUTE  is  the  executive  subroutine  controlling  the  actual  execution  of 
the  velocity  increment  Av.  The  Av  is  computed  by  TARGET  or  INSERB  or 
read  in  by  the  user. 

Before  executing  the  correction  EXCUTE  computes  peripheral  information 
of  interest  to  the  user*  It  first  determines  the  dominant  body  acting 
on  the  spacecraft.  If  the  spacecraft  is  in  the  moon’s  SOI  (with  respect 
to  the  earth),  the  moon  is  the  dominant  body.  If  not  in  the  moon’s  SOI 
but  in  any  of  the  planets 1 SOI  (with  respect  to  the  sun)  that  planet  is 
the  dominant  body.  Otherwise  the  sun  is  the  dominant  body. 

Having  determined  the  dominant  body  EXCUTE  computes  the  state  of  the  space- 
craft relative  to  that  body.  It  then  computes  the  conic  elements  of  the 
trajectory  both  before  and  after  an  impulsive  addition  of  the  Av  in 
ecliptic  coordinates. 

If  the  dominant  body  is  not  the  sun,  it  makes  the  same  computations  in 
equatorial  coordinates. 

EXCUTE  then  operates  on  the  current  value  MODEL  of  the  array  MDL.^  If 
MODEL  = 1,  the  impulsive  model  of  execution  is  commanded.  The  Av  is 
therefore  added  to  the  current  inertial  ecliptic  velocity  before  Returning 
to  GIDANS ♦ 

If  MODEL  = 2,  the  pulsing  arc  mode^  of  execution  is  required.  PREPUL  is 
called  to  perform  the  preliminary  work  needed  for  the  pulsing-arc.  PULSEX 
then  actually  propagates  the  trajectory  through  the  series  of  pulses.  At 
the  completion  of  the  arc  EXCUTE  updates  the  time  and  inertial  ecliptic 
state  (both  position  and  velocity)  of  the  nominal  trajectory  to  the  state 
determined  by  PutsEX. 
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EXCUTE  Flow  Chart 


EXCUTS-A 


SUBROUTINE  EXCUTS 

PURPOSE  CONTROL  EXECUTION  OF  A VELOCITY  CORRECTION  MODELED  AS  AN 
IMPULSE  SERIES  IN  THE  SIMULATION  PROGRAM 

CALLING  SEQUENCES  CALL  EXCUTS 

SUBROUTINES  SUPPORTED!  GUISIM 

SUBROUTINES  REQUIRED!  PREPUL,  PULCOV,  PULSEX 

LOCAL  SYMBOLS  RN  EFFECTIVE  SPACECRAFT  STATE  AFTER  A 

VELOCITY  CORRECTION  MODELED  AS  AN  IMPULSE 
SERIES 

COMMON  COHPUTEO/USED8  XXIN 

COMMON  COMPUTED!  QK 

COMMON  USED!  DELPX,  DIPX,  TM,  INPX 
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EXCUTS  Plow  Chart 


213 


Fl-A 


FUNCTION  FI 

PURPOSE*  TO  CALCULATE  SQUARE  OF  LENGTH  OF  CONSTRAINT  VECTOR  AFTER 
TAKING  STEP  OF  GIVEN  LENTH  AND  IN  GIVEN  DIRECTION 
FROM,  CURRENT  CONTROL  VECTOR 

ARGUMENT l ALPHA  I STEP  LENGTH  IN  SEARCH  DIRECTION 

FPHI  I FUNCTION  RELATING  CONSTRAINT  VECTOR  TO 

CONTROL  VECTOR 

M 1 DIMENSION  OF  CONSTRAINT  VECTOR 

N I CONTROL  VECTOR 

PHI  I CURRENT  CONSTRAINT  VECTOR 

P I UNIT  VECTOR  IN  SEARCH  DIRECTION 

X I CURRENT  CONTROL  VECTOR 

SUBROUTINES  SUPPORTED*  GAUSLS 
SUBROUTINES  REQUIRED « FPHI 

LOCAL  SYMBOLS  1 FI  SQUARE  OF  LENGTH  OF  CONSTRAINT  VECTOR 

AFTER  TAKING  PRESCRIBED  STEP 

X ALPHA  VECTOR  OBTAINED  FROM  ORIGINAL  CONTROL 
VECTOR  8Y  TAKING  STEP  OF  LENGTH  ALPHA 
IN  DIRECTION  P 
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SUBROUTINE 
PURPOSE 8 


ELITE 

TO  SOLVE  THE  TIME  OF  FLIGHT  EQUATION  (LAMBERT-? 
USING  BATTIN-S  UNIVERSAL  EQUATION  FORMULATION., 


CALLING  SEQUENCE « 
ARGUMENTS 8 R1 

RE 

THETA 

GM 

TF 

A 

E 

K 


I 


CALL  FLlTECRis RBsTHETA^GH  » TF#  A*E> K) 
I INITIAL  RADIUS 
I FINAL  RADIUS 
CENTRAL  ANGLE 
GRAVITIONAL  CONSTANT 
TIME  OF  FLIGHT 
SEHIMAJOR  AXIS 
ECCENTRICITY 


1 

I 

0 

0 

0 


SUBROUTINES  SUPPORTED* 
SUBROUTINES  REQUIRED* 
LQCAL  SYMBOLS  * AMISS 

BIGNO 

B1 

CHECK 

CX 

GY 

C 

OEM 

P 

ROOT 

SLOP 

sx 


ERROR  CODE 
=6  NO  ERROR 
ERROR 

HELIO 

NONE 

ERROR  IN  ITERATE 
CONSTANT  *.E*25 
CONSTANT  * S 3/2 
ERROR  IN  ITERATE 
8ATTXN  C-FUNCTXON  OF  X 
BATTEN  C-FUNGTION  OF  Y 
CHORD  LENGTH 
INTERMEDIATE  VARIABLE 
SEMSLATOS  RECTUM 
INTERMEDIATE  VARIABLE 
VALUE  OF  OERIATIVE  OF  T(X) 
BATTIN  S-FUNCTXON  OF  X 


THEOREM) 
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SY  BATTIN  S-FUNCTXON  OF  Y 

Si  SEMIPERIMETER 

S ^INTERMEDIATE  VARIABLE  C=i-C/Sl> 

TIME  FLIGHT  TIME  CORRESPONDING  TO  ITERATE  X 

T NORMALIZED  TIME  OF  FLIGHT 

U FLAG  SET  TO  1 IF  X LESS  THAN  PJ  2,-1  ELSE 

VB1  INTERMEDIATE  VARIABLE 

V FLAG  SET  TO  1 FOR  TYPE  1,-1  FOR  TYPE  II 

XI  .STARTING  VALUE  FOR  X 

X VARIABLE  INTRODUCED  TO  REPLACE  A 

Y INTERMEDIATE  VARIABLE  AS  FUNCTION  OF  X 
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FLITE  Analysis 


FLITE  solves  the  time  of  flight  equation  (Lambert's  theorem)  using  Battin's 
universal  equation  formulation.  Stated  functionally  Lambert's  theorem 
states  that  the  time  of  flight  t^  is  a function 

t£  = tt  (r£  + r2,  c,  a)  (1) 

solely  of  the  sum  of  the  distances  of  the  initial  and  final  points 

of  the  trajectory  from  the  central  body,  the  length  c of  the  chord  joining 
these  points,  and  the  length  of  the  semimajor  axis  a of  the  trajectory. 
Usually  the  time  of  flight  is  known  and  it  is  desired  to  solve  for  the  semi- 
major  axis.  The  standard  formulation  involves  different  equations  for  the 
elliptic,  parabolic,  and  hyperbolic  cases,  all  of  which  then  iterate  on  a 
to  determine  the  solution. 

In  Battinfs  approach  the  semimajor  axis  a is  replaced  by  a new  variable  x , 
By  further  introducing  two  new  transcendental  functions  S(x)  and  C(x), 
the  special  cases  of  the  flight- time  equation  are  combined  into  one  single, 
better  behaved  formula.  The  functions  S(x)  and  C(x)  are  defined  by 


S(x)  - 


\Tx  - sin  \Tx 

3 

x 

sinh  - \A-x 

i 

6 


C(x)  = 


1 - cos  \TH 

X 

cosh  \J -x  - 1 

-x 

1 

2 


A parameter  Q is  introduced  as 

Q 

where 


g-q 

6 


c.  = (r  ^ + r ^ - 2r  r cos  9 

1 2 12 


</<•_  i ' tv 

S = 2 (rx  + r2  + c) 


The  universal  flight- time  formula  is 


x > 0 
x !<  0 

x — 0 (2) 


(3) 
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T « 


S (x) 

c3'2W 


q3/2 

Q ,3/2 


sizl 


(y) 


yC(y)  - Q x C(x) 


(4) 


where 


T = 


^ . The  choice  of  the  upper  or  lower  sign  is 


made  according  to  whether  the  transfer  angle  0 is  less  or  greater  than 
180°  respectively. 

The  development  of  equations  (4)  is  too  long  and  complex  to  be  given  here. 
It  may  be  obtained  from  the  first  reference  listed  below.  The  following 
steps  of  that  reference  are  noted: 

(1)  the  two  body  problem  on  pp.  15,16 

(2)  the  Mvis  viva”  equation  and  Kepler's  equation  on  pp.  50,51 

(3)  Lambert’s  theorem  proved  from  Kepler's  equation  on  p.  71 

(4)  the  basic  flight- time  formula  and  detailed  analysis  on  pp.  72-78 

(5)  The  universal  formulation  on  pp.  80,81. 

Instead  of  using  the  equations  (4)  the  authors  of  refence  2 (listed  below) 
determined  y as  a function  of  x^  as 


y - 4 arc  sin 


» -4 


xsC(x) 


> 0 


xsC(x) 

2, 


^ .?  sacs).  | + i 


x < 0 


(5) 


Therefore  a single  variable  iteration  is  possible, 
to  solve  (4a)  given  T and  Q as 


Newton's  method  is  used 


= x - 


T(x  ) - T 
n 

T’<V 


(6) 


where 


T(x)  = 


S(x) 

C3/2<x) 


3/2 


3/2 

C ,(y) 


(7). 


T'(x)  - 


J + k[+  Q3/2  - 1.5\/2-yC (y)'  T(x),] 

2x  V C(x) 


(8) 
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. 2 „ / 2-xC(x) 

k - sgn  (ir  - x)  y 2~"yC"(y)  ’ (9) 

As  1 2-yC(y)  { — *-0,  k — ► ! . Therefore  if  1 2-yC (y) | < 10  4 k is  set 

to  1.  Also  T 1 (x)  breaks  down  as  x — > 0 . Therefore  the  approximation 
is  used:  , 

r 

_ 3/2 

>T'(x)  = 1 * S v ~ |xj  < lCf 6 (10) 

2ir 

The  starting  value  for  x is  given  by  x « x - Ax(T,Q)  where 

x = 82.1678  + 352.8045  T 

- (123954.8504  T2 *  + 43904.0083  T + 13423.6819)^ 

Ax(T,Q)  = + (-2—36-  - + (0.3  Q2  + 0.7  Q)  (11) 

NT  + .15  / 


To  insure  that  the  routine  will  not  fail  for  large  or  small  values  of  T 
certain  restrictions  on  T are  built  into  the  program*  The  nominal  value 
of  T ' is  forced  to  be  no  larger  than  950,000  and  no  smaller  than  10~ 

This  forces  the  corresponding  limits  for  x of  -823.0473  <x  < 39.14553. 


Finally  convergence  is  achieved  when 


' 100000 

Having  solved  for  semiraajor  axis  a , the  semilatus  rectum  p is  given  by 


!r  r sinG  / 

-L-2 J_i_  . T + 

C yj  s-c  2a  “ 


sgn  (t  - t) 
m 


2a 


(12) 


Then  the  eccentricity  e is  given  by 

P 

e = 1 - - 

a 


(13) 


References: 

(1)  Battin,  R.  H.,  Astronomical  Guidance,  McGraw  Hill  Book  Co.,  Inc., 
New  York,  1964. 

(2)  Lesh,  H.  F /,  and  Travis,  C.,  FLIGHT:  k Subroutine  to  Solve  the 

Flight  Time  Problem,  JPL  Space  Programs  Summary  37-53,  Vol.  II. 
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Enforce  restrictions  on  x 

1 

\ 

T 

| X = X - ~ 

i 

-<*>  - 1 
T«(x) 

i 

Compute  T!(x) 


GAIN1-A 


SUBROUTINE  GAIN1 

PURPOSE  I TO  COMPUTE  THE  KALMAN  GAIN  MATRICES 

CALLING  SEQUENCE*  CALL  GAIN1 (NR , AJ , AKW , S W , IE  NO > 

ARGUMENTS!  NR  I NUMBER  OF  ROWS  IN  THE  OBSERVATION  MATRIX 

AJ  I MEASUREMENT  RESIDUAL  COVARIANCE  AND  ITS 

INVERSE 

AKW  I INTERMEDIATE  ARRAY 

SW  I INTERMEDIATE  ARRAY 

I END  I NR-1 

SUBROUTINES  SUPPORTED*  GNAVM 
SUBROUTINES  REQUIRED!  MATIN 


LOCAL 

SYMBOLS ! 

OUM 

INTERMEDIATE 

VECTOR 

XJ 

INTERMEDIATE 

ARRAY  * 

SUM 

INTERMEDIATE 

VARIABLE 

COMMON 

COMPUTED! 

AK 

S 

COMMON 

USED* 

ONE 

HALF 

ZERO 
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GAIN1  Analysis 

C 

Subroutine  GAIN1  computes  the  Kalman-Schmidt  filter  gain  matrices 

and  that  are  used  in  subroutines  GNAVM  and  NAVM  to  update 

estimation  error  covariance  matrices  after  a measurement  has  been 
processed. 


The  measurement  residual  covariance  matrix  and  the  auxiliary 

matrices  A^+^  and  B are'  a8Sumed  to  be  available  (from  GNAVM  or 

NAVM)  when  GAIN1  is  called.  Subroutine  GAIN1  then  evaluates  the 
following  equations  to  determine  the  filter  gain  matrices: 


\+l  \+l  Jk+1 


(1) 


Sk+1  Bk+1  Jk+1 


(2) 
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SUBROUTINE  GAIN 2 

PURPOSE*  TO  COMPUTE  THE  GAIN  MATRICES  FOR  THE  EQUIVALENT  RECURSIVE 
WEIGHTED  LEAST  SQUARES  CONSIDER  FILTER 

CALLING  SEQUENCE*  CALL  GAIN2 (NR) 

ARGUMENT*  NR  I NUMBER  OF  POWS  IN  OBSERVATION  MATRIX 

SUBROUTINES  SUPPORTED*  NAVM  GNAVM 

SUBROUTINES  REQUIRED*  PSIM  DYNO  MATIN 

LOCAL  SYM80LS*  AJ  MEASUREMENT  RESIDUAL  COVARIANCE  MATRIX  AND 

ITS  INVERSE 

AKW  INTERMEDIATE  VARIABLE 
DELTMS  INTERMEDIATE  STORAGE  FOR  OELTM 
DUM  INTERMEDIATE  VECTOR 
I END  NR-i 

I FLAG  =0  IF  STATE  TRANSITION  MATRICES  USED  ARE 
IDENTICAL  TO  STM  FOR  THE  MEASUREMENT 
= 1 IF  STM  ARE  RECALCULATED  TO  CORRESPOND  TO 
THE  DT  BETWEEN  THE  LAST  MEASUREMENT  ANO 
THE  PRESENT  MEASUREMENT 

NDIM2S  TEMPORARY  STORAGE  FOR  NDIM2 

NDIM3S  TEMPORARY  STORAGE  FOR  NDIM3 

? 

PHISV  TEMPORARY  STORAGE  FOR  PHI 


PSAVE 

INTERMEDIATE 

ARRAY 

SUM 

INTERMEDIATE 

VARIABLE 

SW 

INTERMEDIATE 

ARRAY 

TRTS 

INTERMEDIATE 

STORAGE  FOR  TPTMi 

TXUSV 

INTERMEDIATE 

STORAGE  FOR  TXU  ARRAY 

TXXSSV 

INTERMEDIATE 

STORAGE  FOR  TXXS 

ARRAY 

COMMON 

COMPUTED /USED* 

AK 

PMIN 

CMIN 

PPLU 

CPLU  OELTM 

PSMIN  PSPLU 

PHI 

TXXS 

Common 

USEO  * 

AM 

NOIM1 

CXXSG 

N0IM2 

H II 

NDIM3  ONE 

MCNTR 

PG 
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PSG 

TLAST 


RF  RSAVE  S 

TRTMi  TXU  ZERO 


TE  W 
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GAIN2  Analysis 

Subroutine  GAIN2  computes  filter  gain  matrices  and 

for  an  equivalent  recursive  weigh ted- least-squares  (WLS)  consider 
filter.  The  equations  required  to  compute  K^+1  and  Sk+1  are  iden- 
tical to  those  used  to  compute  the  Kalman  filter  gains,  but  with 
all  consider  parameter  covariances  removed. 

Subroutine  GAIN 2 propagates  and  updates  (at  a measurement)  a 
set  of  covariance  matrix  partitions  that  are  completely  inde- 
pendent of  those  processed  in  subroutines  NAVM  or  GNAVM  for  the 
sole  purpose  of  generating  filter  gain  matrices  and  S^_^. 


The  propagation  and  update  equations  employed  in  GAIN2,  which 
are  a subset  of  the  NAVM  and  GNAVM  propagation  and  update  equa- 
tions, are  summarized  below.  For  definitions  of  all  matrices, 
see  either  the  subroutine  NAVM  or  GNAVM  analysis  section. 


Propagation  equations : 


J$P*  + 0 C+ 
k+1  Ik  xx  xx 
s s< 


+ c eT  + q 

xx  xx  k 

Sk+1  S 


2 = 4>C+  + 0 P* 

XX  xx„  XX  s. 

sk+l  sk  3 k 


p"  = p+  . 
Sk+1  Sk 


Gain  equations: 


\+l  Pk+1  ^k+l  + Cxx  Mkfl 

Sk+1 

Bk+1  ~ Ps  \+l  + Cxx  ^+1 

Skfl 

Jk+1  = \+l  \+l  +‘  Bk+1  + \+l 


(1) 

(2) 

(3) 

(4) 

(5) 

(6) 
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S+l  \+l  Jk+1 


Update  equations: 


stJ,  - Bij.1  JrL 
k+1  k+1  k+1 


Pk+1  Pk+1  \+l  \+l 


XX 


= C 


XX 


^+1  Bk+1 


k+1 


3k+l 


*+s  = Ps  " Sk+1  \+l 
k+1  k+1  k 


(7) 

(8) 


(9) 

(10) 

(ID 
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GAIN2  Flow  Chart 
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SUBROUTINE  GAUSIS 

PURPOSE  I TO  FINO  CONTROL  VECTOR  OF  OIMENSION  N WHICH  MINIMIZES 
SQUARE  OF  LENGTH  OF  CONSTRAINT  VECTOR  OF  OIMENSION  M 

ARGUMENT*  Cl  I WEIGHTING  FACTOR. APPLIED  TO  CHANGE  IN 

LENGTH  OF  CONTROL  VECTOR  IN  CONVERGENCE 
CRITERION 

C2  I WEIGHTING  FACTOR  APPLIEO  TO  CHANGE  IN 

MAGNITUDE  OF  MISS  INOEX  IN  CONVERGENCE 
CRITERION 

DELTA  I COMMON  PERTURBATION  SIZE  APPLIEO  TO  ALL 
CONTROL  COMPONENTS  IN  APPROXIMATING 
JACOBIAN  SENSITIVITY  MATRIX  BY  DIVIDED 
DIFFERENCES 

EPS  I UPPER  BOUND  ON  WEIGHTED  SUM  OF  CHANGES  IN 

CONTROL  VECTOR  AND  IN  MISS  INDEX  FOR 
CONVERGENCE 


FPHI  I FUNCTION  RELATING  CONSTRAINT  VECTOR  TO 

CONTROL  VECTOR 

ICON VI  0 FLAG  INDICATING  WHETHER  OR  NOT 

CONVERGENCE  OCCURRED 
=1  CONVERGENCE 
=2  NO  CONVERGENCE 

ITLIM  I UPPER  BOUND  ON  NUMBER  OF  PERMISSIBLE 

ITERATIONS  BEFORE  ALGORITHM  IS  STOPPED 

M I NUMBER  OF  CONSTRAINTS < DI MENSION  OF 

CONSTRAINT  VECTOR) 

N I NUMBER  OF  CONTROLS ( OIMENSION  OF  CONTROL 

VECTOR) 

PHI  I CONSTRAINT  VECTOR 

SO  I MAXIMUM  PERMISSIBLE  LENGTH  OF  PSEUDO- 

INVERSE  CONTROL  STEP (LARGER  STEPS  ARE 
REPLACEO  BY  STEEPEST  DESCENT  CORRECTION) 

X I/O  CONTROL  VECTOR 

YM  0 FINAL  MINIMUM  VALUE  OF  MISS  INOEX 

SUBROUTINES  SUPPORTEOt  TPRTRG 

SUBROUTINES  REQUIRED*  FPHI  JACOB  MATIN  THPOSM 
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LOCAL  SYM80LSI  ALPAH  PROOUCT  OP  ALPHA  ANO  AM80A 

ALPHA  FACTOR  DETERMINING  LOCATION  OF 

INTERMEDIATE  FUNCTION  EVALUATION  ON 
INTERVAL  FROM  0.  TO  AM80A  FOR  CUBIC 
INTERPOLATION 


AMBOA  LENGTH  OF  INTERVAL  USED  IN  CUBIC  INTER- 
POLATION TO  FIND  MINIMUM  IN  SEARCH 
OIRECTION 

DXHS  MAGNITUDE  SQUARED  OF  CONTROL  CORRECTION 


OXM  MAGNITUDE  OF  CONTROL  CORRECTION 

GRADYM  MAGNITUDE  OF  GRADIENT  OF  MISS  INOEX 

GRAOY  GRADIENT  OF  MISS  INOEX 

HALF  CONSTANT  0.5 

ILOC  INDEX  USEO  IN  TRANSFORMING  A SQUARE  MATRIX 

INTO  A COLUMN  VECTOR 

ILS  FLAG  INDICATING  WHETHER  PREVIOUS  STEP  WAS 

PSEUDO-INVERSE  OR  STEEPEST  OESCENT  CONTROL 
CORRECTION 
=1  PSEUOO -INVERSE 
s2  STEEPEST  DESCENT 

ITMi  CURRENT  ITERATION  NUMBER  LESS  ONE 

ITP1  CURRENT  ITERATION  NUMBER  PLUS  ONE 

IT  CURRENT  ITERATION  NUMBER 

IYC  FLAG  INDICATING  WHETHER  OR  NOT  MISS  INDEX 

WAS  CALCULATED  FROM  LAST  CONTROL 
CORRECTION 

=1  MISS  INOEX  CALCULATED 
-2  MISS  INOEX  NOT  CALCULATED 

PRO JM  PSEUDO-INVERSE  MATRIX 

PSDIJ  INVERSE  OF  PRODUCT  OF  JACOBIAN  MATRIX  BY 

; JACOBIAN  MATRIX  ITSELF 

PSDJ  PROOUCT  OF  TRANSPOSE  OF  JACOBIAN  MATRIX 
BY  JACOBIAN  MATRIX  ITSELF 

RECORD  ARRAY  CONTAINING  CONTROL  VECTORS,  MISS 
INDICES,  ANO  GRADIENTS  OF  MISS  INOICES 
FOR  ALL  ITERATIONS 
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RJCBM  JACOBIAN  SENSITIVITY  MATRIX  OF  CONSTRAINT 
VECTOR  WITH  RESPECT  TO  CONTROL  VECTOR 

TEMPV  COLUMN  VECTOR  REPRESENTATION  OF  SQUARE 
MATRIX  PSDJ 

TEMPW  COLUMN  VECTOR  REPRESENTATION  OF  SQUARE 
MATRIX  PSOIJ 

TWO  CONSTANT  2.0 

WINCS  WEIGHTEO  SUM  OF  CHANGE  IN  LENGTH  OF 

CONTROL  VECTOR  AND  MAGNITUDE  MISS  INOEX 
USED  IN  CONVERGENCE  CRITERION 

XMIN  LENGTH  OF  STEP  WHICH  MINIMIZES  MISS  INOEX 
IN  SEARCH  DIRECTION 

YALAM  VALUE  OF  MISS  INOEX  AFTER  STEP  OF  LENGTH 
ALPHA  TIMES  LAMBDA  IN  SEARCH  DIRECTION 

YLAM  VALUE  OF  MISS  INDEX  AFTER  STEP  OF  LAMBOA 
IN  SEARCH  DIRECTION 

YP  VALUE  OF  MISS  INOEX  ON  PREVIOUS  ITERATE 


Y CURRENT  VALUE  OF  MISS  INOEX 

ZERO  CONSTANT  0. 
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GAUSLS  Analysis 

GAUSLS  is  a hybrid  algorithm  to  obtain  a least-squares  solution  to 
the  system 

£ Os)  *=  0 (1) 

where  x is  an  n-ditnensional  control  vector,  £ is  an  m- dimensional 
constraint  vector,  and  m > n.  Current  array  dimensions  in  GAUSLS 
require  that  n ^ 5 and  m < 10.  By  least-squares  we  mean  that  the 
square  of  the  standard  Euclidean  norm  of  £,  namely 


(2) 


is  minimized.  The  principal  algorithm  used  is  the  well-known  pseudo- 
inverse scheme  originally  due  to  Gauss.  When,  however,  the  depend- 
ence of  £ on  x deviates  substantially  from  the  approximate  linearity 
tactily  assumed  by  the  Gauss  method,  a best-step  steepest  descent 
algorithm  is  invoked.  Either  of  two  indications  of  nonlinearity 
can  cause  GAUSLS  to  transfer  from  the  normal  pseudo-inverse  mode 
to  best-step  steepest  descent  technique:  (1)  the  Gauss  control  cor- 

rection is  larger  in  norm  than  an  input  upper  bound  , s^,  or  (2) 

the  Gauss  step  actually  increases  the  miss  index,  ||£||2,  over  the 
previous  iterate. 


The  Gauss  procedure  can  readily  be  derived  since  it  is  simply  the 
exact  one-step  solution  to  equation  (1)  when  £ depends  on  x lin- 
early. Let  J represent  the  Jacobian  or  sensitivity  matrix  of  £ 
with  respect  to  x;  that  is 


3<J>± 


1=1, ...,m 
J l,...,n 
m > n 


(3) 


Next  let  y denote  the  least-squares  miss  index;  that  is 


, 2 
y = | l£  | 


(4) 
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Then  Che  gradient  of  the  miss-index  is  simply 

Vy  *2/1  (5) 

Now  a necessary  condition  for  the  miss-index  to  be  minimized  after 
a control  correction  of  Ax  is 

Vy  (.x  + Ax)  = 0 . (6) 

Substituting  equation  (5)  into  (6)  gives 

2 / (x  + Ax)1  A + Ax)  = _0  (7) 

Assuming  J either  constant  or  approximately  so  and  using  the  first 
two  terms  of  the  Taylor* s series  for  yields  the  approximation 

2 JT  [!(x>  + JAxJ  = 0 (8) 

Solving  for  the  control  correction  then  yields  the  pseudo-inverse 
control  correction 

Ax  = -(JTJ)-1  JTi(x)  . (9) 

Clearly  equation  (9)  is  exact  if  ^ is  a linear  function  of  x so  that 
the  Taylor  series  of  ^ (x  + Ax)  has  only  two  terms  and  J is  inde- 
pendent of  x.  Since  one  can  reasonably  expect  that  if  the  depen- 
dence of  | on  x is  approximately  linear,  formula  (9)  can  be  applied 
iteratively  to  yield  a convergent  sequence  of  control  vectors  con- 
verging to  the  least-squares  solution  and  one  arrives  at  the  Gauss 
algorithm,  namely, 

= (JTJ)_1  (10) 

k « 0,1,2, . . . 

^k+1  = + (11) 
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where  Xq  is  an  initial  control  estimate  suggested  by  other  sources. 

GAUSLS  requires  as  an  input  parameter  this  zero-iterate  control 
estimate,  together  with  the  corresponding  constraints  • 

Since  equation  (6)  only  guarantees  an  extremum  of  the  miss  index 
(I.e.,  a minimum,  a maximum,  or  an  inflection  point),  no  more  can 
be  said  for  the  Gauss  algorithm.  It  must  be  assumed  that  the  ini- 
tial estimate  of  Xq  is  sufficiently  near  a local  minimum  and  that 

y is  well  enough  behaved  that  the  algorithm  indeed  leads  to  that 
minimum.  It  is  interesting  to  note  that  in  the  case  that  m - n, 
equations  (10)  and  (11)  reduce  to  the  familiar  Newton-Raphson  scheme 
for  solving  nonlinear  systems  of  equations. 

The  logic  behind  the  steepest-descent  mode  is  less  elegant  but  more 
straightforward  than  the  Gauss  procedure.  First,  the  gradient  of 
the  miss  index  is  computed  via  equation  (5) . Next  a search  is  con- 
ducted in  the  negative  gradient  direction  until  the  miss  index  is 
observed  to  begin  increasing.  'Let  a denote  the  step  length  in  the 
search  direction  where  y is  first  observed  to  increase.  Then  the 
subroutine  THP0SM  is  called  to  find  a minimum  of  y on  the  step 

length  interval  from  0 to  a by  cubic  interpolation.  Let  X denote 

m 

the  step  length  value  corresponding  to  the  minimum  returned  by 
THP0SM.  Then  the  control  correction  for  the  kth  iterate  is  taken 
to  be  ' 


^ - -*m  Vy/||Vy||  . (12) 


The  convergence  of  this  scheme  is  only  asymptotic  with  no  accel- 
eration as  the  minimum-miss  controls  are  approached.  Nevertheless, 
the  steepest  descent  algorithm  seems  to  be  the  best  available  for 
extremely  nonlinear  miss  indices  since  it  involves  no  linear  extra- 
polation and  since  it  searches  in  the  only  direction  in  which  im- 
provement is  guaranteed.  Its  poor  terminal  convergence  is  no 
handicap  in  the  hybrid  GAUSLS  routine  because  once  the  iteration! 
sequence  falls  inside  a suitably  linear  region  about  the  miss-index 
minimum,  the  rapidly  convergent  Gauss  scheme  takes  over. 

GAUSLS  calculates  the  Jacobian  matrix  J by  numerical  differencing 
through  a call  to  the  subroutine  JAC0B . Hence  the  user  is  required 
to  supply  a perturbation  size  fi  to  GAUSLS  for  us  by  JAC0B  m ap- 
proximating J by  the  forward-divided  difference 

[4>.  (x.  + 6)  - (j)  (x.)] 

- —-^--5 i-L-  <13> 
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The  user  could  conceivably  use  an  analytical  Jacobian  matrix  by 
replacing  the  call  to  JAC0B  by  formulae  for  the  appropriate  par- 
tial derivatives. 

The  convergence  criterion  in  either  mode  of  GAUSLS  is  the  same. 
Adequate  convergence  is  assumed  when  a weighted  sum  of  the  length 
of  the  change  in  the  control  vector  and  the  magnitude  of  the  change 
in  the  miss  index  fall  below  a preassigned  value;  i.e.. 


cl  I lAil  ! + c2  !atI  < e (14) 

The  user  must  supply  C^,  C„>  and  z as  input  parameters  to  GAUSLS. 

To  expedite  convergence,  tne  user  should  scale  the  components  of 
x so  they  are,  as  far  as  possible,  all  of  the  same  order  of  magni- 
tude, say  in  the  range  from  0.1  to  10.  This  scaling  makes  meaning- 
ful the  use  of  a single  perturbation  size  6 for  all  components  of 
x in  approximating  J and  avoids  numerical  problems  in  matrix  inver- 
sion and  search  direction  calculation.  Further  he  must  supply  as 

an  input  parameter  the  maximum  number  of  iterations  k he  will 

max 

allow  before  terminating  the  algorithm. 

GAUSLS  supplies  enough  output  to  adequately  monitor  either  mode 
of  the  iterative  least-squares  process.  Initially  under  the  heading 
"Gauss  Least-Squares  Routine,"  it  prints  out  all  of  the  input  param- 
eters. These  include  n,  m,  6,  Cn  ,~C~,  e,  sn,  and  k . Next 

12  0 max 

the -user-supplied  initial-control  estimate  Xq»  together  with  the 

corresponding  miss  index  y(Xg) , are  printed  out  under  the  heading 

"Gauss  Iteration  Point."  Then  the  printout  relative  to  the  gen- 
eral kth  iterate  begins.  All  data  concerning  the  Jacobian  matrix 
J are  printed  from  the  subroutine  JAC0B  under  the  heading  "Jacobian 
Matrix  Routine."  Each  iterate,  of  course,  starts  with  a Jacobian 
matrix  computation  even  if  it  eventually  ends  in  a steepest- 
descent  step.  All  of  the  control  vectors  and  corresponding  con- 
straint vectors  that  go  into  the  approximation  of  the  Jacobian 
matrix  are  printed  under  the  heading  "Nominal  and  Perturbed  Func- 
tion Values.”  The  divided-difference  approximation  to  J is-  then 
printed  under  the  heading  "Jacobian  Matrix."  Next  GAUSLS  prints 
out  the  Gauss  pseudo  inverse  matrix,  (JTJ)-1  J^,  under  the  heading 
"Projection  Matrix."  Finally  the  next  Gauss  control  vector  iter- 
ate, the  corresponding  miss  index,  and  the  gradient  magnitude  of 
the  previous  iterate  are  printed  out  under  the  heading  "Gauss  Iter- 
ation Point."  If  the  length  of  the  control  correction  Ax  exceeds 
Sq,  however,  the  miss  index  is  neither  calculated  nor  printed. 
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If  the  Gauss  iterate  is  such  that  a s teepest-descent  step  is  re- 
quired* GAUSLS  prints  out  all  of  the  pertinent  data.  Under  the 
heading  " Cubic  Interpolation  Routine”  are  printed  all  trial  step 
lengths  and  corresponding  miss  indices  used  in  bracketing  the  mini- 
mum,  the  input  parameters  to  the  routine  THP0SM,  and  the  minimum 
miss  step  length  and  index  are  returned  by  THP0SM.  If  the  miss 
index  decreases  mono ton! cally  in  the  search  direction,  a message 
to  that  effect  is  printed  out  and  execution  of  the  program  is 
stopped.  Finally  the  steepest  descent  control  iterate  and  the 
corresponding  miss  index  is  printed  out  under  the  heading  "Best- 
Step  Steepest-Descent  Iteration  Point. Tt  The  iteration  printout 
then  is  repeated  with  each  successive  iterate.  When  convergence 
finally  occurs,  the  message  "Adequate  convergence  occurred  on  pre- 
vious step"  is  printed  after  the  last  iterate  and  the  convergence 
flag,  IC0NV1  is  set  to  1.  If,  on  the  other  hand,  convergence  fails 
to  occur  in  k ^ iterations,  the  message  "Convergence  did  not  oc- 
cur" is  supplied  after  the  last  iteration  point  and  IC0NV1  is  set 
to  2.  After  either  of  these  two  stopping  conditions  is  reached, 
a summary  of  the  iteration  points  is  printed  under  the  heading 
"Iteration  History."  This  summary  contains  the  control  vector, 
the  miss  index,  and  the  gradient  to  the  miss  index  at  each  of  the 
iterates  in  consecutive  order. 
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SUBROUTINE,  GDATA 

PURPOSE*  TO  INITIALIZE  GENERALIZED  COVARIANCE  QUANTITIES 
CALLING  SEQUENCE*  CALL  GDATA 


SUBROUTINES  SUPPORTED*  OATA 


COMMCN 

COMPUTED/USEO* 

EU 

EV 

EVA 

EV8 

EVK 

EVS 

EW 

EXI 

EXSI 

EXST 

EXT 

GCUV 

GCUW 

GCVW 

GCXSU 

GCXSUG 

GCXSV 

GCXSVG 

GCXSW 

GCXSWG 

GCXU 

GCXUG 

GC  XV 

GCXVG 

GC  XW 

GCXWG 

GCXXS 

GCXXSG 

GONCN 

GMNCN 

GP 

GPG 

GPS 

GPSG 

GU 

GV 

GW 

IDNF 

VARA 

VARB 

V ARK 

VARS 

COMMON 

USED* 

CXSU 

CXSV 

CXU 

CXV 

CXXS 

DNCN 

IDNF 

MNCN 

NDIM1 

N0IM2 

-NDIM3 

N0IM4 

P 

PS 

SIGALP 

SIG8ET 

SIGPRO 

SIGRES 

TG 

UO 

VO 

ZERO 
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SUBROUTINE  GENGIQ 

PURPOSE  * TO  GENERATE  THE  ENSEMBLE  STATISTICS  OF  THE  ACTUAL 

COMMANUED  VELO.CITT  CORRECTION,  THE  ACTUAL  EXECUTION 
ERROR  ANO  THE  ACTUAL  TARGET  HISS 

CALLING  SEQUENCE  8 CALL  GENGIO 

SUBROUTINES  SUPPORTED!  ERRANN 

SUBROUTINES  REQUIREOs  SAVMAT  DYNO  GNAVM  MEAN  MOMENT 

EIGHY  GQCOMP  ATCEGV  JACOBI 

LOCAL  SYMBOLS*  AMAX  INTERMEDIATE  VARIABLE 

ATC  ACTUAL  TARGET  CONDITION  2N0  MOMENT  MATRIX 

<•  ✓ 

B INTERMEDIATE  VARIABLE 

BB88  8LANK  LA  BEL  ARRAY 
C INTERMEDIATE  VARIABLE 

OELTM  TIME  DIFFERENCE 

EBOVB  MAGNITUDE  OF  ACTUAL  STATISTICAL  DELTA-V 

ED VN  MEAN  OF  ACTUAL  COMMANDED  VELOCITY 
CORRECTION 

EGM  MAGNITUDE  OF  EIGENVECTOR  CORRESPONDING  TO 
MAXIMUM  EIGENVALUE 

EGVCT  EIGENVECTOR  ARRAY 

EGVL  EIGENVALUE  VECTOR 

ELAB  LABEL 

EXIS  STORAGE  FOR  EXI 

EXSIS  STORAGE  FOR  EXSI 

EXTS  STORAGE  FOR  EXT 

EX V ACTUAL  STATISTICAL  DELTA-V 

GAP  ACTUAL  VELOCITY  CORRECTION  2ND  MOMENT 
MATRIX 

GPSAVE  STORAGE  FOR  GP 

GSAVE  STORAGE  FOR  ACTUAL  CONTROL  2N0  MOMENT 

C , (?> 
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MATRICES 

GSAVE2  STORAGE  FOR  ACTUAL  CONTROL  2N0  MOMENT 
MATRICES 

GTG  TIME  OF  ACTUAL  GUIDANCE  EVENT 

l 

IFLAG  =1  BEFORE  GUIOANCE  EVENT 

= 2 AFTER  GUIDANCE  EVENT 

III  INDEX  DEPENDING  ON  GUIDANCE  EVENT  TYPE 

MAP  INDEX  OF  MAXIMUM  EIGENVALUE 

PEIG  INTERMEDIATE  ARRAY 

Q ACTUAL  EXECUTION  ERROR  2ND  MOMENT  MATRIX 

ROW  INTERMEDIATE  VECTOR 

S INTERMEDIATE  ARRAY 

SUM  INTERMEDIATE  VARIABLE 

U ACTUAL  COMMANDED  VELOCITY  CORRECTION 

VEIG  INTERMEDIATE  VECTOR 


ZLAB  LABEL 


ZV  ACTUAL  EXECUTION  ERROR  MEANS 

ZZ  INTERMEDIATE  VARIABLE 


COMMON 

COMPUTEO/USEDt  DUMMY  Q 

EXI 

EXMEAN 

EXSI 

EXT 

GCXSUG 

GCXSVG 

GCXSHG 

GCXUG 

GCXVG 

GCXWG 

GCXXSG 

GP 

GPG 

GPSG 

XLAB 

COMMON 

USEDI  ADA 

DVUP 

EE 

EEE 

EU 

EV 

EH 

EXST 

FOP 

FOV 

GA 

GCXSU 

GCXSV 

GCXSW 

GCXU 

GCXV 

GCXW. 

GCXXS 

GPS 

GU 

GV 

GW 

IGP 

I GUI!) 

II 

NDIM1 

NOIM2 

NDIM3 

N0IM4 

PI 

OPR 

RPR 

TEVN 

TG 

TINJ 

XIG 

XSL 

XU 

XV 
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GENGID  Analysis 

Subroutine  GENGID  controls  the  execution  of  generalized  guidance 
events.  Generalized  guidance  has  been  extended  to  all  guidance 
options  defined  for  subroutine  GUIDM  except  for  biased  aimpoint 
guidance  and  impulse  series  thrusting. 

Unlike  GUIDM,  which  computes  target  dispersions  and  fuel  budgets 
based  on  filter-generated  statistics,  subroutine  GENGID  computes 
target  dispersions  and  fuel  budgets  based  on  actual  statistics. 
In  other  words,  the  generalized  covariance  technique  as  applied 
to  the  guidance  process  is  programmed  in  GENGID.  The  required 
equations  are  summarized  below. 


Before  the  guidance  event  at  time  can  be  executed,  it  is  neces- 
sary to  propagate  the  actual  control  mean  and  control  2nd-moment 
matrix  partitions  forward  to  t from  the  previous  guidance  event 

at  time  t ^ The  control  mean  propagates  according  to 


$ xt  . + 0 

J-l  XX 


t ♦+  0 u ' + e 

S XU  o xw  o 
o 


(1) 


where  $ , 0 


XX 


s 


XU 


and  0 are  state  transition  matrix  partitions 

™ i ) 


over  the  interval 


&-!•. ‘tl 


and  x 


u 


and  w denote  actual 


posit ion/ velocity  and  solve-for,  dynamic— consider,  and  ignore  param- 
eter deviation  means.  The  notation  ( )"  indicates  actual  values 
as  opposed  to  the  unprimed  assumed  values,  while  ( )~  and  ( )+ 
indicate  values  immediately  before  and  cJ; ter  the  execution  of  the 
guidance  event,  respectively.  The  actual-  control  position/velocity 
2nd-moment  matrix  is  defined  by 


(2) 


The  remaining  control  2nd-moment  matrix  partitions  are  defined 
similarly.  The  propagation  equations  appearing  in  subroutine 
GNAVM  are  used  to  propagate  the  control  2nd-moment  matrix  parti- 
tions over  the  interval  ft . n , 1 71 . 
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The  actual  target  state  deviation  6 r ' is  related  to  the  actual 


state  deviation  x'  at  time  t-j  according  to 


(3) 


where  is  the  variation  matrix  for  the  appropriate  midcourse 
guidance  policy.  The  mean  of  6-r'is  given  by 


E - nj  E [.£ 


(A) 


The  statistical  target  dispersions  are  represented  by  the  actual 

(5) 


target  condition  2nd-moment  matrix  WT,  which  is  defined  as 


w:  = E 
3 


6x'  6t . 

L J 3 J 


Substitution  of  equation  (3)  into  equation  (5)  yields 

W'  - ,,  n/  . 


(6) 


Equations  (4)  and  (6)  are  evaluated  immediately  before  and  after 
the  guidance  correction  to  determine  how  much  the  target  errors 
have  actually  been  reduced  by  the  velocity  correction  at  t,. 


The  actual  commanded  velocity  correction  2nd-moment  matrix  is  de- 
fined by 


/v  ^ rji 

s;  = e av:  av;^ 

3 13) 


(7) 


where  the  actual  commanded  velocity  correction  is  given  by 


x; 

3 


(8) 


The  guidance  matrix  I\  corresponds  to. the  appropriate  linear  mid- 


course guidance  policy, 
by 


The  equation  used  to  evaluate  S'  is  given 


ST  = r. 

3 3 


(9) 
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where  all  E ! 


of  equation  (9) . 


Xj  XjJ 


terms  have  been  neglected  in  the  derivation 


The  mean  of  the  actual  commanded  velocity  correction  is  obtained 
by  applying  the  expectation  operator  to  equation  (8) : 


av:  = r.  !e  x;  + e x;  (. 

L jJ  3}  Li]  L jJJ 


(10) 


Since  this  equation  gives  no  useful  information  for  fuel-sizing 
studies,  the  Hoffman-Young  formula  will  be  used  to  evaluate 


,E 


E 


'"■'I 


(ID 


where 


A = trace  SC 
1 3 


B = A£  X'  + Xi  XS  + X2  X3> 


and  A£,  A'>  and  A'  are  the  eigenvalues  of  the  2nd-moment  matrix 

s;. 

J 


The  actual  effective  or  statistical  AV  is  defined  as 


"E  [av:],-  = E jjAVjlJ  • a' 


(12) 


where  a'  denotes  a unit  vector  in  the  most  likely  direction  of 

the  velocity  correction.  The  most  likely  direction  is  assumed 
to  be  aligned  with  the  eigenvector  associated  with  the  maximum 
eigenvalue  of  S7. 


With  "E 


av; 
1 


" available,  the  actual  execution  error  statistics 
can  be  computed  (by  calling  subroutine  GQC0MP).  These  are  the 

' a 


actual  execution  error  mean  E ["6AVfl  and  2nd-moment  maxtrix 

3_ 


QC  defined  as 
3 


QC  = E^AV'  AAV^j. 


(13) 
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Xt  remains  to  summarize  the  equations  which  are  used  to  update 
all  actual  control  and  knowledge  means  and  2nd-moment  matrix  par- 
titions immediately  following  the  execution  of  a guidance  event. 
The  actual  estimation  error  means  and  2nd~moment  matrix  partitions 
are  updated  using  the  following  equations : 


i T 

where  A = [0  i I]  The  actual  deviation  means  are  updated  using 
the  following  equations : 


E 

E 


(18) 

(19) 


The  entire  set  of  actual  control  2nd-moment  matrix  partitions  is 
updated  by  equating  them  to  the  corresponding  actual  knowledge 

+ 

2nd-moment  matrix  partitions  at  t_. . 
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GENGID  Flow  Chart 
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SUBROUTINE  GHA 

PURPOSE!  TO  COMPUTE  THE  GREENWICH  HOUR  ANGLE  AND  THE  UNIVERSAL 
TIME  (IN  OATS)  WHICH  IS  USED  IN  THE  TRACKING  MODULE  TO 
ORIENT  THE  TRACKING  STATIONS  ON  A SPERICAL  ROTATING 
EARTH. 

CALLING  SEQUENCE!  CALL  GHA 
ARGUMENTS!  NONE 

SUBROUTINES  SUPPORTED!  DATA1S  DATA1 


LOCAL  SYMBOLS!  0 NUMBER  OF  DAYS  IN  TSTAR 

EQMEG  EARTH  ROTATION  RATE 

GH  GREENWICH  HOUR  ANGLE 


10  INTERMEDIATE  VARIABLE 

REF JO  JULIAN  OATE  OF  JAN.  0,  1950 

TFRAC  FRACTION  OF  DAY  IN  TSTAR 

TSTAR  JULIAN  OATE,  EPOCH  JAN.  0,  1950,  OF 
INITIAL  TRAJECTORY  TINE 


COMMON  COMPUTED!  UNIVT 

COMMON  USE08  DATEJ  EH13 

l 
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GHA  Analysis 

Subroutine  GHA  computes  the  Greenwich  hour  angle  in  degrees  and  days  at  - 
some  epoch  T*  referenced  to'.  1950  January  ld0h.  Epoch  T*  is  computed  from 

T*  - J.D.q  + 2415020.0  - J.D.^ 

where 

J.D.  - Julian  date  at  launch  time  t referenced  to  1900 
January  0 12  . 

J.P.BCT,  = Reference  Julian  date  2433282,5 

(3  h.  d h 

= 1950  January  1 0 referenced  to  January  0 12  of 

the  year  4713  B.C. 

J ' h J i 

and  2415020.0  = 1900  January  0 12  referenced  to  January  0 12 

of  the  year  4713  B.C. 

Then  T*  is  the  Julian  date  at  launch  time  t referenced  to  1950  January 

lV.  . 

The  Greenwich  hour  angle  corresponding  to  T*  is  given  by  ' 

GHA<T*)  100.0755426  + 0.985647346d  + 2.9015  x 10“13  d2  +wt 
where  0 £ GHA(T*)  < 360? 

and  d » integer  part  of  T*,  t = fractional  part  of  T*, 

and  0)  = Earth's  rotation  rate  Is  degrees /day. 

The  Greenwich  hour  angle  in  days  is  given  by 
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SUBROUTINE  GIOANS 


PURPOSE8  EXECUTIVE  ROUTINE  FOR  COMPUTATION  OF  REQUIRED  GUIOANCE 
EVENT 

CALLING  SEQUENCES  CALL  GIOANS 
SUBROUTINES  SUPPORTED*  MOMNAL  NONLIN 

ZERIT 


SUBROUTINES  REQUIRED « 
LOCAL  SYMBOLS*  OTIME 

IZER 


EXCUTE 

VMP 


TARGET  INSERS  TIME 


DELTA  TIME  CDAYS)  BETWEEN  ORBIT  INSERTION 
COMPUTATION  AND  EXECUTION 

VECTOR  OF  CODES  USED  FOR  RETARGETING 
IZER (KUR) =0  9 00  NOT  RECOMPUTE  ZERO  ITERATE 
t09  RECOMPUTE  ZERO  ITERATE 


I INOEX 

KTYPE  VALUE  OF  KTYP(KUR)  INDICATING  TYPE  OF 
EVENT 

=1,  ORIGINAL  TARGETING 
-2,  RETARGETING 
=3,  ORBIT  INSERTION 


MODEL 

DOES  NOT 
EXECUTE 

APPEAR 

IN  CURRENT  VERSION  SEE 

COMMON 

COMPUTEO/USEp* 

KMXQ 

KWXT 

TIMG 

COMMON 

COMPUTEOS 

DELV 

KTXM 

ZDAT 

COMMON 

USED* 

OELTAV 

KTYP 

KUR  MOL  RIN 
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GIDANS  Analysis 


GIDANS  is  an  executive  routine  responsible  for  processing  a guid- 
ance manuever  for  the  computation  of  the  velocity  increment  Av 
to  the  execution  of  the  correction. 

Before  entry  to  GIDANS,  TRJTRY  has  computed  the  index  of  the 
current  event  (KUR)  and  has  integrated  the  nominal  trajectory 
to  the  time  of  the  event.  GIDANS  now  evaluates  the  KUR  compo- 
nent of  two  integer  arrays  — KTYP  and  KMXQ.  The  values  of 
these  flags  determine  the  operation  of  GIDANS.  The  flag  KTYP 
specifies  the  type  of  guidance  event  to  be  performed,  while 
KMXQ  prescribes  the  compute/execute  mode  to  be  used  according  to 

KTYP  - -1  Termination  event 

1 Targeting  event 

2 Retargeting  event 

3 Orbit  insertion 

4 Main  probe  propagation 

5 Miniprobe  targeting 

KMXQ  = 1 Compute  Ay  only 

2 Execute  Av  only  ^ 

3 Compute  and  execute  Ay 

4 Compute  but  execute  Av “later" 

GIDANS  first  checks  for  a termination  event.  If  the  current 
index  prescribes  such  an  event,  the  flag  KWIT  is  set  to  1 and 
a return  is  made  to  the  main  program  N0MNAL. 

In  prepration  for  a normal  guidance  event,  GIDANS  calls  VMP 
with  the  current  spacecraft  heliocentric  state  an-d  a time  incre- 
ment of  zero  to  restore  the  F and  V arrays  providing  the  current 
geometry  of  spacecraft  and  planets.  If  the  current  event  is  an 
execute-only  mode,  the  transfer  is  made  to  the  execution  section 
of  GIDANS  for  the  addition  of  the  preset  velocity  increment. 

Otherwise  GIDANS  interrogates  KTYP  for  the  type  of  maneuver  to 
be  computed.  For  a targeting  event,  subroutine  TARGET  is  called 
directly  for  the  computation  of  the  Av  necessary  to  satisfy  input 
target  conditions.  After  calling  TARGET,  the  F and  V arrays  are 
restored  as  indicated  above. 
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A retargeting  event  Is  defined  as  a targeting  event  that  requires 
computation  of  a new  zero  iterate.  Thus  a retargeting  event  is 
an  event  in  which  the  current  nominal  state  when  integrated  for- 
ward would  miss  the  target  conditions  badly.  Such  an  event  would 
be  the  broken-plane  correction.  For  this  event  TRJTRY  stores  the 
current  position  (and  possibly  the  target  position)  in  the  ZDAT 
array.  It  then  calls  ZERIT  for  the  computation  of  the  massless- 
planet's  initial  velocity  consistent  with  the  target  conditions. 

It  then  operates  identically  to  the  targeting  event. 

The  third  guidance  maneuver  is  the  insertion  event.  GIDANS  calls 
INSERS  for  the  computation  of  the  velocity  increment  Av  and  the 
time  interval  At  before  it  is  to  be  executed. 

The  main-probe  propagation  event  involves  storing  the  current 
spacecraft  state,  propagating  the  main  probe  to  an  appropriate 
stopping  condition  while  p/inting  a time  history , and  restoring 
the  original  state  in  preparation  for  the  next  event.  It  is 
carried  out  in  a single  call  to  the  subroutine  MPPR0P.  Upon 
return  to  GIDANS,  the  F and  V arrays  are  restored  as  indicated 
above . 

The  miniprobe  targeting  event,  although  somewhat  complicated, 
is  completely  executed  by  the  single  subroutine  TPRTRG.  The 
current  bus  state  is  first  stored.  Next  the  miniprobe  release 
controls  are  calculated  to  apply  at  the  current  time  to  target 
three  miniprobes  respectively  to  three  target  sites  character- 
ized by  imput  values  of  declination  and  right  ascension.  Using 
the  minimum— miss  release  controls,  each  miniprobe  is  then  propa- 
gated from  release  to  a stopping  condition  while  a time  history 
is  concurrently  printed.  Finally,  the  original  bus  state  is  re- 
stored. On  returning  to  GIDANS,  the  F and  V arrays  are  restored 
as  usual. 

The  three  subroutines  TARGET,  INSERS,  and  TPRTRG  signal  trouble 
to  GIDANS  via  the  flag  KWIT.  If  problems  are  encountered  in 
their  execution,  e.g.,  failure  to  converge  in  TARGET  or  TPRTRG  or 
the  impossibility  of  insertion  in  INSERS,  KWIT  is  set  to  1. 
Otherwise  KWIT  =0.  On  return  to  N0MNAL,  if  KWIT  = 1 the  current 
case  is  terminated  while  if  KWIT  = 0 it  is  continued. 

If  the  current  event  is  a compute-only  mode,  TRJTRY  now  sets 
KWIT  = 0 (so  that  the  program  will  continue  regardless  of  whether 
the  correction  computations  were  successful)  and  returns  to  N0MNAL. 
However  if  the  current  event  failed  (KWIT  = 1)  and  was  to  be  exe- 
cuted (KMXQ  ^ 1)  GIDANS  consideres  this  a fatal  error  for  the  cur- 
rent case  and  returns  with  KWIT  =1. 
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If  the  compute/execute  mode  is  compute-execute  later  (KMXQ  - 4) 
as  Is  the  insertion  event ,_J3IDANS  now  sets  up  for  the  subsequent 
execute-only  event.  The  Av  computed  is  stored  in  the  DELV  array, 
the  time  of  the  execution  is  computed  4*  At  j and  stored 

in  the  TXMG  array,  and  the  KMXQ  flag  is  set  to  a 2 (execute-only). 
The  return  is  then  made  to  N0MINAL. 

For  an  event  to  be  executed  at  the  current  time  (KMXQ  = 2,3) , 
GIDANS  now  calls  EXCUTE  for  the  completion  of  that  task. 

It  should  be  noted  that  for  all  events  that  are  completed  at 
this  time,  the  KUR  components  of  the  KTIM  array  are  set  equal 
to  0 so  they  are  no  longer  considered  in  determining  the  next 
event  in  TRJTRY.  Only  in  the  case  of  KMXQ  *=  4 is  the  KTIM  flag 
nonzero  on  exit  from  GIDANS. 


GIDANS  - 4 


Set  up  geometric  arrays  F,V  for  current  state 


RETURN 


Call  TARGET 
Restore  F,V  array 


<^<TYP^=^ 

Set  up  2DAT  array 
Call  ZERIT 
Call  TARGET 
Restore  F,V  array 


Call  MPPR0P 
Restore  F,V  array 


Call  TPRTRG 
Restore  F»V  array 


KWIT 

KTIM 

= 0 
= 0 

c 

( RETURN  V 

Store 
KMXQ  = 
KTIM  = 

AV,t 

2 

1 

r 

C RETURrO  ' 

KWIT  = ? j: 

yy 

^KMXQ=^^ 


Call  EXCUTE 
KTIM  = 0 


RETURN 


Flag  Definitions 
KTYP  = -1  Terirn 


KMXQ  = 


Termination  event 
Targeting  event 
Retargeting  event 
Orbit  insertion 
Main  probe  propagation 
Mini  probe  targeting 

Compute  av  only 
Execute  av  only 
Compute  and  execute  Av 
Compute  but  execute  Av 
later 

Continue  case 
Problem,  terminate  case 


KTIM  f 0 Guidance  event  to  be 
processed 

= 0 Event  already  processed 
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SUBROUTINE  GNAVM 

PURPOSE*  TO  PROPAGATE  ASSUMED  COVARIANCE  MATRIX  PARTITIONS  P, 

CXXS»CXU,CXV,PS,CXSU,CXSV,OR  ACTUAL  SECOND  MOMENT  MATRIX 
PARTITIONS  GP,GCXXS,GCXU,GCXV,GCXW,GPS,GCXSU, GCXSV, 

GCXSW  FROM  THE  TIME  OF  THE  LAST  MEASUREMENT  OR  EVENT  TO 
THE  PRESENT  TIME  AND  TO  UPDATE  THESE  MATRIX  PARTITIONS 
IF  A MEASUREMENT  IS  TO  8E  PROCESSED 


CALLING  SEQUENCE* 

CALL 

GNAVM (NR,  IFLAG1,ICODE,UO,V9  , GCXW,  GCXSW, 
P,CXXS,CXU,CXV,PS,CXSU,CXSV,Q,R) 

ARGUMENTS*  NR 

I 

NUMBER  OF  ROWS  IN  THE  OBSERVATION  MATRIX 

I FLAG! 

I 

=1  FOR  ASSUMED  COVARIANCE  PROCESSING 
=2  FOR  ACTUAL  SECOND  MOMENT  PROCESSING 

ICOOE 

I 

= 0 FOR  UPOATE 
=1  FOR  PROPAGATION 

UO 

I 

ACTUAL  OR  ASSUMED  OYNAMIC  CONSIOER 
PARAMETER  2ND  MOMENT  MATRIX 

VO 

I 

ACTUAL  OR  ASSUMED  MEASUREMENT  CONSIDER 
PARAMETER  2ND  MOMENT  MATRIX 

GCXW 

I 

ACTUAL  POSITION-VELOCITY  STATE  / IGNORE 
PARAMETER  2ND  MOMENT  MATRIX 

GCXSW 

I 

ACTUAL  SOLVE-FOR  PARAMETER  / IGNORE 
PARAMETER  2ND  MOMENT  MATRIX 

P 

I 

ACTUAL  OR  ASSUMED  POSITION-VELOCITY  2ND 
MOMENT  MATRIX 
2ND  MOMENT  MATRIX 

CXXS 

I 

ASSUMED  OR  ACTUAL  POS IT  ION-VELOCITY  STATE 
/ SOLVE-FOR  PARAMETER  2ND  MOMENT  MATRIX 

CXU 

I 

ASSUMED  OR  ACTUAL  POSITION- VELOCITY  STATE 
/ OYNAMIC  CONSIDER  PARAMETER  2ND  MOMENT 
MATRIX 

CXV 

I 

ASSUMED  OR  ACTUAL  POSIT  ION-VELOCITY  STATE 
/ MEASUREMENT  CONSIDER  PARAMETER  2ND 
MOMENT  MATRIX 

PS 

I 

ASSUMED  OR  ACTUAL  SOLVE-FOR  PARAMETER 
COVARIANCE  OR  2ND  MOMENT  MATRIX 

CXSU 

I 

ASSUMED  OR  ACTUAL  SOLVE-FOR  PARAMETER 
/ DYNAMIC  CONSIOER  PARAMETER  2ND  MOMENT 
MATRIX 
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CXSV  I ASSUMED  OR  ACTUAL  SOLVE-FOR  PARAMETER 

/ MEASUREMENT  CONSIDER  PARAMETER  2ND 
MOMENT  MATRIX 

q I ASSUMED  OR  ACTUAL  DYNAMIC  NOISE  2ND  MOMENT 

MATRIX 

R I ASSUMEO  OR  ACTUAL  MEASUREMENT  NOISE 

2ND  MOMENT  MATRIX 

SUBROUTINES  SUPPORTED*  ERRANN  SETEVN  GUIDM  PREO  GENGID  PROBE 


SUBROUTINES  REQUIRED* 
LOCAL  SYMBOLS*  AKW 

OS 

ES 

FS 


GAIN1  GAINZ 
INTERMEDIATE  ARRAY 
INTERMEDIATE  ARRAY 
INTERMEDIATE  ARRAY 
INTERMEDIATE  ARRAY 


I END  NR-i 

N0IM4S  NDIM4  VALUE  STORAGE 

N 1 NDIMl-l 

SUM  INTERMEDIATE  VARIABLE 


SW  INTERMEDIATE  ARRAY 


COMMON 

COMPUTED/USED* 

AK 

CXSVP 

GCUV 

HPHR 

JPR 

AL 

CXUP 

GCUW 

IGAIN 

ZERO 

AM 

CXVP 

GCVW 

PP 

AN 

CXXSP 

GCXSWP 

H 

PSP  ' 

CXSUP 

G 

GCXWP 

HALF 

S 

COMMON 

USED* 

NDIMi 

TXU 

N0IM2 

TXH 

NDIM3 

TXXS 

NDIM4 

PHI 
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GNAVM  Analysis 

Subroutine  GNAVM  propagates  and  updates  (at  a measurement)  both 
assumed  (or  filter)  covariance  matrix  partitions  and  actual  2nd 
moment  matrix  partitions.  The  equations  programmed  in  GNAVM  are 
independent  of  the  filter  algorithm  employed  to  generate  gain 
matrices. 


The  covariance  and  2nd  moment  matrix  partitions  manipulated  by 
GNAVM  are  defined  as  follows: 


P » 


C 

xu 


C 

XV 


C 

xw 


E[X  xT] 


= E[x  uTj 
= E[x  vT] 
= E[x  wT) 


P » E 
s 


X u 
s 


X V 

s 


X w 
s 


E[xs  UT] 
E[xg  VT] 

E[xg  wT]  . 


(1) 


The  following  matrix  partitions  are  used  in  GNAVM,  but  are  not 
changed  in  GNAVM: 


C 

uv 


C 


uw 


vw 


U 

V 

W 


E[u  vT] 
E[u  wT] 

E [ v w^"] 
E[u  uT] 
E[v  vT] 
E[vf  wT]  . 


(2) 
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In  these  definitions  X,  x , u,  v,  and  w represent,  respectively, 

8 

the  estimation  errors  in  position/velocity  state,  eolve-for  param- 
eters, dynamic  consider  parameters,  measurement  consider  parameters, 
and  ignore  parameters.  Ignore  parameters,  of  course,  are  not  de- 
fined when  assumed  (or  filter)  covariance  matrix  partitions  are 
being  propagated  or  updated.  Furthermore,  the  assumed  C has  been 
set  to  zero. 

The  equations  used  to  propagate  covariances  or  2nd  moment  matrices 

from  time  t,  to  t,  . - are  summarized: 
k k+1 


k+1 


- (< 


+ e c"  + e c”  + e c™  ) i? 

XX  XX  XU  Xl^  xw  x»ky 

k 1 


+ <f  eT  + (f  0T  - +c  0T  + Q 

“s.  , XUk+l  XUl  k+1  k+1 

rvi  X 


xx 


k+1 


+ + +T  +T 

$c  + e p + e c + e c tt 

XX  XX  S,  XU  X u xw  x w 

s,  s k s , s . 


c“  = $c+  + e c+  + e u + e cT 

xu^.+^  xu^  xxg  xgu  XU  o xw  uwc 


c = $c+  +e  c+  +ec  +ecT 

XV,  , , XV,  XX  X V XU  uv  xw  vw 

k+1  k s s k ° ° 


: « *c  + e c +0C  +ew 

xwk+i  xwk  xxs  xswk  xu  uwo  xw  o 


p - p 
Sk+1  Sk 


C = C 

XU  XU 

s k+l  s k 


(3) 

(4) 

(3) 

(6) 

(7) 

(8) 

(9) 
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C - C 

xv  xv 

s k+1  3 k 


(10) 


Cxw  Cx  w 

8 k+1  8 k 


(11) 


In  these  equations  ( ) indicates  immediately  prior  to  processing 

a measurement;  ( )+,  Immediately  after.  The  state  transition  ma- 
trices over  the  interval  [t^,  t^+^]  are  indicated  by  9^  ,6  , 

XXg  AU 

and  0 . The  dynamic  noise  covariance  or  2nd  moment  matrix  is  de- 

xw  - 

noted  by  Qk+i* 


Before  covariance  (or  2nd  moment)  matrix  partitions  can  be  updated 
at  a measurement,  the  measurement  residual  covariance  (or  2nd  moment) 
matrix,  defined  by 


Jk+1  E[ek+1  ‘ic+l] 


(12) 


must  be  computed*  The  required  equations  are  summarized 


Jk+i 55  HAk+i + “W + G\+i + LEk+i + NFk+i + Vi 


(13) 


\+l  " \+l  H + C 


xx 


T 

M + C 


k+1 


tUk+l 


T 

G + C 


xv. 


T 

L + C 


k+1 


xw. 


N 


k+1 


(14) 


B = P“  MT  + C_T  HT  + (f  GT  + C~  I.T  + c”  NT  (15) 
k+1  s.  . xx  xu  x v x w 

k+1  8k+l  s k+1  8 k+J  8 k+1 


wT1  T1  rp  rti  tp  rp 

D,  . - =>  C H + C M + U G + C N + C L 

k+1  xu,  . xu  o uw  uv 

^+1  s k+l  o o 


(16) 


rP  T1  o'  — fp  *Ti  rp  rp 

E,  . , = CJ>  H +C  M +C  N +VL  +C  G 

k+1  xv,  x v vw  o uv 

k+1  s . , . o o 

k+1 


(17) 


--  u; 
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rp  rn  fp  _rn  rp  m 

F,,.  -wr  + C R + C M + C L + C G 

k+1  o xw,  . x w vw  uw 

k+1  s , , , o o 

k+1 


(18) 


In  these  equations  H,  M,  G,  L,  and  N represent  observation  matrix 
partitions,  and  represents  the  measurement  noise  covariance 

(or  2nd  moment)  matrix. 

Gain  matrices  and  are  also  required  before  covariance 

(or  2nd  moment)  matrix  partitions -can  be'  updated.  These  are  not 
computed  in  GNAVM  but  are  obtained  by  calling  either  subroutine 
GAIN1  or  GAIN2,  depending  on  which  recursive  estimation  algorithm 
is  desired. 

With  *\+i'  an<^  ®k+l  availa^ le > the  following  equations  are 

used  in  the  updating  process: 

Pk+1  = Pk+1  " \+l  A “ ^k+l  + \+l  Jk+1  \+l  (19) 


XX 


» C 


XX 


■^l1  - ^+1 + \+l  Jk+1  sk+l 


’k+1 


k+1 


(20) 


: = (f  - K,  D 

xuk+l  ^+1  w 


(21) 


C+  - c“  - K,  DT 
^k+l  ^k+l  ^+1 


(22) 


C = C - K.  , F 

^k+l  ^k+l  ^+1 


(23) 


+ — T T T 

p ® p - s,  . . b - bs; . . + S,  . , J.  . . S,  . . 
s,  , s,  , , k+1  k+1  k+1  k+1  k+1 


k+1  k+1 


+ T 

C = C - S.J,  jX>< 

xu  xu  k+1 

8 k+1  8 “k+1 


(24) 

(25) 
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+ - T 

C - C - S.  ..  E 

xv  xv  k+1 

8 k+1  8 k+1 


+ T 

C » C - S.  F1 

x w x w k+1 

8 k+1  8 k+1 


(26) 

(27) 


It  should  be  noted  that  propagation  equations  (3)  through  (11)  are 
also  used  to  propagate  both  assumed  control  covariance  and  actual 
2nd  moment  matrix  partitions  qver  the  time  interval  separating  two 
successive  guidance  events.  The  update  equations,  of  course,  are 
not  used  in  this  situation. 
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GNAVM  Flow  Chart 


gprint-a 


SUBROUTINE  GPRINT 

PURPOSE*  TO  PRINT  ACTUAL  ESTI MATIQN~ ERROR  STATISTICS 

CALLING  SEQUENCE*  CALL  GPRINT (IFLAG , TIMM) 

ARGUMENTS*  IFLAG  I =3  PRINT  ACTUAL  STATISTICS  AT  A 

GUIDANCE  EVENT 

=10  PRINT  ACTUAL  ESTIMATION  ERROR 
STATISTICS 

= 2 PRINT  ACTUAL  ESTIMATION  ERROR 
STATISTICS  AT  A PREDICTION  EVENT 

TIMM  I TIME  TO  BE  PRINTEO 

SUBROUTINES  SUPPORTED*  PREO  ERRANN  SETEVN 

SUBROUTINES  REQUIREO*  MOMENT 

LOCAL  SYMBOLS*  A HOLLERITH  WORD  -AFTER- 

8 HOLLERITH  WORD  -BEFORE - 

OUM  INTERMEDIATE  VECTOR 

EXSTSV  TEMPORARY  STORAGE  FOR  EXST 

EXTSV  TEMPORARY  STORAGE  FOR  EXT  

ROW  INTERMEDIATE  VECTOR 

ZZ  INTERMEDIATE  VARIABLE 

COMMON  USED*  CXSUP 

EMRES 
EXSI 
GCXSV 
GCXW 
GU 

NDIM2 
PSP 
XSL 


CXSVP 

CXUP 

CXVP 

CXXSP 

EU 

EV 

EW 

EX  I 

EXST 

EXSTP 

EXTP 

GCXSU 

GCXSW 

GCXSWP 

GCXU 

GC  XV 

GCXWP 

GCXXS 

GP 

GPS 

GV 

GW 

JPR 

NOIM1 

NDIM3 

N0IM4 

NR 

PP 

RPR 

TRTM2 

XIG 

XL  A9 

XU 

XV 
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SUBROUTINE  GQCOMP 

PURPOSE*  TO  COMPUTE  ACTUAL  EXECUTION  ERROR  STATISTICS 
CALLING  SEQUENCE*  CALL  GQCOMPt VV , EE, EEE , EV , Q> 

ARGUMENTS*  VV  I ACTUAL  COMMANDED  VELOCITY  CORRECTION 
EE  I MEANS  OF  ACTUAL  EXECUTION  ERRORS 
FEE  I 2ND  MOMENTS  OF  ACTUAL  EXECUTION  ERRORS 
EV  0 EXPECTED  VALUE  OF  ACTUAL  EXECUTION  ERROR 
Q 0 ACTUAL  EXECUTION  ERROR  2N0  MOMENT  MATRIX 
SUBROUTINES  SUPPORTED*  GENGIO 
LOCAL  SYMBOLS*  FACTR  INTERMEDIATE  VARIABLE 

SHOP  MAGNITUDE  OF  VV  VECTOR 

RH0P2  RHOP**2 

Vi  V(i)**2 

V2  V < 2 ) **2 

V 3 V(3>**2 

Ml.  Vi*V2*V3 

XI  INTERMEDIATE  VARIABLE 

XMUP  INTERMEDIATE  VARIABLE 

ZETA  INTERMEDIATE  VARIABLE 
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GQC0MP  Analysis 

Subroutine  GQC0MP  computes  the  actual  execution  error  mean  and 
2nd  moment  matrix  for  use  in  the  generalized  covariance  analysis 
of  a guidance  event.  The  actual  execution  error  6AV'  is  assumed 
to  have  the  form  ** 


6AV’  - k'  AV'  + s’ 

1 J |AV! 


A , 

AV' 

—3-  + 6AV*  , . . 

pointing 


(1) 


3 


where  k'  denotes  the  actual  proportionality  error;  s',  the  actual 
resolution  error;  , the  actual  pointing  error;  and 

AV^,  the  actual  commanded  velocity  correction. 

The  means  of  the  three  ecliptic  components  of  <5AV'.  are  given  as: 

3 


E[6AVy  = | 

' 

v 1 4. 

sL\ 

AV’  + 

X 

p’AV’  6a’  + AV’  AV’ 
y x z 

6B’ 

(2) 

rC  T 

V 

pV 

p’ 

E[6AV']  = ( 

v I j_ 

*') 

1 AV’  + 

y 

AV’  AV’  SB’  - p’AV’ 
y z * x 

5k* 

(3) 

r + 

y’ 

E[6AV’]  = I 
z 

L 

r + 

£•) 

- N 
<> 
<3 

y’  6B’ 

t 

(4) 

where  p'  = |AV'j  , y’  = [AV'2  + AV'2]^,  and  6a*  and  SB'  are  the 

x y _ 

actual  pointing  angle  errors,  and  both  E(  ) and  ( ) indicate  mean 
values . 

The  actual  execution  error  2nd  moment  matrix  is  defined  by 

Qj  “ E^Vj  6AVjTJ  • (5) 

the  elements  of  matrix  are  given  as: 

Q'  = E.'  AV’2  + -Vfp^AV*2  6a'  6a'  + AV*2  AV’2  66'  6B'  + - 

11  x y'  y y x z 

__  _ \ 2AV’  / v 

2p 1 AV*  AV’  AV'  6a’  6B’)  + — C1  (P&V’  6a’  + AV’  AV'  6B'l 

xyz  / u’  \y  x z / 


(5) 
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0»  = f AV'2  + -L-  (a\)’2  A$’2  63'*  53’  + p’2  AVT2  5a'  6a'  - 

y22  •*  y y 2 \ y z x 

\ 2AV'  / — — \ 

2p * AV^  A(T  AV’  6a’  63'j  + C*  (AV^  AV^  63f  - P*  AV^  6a 'j 


(6) 


Q^3  - £'  AV^,2  + li'2-  63’  A3'  ~ 2A^  y’  53' 


(7) 


512  - <iii  - 5'  A(>;  + ^ Zi5i  4<y  ^ 56 ' ' p’(rfi2  ' A',j2)S“' 

~4r  f-  p»2  AV'  AV’  6a'  6ar  + p’  AV’  (aV’2  - AV’2)  6a’  63’  + 
y'z  K xy  z\y  x/ 

2 1 

. .«l^  h n I P A t I 

(8) 


AV'  AV’  AV*  63’  63’ 
x’  y z 


Q^3  = = C’  AV;  AV;  + c* 


r av’  / __  \ _ 

— r (p’AV’  6a’  + AV’  AV’  63’)-  u’  AO’  63’ 

[ v*  V y>  , x z / x 


- p’AV*  6a'  63’  - AV'  AV1  63'  63' 
K y x z 


AV' 


(9) 


w / „ ‘ \ ^ 

» =Q*  « £'  AV’  AV’  + r’  I — T AV'  AV'  63’  - p’AV’  6a’  - y’  AV’  63' 

23  ^32  ^“yz^ly’Vyz  x / y 


+ p’AV’  6a'  63'  - AV’  AV'  63’  63’ 
x y z . 


(10) 


where 


and 


5’  = k’  k’  + 4 k'  s’  + ^44 
s p'  P z 


(ID 


?’  = k’  + ~ ' 


(12) 
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SUBROUTINE  GUIO 

PURPOSE  COMPUTE  GUIDANCE  MATRIX,  VARIATION  MATRIX,  AND  TARGET 
CONDITION  COVARIANCE  MATRIX  AT  A MIDCOURSE  GUIOANCE 
EVENT  IN  THE  ERROR  ANALYSIS  PROGRAM 

CALLING  SEQUENCES  CALL  GUID 

SUBROUTINES  SUPPORTEOS  GUIOM 

SUBROUTINES  REQUIRED 8 EPHEM  HYELS  JACOBI  MATIN  NTM 

ORB  PARTL  PSIM  STMPR  VARADA 

LOCAL  SYMBOLS  A TWO-VARIABLE  B-PLANE  GUIOANCE  SUB-MATRIX  A 

BB  TWO-VARIABLE  B-PLANE  GUIDANCE  SUB-MATRIX  B 

i 

BDRS  8 DOT  R 

8DR1  VALUE  OF  B DOT  R RETURNED  FROM  PARTL  <NOT 
USED) 

BDTS  B OOT  T 

BDT1  VALUE  OF  B DOT  T RETURNED  FROM  PARTL  «NOT 
USED) 

BS  MAGNITUDE  OF  B VECTOR 

Bi  VALUE  OF  B RETURNED  FROM  PARTL  (NOT  USED) 

D INTERMEDIATE  JULIAN  DATE 

DUMi  ARRAY  OF  EIGENVECTORS 

EGVCT  ARRAY  OF  EIGENVECTORS 

EGVL  ARRAY  OF  EIGENVALUES 

ICS  INTERMEDIATE  STORAGE  FOR  ICL2 

ICLS  INTERMEDIATE  STORAGE  FQR  I CL 

INCMTS  INTERMEDIATE  STORAGE  FOR  INCHT 

IPR  INTERMEDIATE  STORAGE  FOR  XPRINT 

ISP  INTERMEDIATE  STORAGE  FOR  ISP2 

PBR  PARTIAL  OF  B DOT  R WITH  RESPECT  TO  STATE 
VECTOR 

PBT  PARTIAL  OF  B DOT  T WITH  RESPECT  TO  STATE 
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VECTOR 

PHII  INTERMEDIATE  ARRAY 

PHI2  INTERMEDIATE  ARRAY 

PHI3  INTERMEDIATE  ARRAY 

RI  NOMINAL  SPACECRAFT  STATE  AT  GUIOANCE  EVENT 

ROM  TARGET  CONDITION  CORRELATION  MATRIX 

RTPS  INERTIAL  SPACECRAFT  STATE  AT  SPHERE  OF 
INFLUENCE 

SQP  TARGET  CONDITION  STANOARO  DEVIATIONS 

) 

TCA  TRAJECTORY  TIME  AT  CLOSEST  APPROACH 

TSI  TRAJECTORY  TIME  AT  SPHERE  OF  INFLUENCE 

XCA  INERTIAL  SPECECRAFT  STATE  AT  CLOSEST 

APPROACH 

XSIP  SPACECRAFT  POSITION  RELATIVE  TO  TARGET 
PLANET  AT  SPHERE  OF  INFLUENCE 

XSIV  SPACECRAFT  VELOCITY  RELATIVE  TO  TARGET 
PLANET  AT  SPHERE  OF  INFLUENCE 


COMMON 

COMPUTEO/USED8 

ICL2 

XP 

IPRINT 

ISPH 

ISP2 

NO 

COMMON 

COMPUTED « 

OELTM 

EM 

TRTMi 

TSOIi 

COMMON 

USED! 

ALNGTH 

BOR 

BOT 

B 

OATEJ 

OC 

DSI 

FNTM 

FOV 

F 

IB  ARY 

I CL 

IHYPi 

ISTMC 

N800 

NB 

NTMC 

NTP 

ONE 

PHI 

P 

ZERO 

RC 

RSI 

TM 

VSI 
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GUID  Analysis 


Subroutine  GUID  is  used  in  the  error  analysis  mode  to  compute  the  same 
quantities  which  subroutine  GUIS  computes  in  the  simulation  mode.  Sub- 
routine GUID  differs  from  GUIS  in  that  instead  of  calling  NTMS  and  VARSIM 
as  does  GUIS,  subroutine  GUID  calls  NIM  and  VARADA.  In  addition,  the 
state  transition  and  variation  matrices  computed  in  GUID  are  referenced  to 
the  targeted  nominal  since  the  most  recent  nominal  is  not  defined  for  the 
error  analysis  mode.  These  differences  entail  only  minor  logic  differences 
in  the  flow  chart  for  GUID,  and  for  this  reason  no  GUID  flow  chart  is  pre- 
sented. See  subroutine  GUIS  analysis  and  flow  chart  for  further  details. 
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SUBROUTINE  GUXDM 

PURPOSE  CONTROL  EXECUTION  OF  A GUIDANCE  EVENT  IN  THE  ERROR 
ANALYSIS  PROGRAM 

CALLING  SEQUENCES  CALL  GUXDH 

SUBROUTINES  SUPPORTED 8 ERR ANN 

SUBROUTINES  REQUIRED®  CORREL  DYNO  GUIO  HYELS  JACOBI 

NAVM  PSIM  STMPR 

LOCAL  SYMBOLS  8 ADA  VARIATION  MATRIX 

AMAX  INTERMEDIATE  VARIABLE  USED  TO  FI NO  MAXIMUM 
EIGENVALUE  OF  VELOCITY  CORRECTION 
COVARIANCE  MATRIX  (S  MATRIX) 

CXSUi  STORAGE  FOR  CXSU  KNOWLEDGE  COVARIANCE 

CXSVi  STORAGE  FOR  CXSV  KNOWLEDGE  COVARIANCE 

CXUi  STORAGE  FOR  CXU  KNOHLEOGE  COVARIANCE 

CXVi  STORAGE  FOR  CXV  KNOWLEDGE  COVARIANCE 

CXXS1  STORAGE  FOR  CXXS  KNOWLEDGE  COVARIANCE 

DUMi  INTERMEDIATE  VARIABLE 

OUM  VECTOR  SUM  OF  UPDATE  AND  STATISTICAL 
VELOCITY  CORRECTIONS 

•*  '!  S 1 

EGM  MAXIMUM  EIGENVALUE  OF  S MATRIX 

£G?VCT  ARRAY1  OF  EIGENVECTORS 

EGVL  ARRAY  OF  EIGENVALUES 

EXEC  1 EXECUTION  ERROR  COVARIANCE  MATRIX 

EXV  EXPECTED  VALUE  OF  VELOCITY  CORRECTION 

GA  GUIDANCE  MATRIX 

GAP  INTERMEDIATE  ARRAY  EQUAL  TO  GA  TIMES  P 

ICODE  INTERNAL  CONTROL  FLAG 

ICOQE2  INTERNAL  CONTROL  FLAG 

IGP  HIDCOURSE  GUIDANCE  POLICY  CODE 
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top  EXECUTION  ERROR  COOE 

ISPHC  TEMPORARY  STORAGE  FOR  ISPH 

MAP  INDEX  OF  MAXIMUM  EIGENVALUE  OF  S 

OUT  SPACECRAFT  VELOCITY  RELATIVE  TO  TARGET 

PLANET  IN  PLANETO-CENTRIC  EQUATORIAL 
COORDINATES 

,PS1  STORAGE  FOR  PS  KNOWLEDGE  COVARIANCE 

PI  STORAGE  FOR  P KNOWLEDGE  COVARIANCE 

RF  NOMINAL  TRAJECTORY  STATE  AT  GUIDANCE  EVENT 

t 

RHO  MAGNITUDE  OF  STATISTICAL  DELTA-V 

ROW  INTERMEDIATE  VECTOR 

» SDV  STANDARD  DEVIATION  OF  MAGNITUDE  OF 

STATISTICAL  DELTA- V 

SQP  INTERMEDIATE  VECTOR 

v 

TRS  TRACE  OF  S MATRIX 

U INTERMEDIATE  VARIABLE 


VEI6 

MATRIX 

TO  BE 

DIAGONALIZED 

Z 

INTERMEDIATE 

ARRAY 

COMMON 

COMPUTED/USED 8 

CXSUG 

CXSU 

CXSVG 

CXSV 

CXUG 

cxu 

CXVG 

cxv 

CXXSG 

CXXS 

ISPH 

NGE 

PG 

PSG 

PS 

P 

TG 

XG 

COMMON 

COMPUTED® 

DELTM 

TRTNi 

XI 

COMMON 

\ 

USED® 

FOP 

FOV 

ICDQ3 

ICDT3 

IEIG 

\ 

IHYPi 

ISTMC 

NDIM1 

NOIM2 

NOIM3 

ONE 

Q 

SIGALP 

SIGPET 

SI6PR0 

SIGRES 

TWO 

UO 

VO 

XF 

ZERO 
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GUIDM  Analysis 


Subroutine  GUIDM  is  the  executive  guidance  subroutine  in  the  error  analysis 
program.  In  addition  to  controlling  the  computational  flow  for  all  types 
of  guidance  events,  GUIDM  also  performs  many  of  the  required  guidance 
computations  itself. 


Before  considering  each  type  of  guidance  event,  the  treatment  of  a general 
guidance  event  will  be  discussed.  Let  t^  be  the  time  at  which  the  guidance 

event  occurs,  _Before  any  guidance  event ^can  be  executed  the  targeted 
nominal  state  X“1  knowledge  covariance  P*T  , and  control  covariance  P“* 

J _ Y . cj 

must  all  be  available,  where  ( ) Indicates  values  immediately  before 

the  event.  The  first  two  quantities  are  available  prior  to  entering 
GUIDM.  However,  GUIDM  controls  the  propagation  of  the  control  covariance 
over  the  interval  [ t ^ t ] , where  t^_^  denotes  the  time  of  the  previous 

guidance  event. 


The  next  step  in  the  treatment  of  a general  guidance  event  is  concerned 
with  the  computation  of  the  commanded  velocity  correction  and  the  execution 
error  covariance.  In  the  error  analysis  program  a non-statistical  velocity 
correction  is  computed  whenever  the  nominal  target  conditions  are  changed; 
otherwise,  only  a1  statistical  velocity  correction  can  be  computed.  The 


commanded  velocity  correction  AV,  is  then  used  to  compute  the  execution 

/"w  J 

error  covariance  matrix  Q,.'  A summary  of  the  execution  error  model  and 

J 

the  equations  used  to  compute  Q can  be  found  in  the  subroutine.  QC0MP'1' 

analysis  section. 


The  last  step  is  concerned  with  the  updating  of  required  quantities  prior 
to  returning  to  the  basic  cycle.  An  assumption  underlying  the  modeled 
guidance  process  is  that  the  targeted  nominal  is  always  updated  by  the 
commanded  velocity  correction.  In  the  error  analysis  program  only  the 
non-statistical  component  is  used  to  perform  the  state  update  and  is 

✓V 

_ind4e&feed  by  the  variable  AV^  . Thus,  the  targeted  nominal  state 

jl 

immediately  following  the  guidance  event  is  given  by 
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The' knowledge 


covariance  is  updated  using 


the  equation 


if  an  Impulsive  thrust  model  is  assumed.  If  the  thrust  is  modeled  as  a 
series  of  impulses,  then  an  effective  execution  error  covariance  is 

computed  and  the  knowledge  covariance  is  updated  using  the  equation 


+ Q 


eff  * 


In  either  case  the  control  covariance  is  updated  simply  by  setting 


This  equation  is  a direct  consequence  of  the  assumption  that  the  targeted 
nominal  state  is  always  updated  at  a guidance  event. 

A "compute  only"  option  is  available  in  GUIDM  in  which  all  of  the  ( )"*" 

quantities  will  still  be  computed  and  printed.  _However,  the  state  and  all 
covariances  axe  then  reset  to  their  former  ( ) values  prior  to  returning 

to  the  basic  cycle. 

Each  specific  type  of  guidance  event  involves  the  computation  of  other 
quantities  not  discussed  above.  These  will  be  covered  in  the  following 
discussion  of  specific  guidance  events. 

1.  Mid course  and  Biased  Aimpoint  Guidance 

Linear  midcourse  guidance  policies  have  form 

•-  ri 

J 


where  the  subscript  N indicates  that  this  is  the  velocity  correction 
required  to  null  out  deviations  from  the  nominal  target  state.  This 
notation  is  required  to  differentiate  between  this  type  of  velocity 
correction  and  velocity  corrections  required  to  achieve  an  altered  target 
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state.  Linear  midcourse  guidance  policies  are  discussed  in  more  detail 
in  the  subroutine  GUIS  analysis  section. 


Subroutine  GUIDM  calls  GUID  to  compute  the  guidance  matrix,  r\ > and  the 

target  condition  covariance  immediately  prior  to  the  guidance  event, 

, and  then  uses  to  compute  the  velocity  correction  covariance  S^, 

which  is  defined  as 


[‘ 


- E |AV  AV  * 

j J 


]• 


and  is  given  by  the  equation 


s.  ' r,  - pif  > r,T  • 

3 3 cj  Kj  3 


This  equation  assumes  that  an  optimal  estimation  algorithm  is  employed  in 
the  navigation  process,  since  the  derivation  of  this  equation  requires  the 
orthogonality  of  the  estimate  and  the  estimation  error. 


In  the,  error  analysis  program  AV^  is  never  available  since  no  estimates 
/V  j 

SX  are  ever  generated.  Only  the  ensemble  statistics  of  5X  are  available^' 

J J r ~ -f 

which  meanp  only  a statistical  or  effective  velocity  correction  "E  LAV  J " 

j 

can  he  computed.  In  the  STEAP  error  analysis  program  this  effective  velocity 
correction  is  assumed  to  have  form 


"E[AV..  ]" 


3 l“jl  ' 

The  magnitude  is  given  bv  the  Hoffman- Young  approximation 


B.tT.-#.  \ 
/ 
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where 


A ® trace 2 * *  Sj  “ \ + X2  + X3» 
B **  ^1^2  + ^1^3  + ^2^3* 


and  X-  , X 


X0  are  the  eigenvalues  of  S..  The  direction  of  the  effective 
z l J 


•velocity  correction  is  assumed  to  coincide  with  the  eigenvector  correspond- 
ing to  the  maximum  eigenvalue  of  S^.  This  eigenvector  is  denoted  by  ay  An 

alternate  model  assumes  the  direction  coincides  with  the  vector  (X^,  X2,  X^). 


If  planetary  quarantive  constraints  must  be  satisfied  at  a midcourse  correction, 
GUIDM  calls  BIAIM  to  compute  the  new  aimpolnt  and  the  (non-statistical) 

bias  velocity  correction  . All  computations  in  BIAIM  are  based  on  linear 

j 

guidance  theory.  However,  an  option  is  available  in  GUIDM  to  recompute 
AV'g  , but  not  n , using  nonlinear  techniques.  This  option  is  recommended 

if  a biased  aimpolnt  guidance  event  occurs  at  t^  **  injection  time.  It 

should  also  be  noted  that  is  set  to  zero  if  t^  - injection  time  since 

it  is  assumed  that  the  injection  covariance  does  not  change  for  small 
changes  in  injection  velocity. 


After  the  updated  control  covariance  P has 

+ Cj 

condition  covariance  matrix  Wj  following  the 
puted  using  the  equation 


been  computed,  the  target 
guidance  correction  is  com- 


T>+  T 

”3  o/l 


where  variation  matrix 


’J 


has  been  previously  computed  in  subroutine  G0ID. 


2.  Re-targeting 

In  the  error  analysis  (and  simulation)  program  a re-targeting  event 
is  defined  to  be  the  computation  of  a velocity  correction  AV^  required  to 

achieve  a new  set  of  target  conditions  using  nonlinear  techniques.  Since 

the  original  targeted  nominal  will  be  used  as  the  zero-th  iterate  in  the 
re-targeting  process,  the  new  target  conditions  must  be  close  enough  to  the 
original  nominal  target  condition  to  ensure  a covergent  process. 
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It  should  be  noted  that  after  a re-targeting  event  the  new  target  condi- 
tions are  henceforth  treated  as  the  nominal  target  conditions. 

3.  Orbital  insertion 


An  orbital  insertion  event  is  divided  into  a decision  event  and  an 
execution  ev^nt.  At  a decision  event  the  orbital  insertion  velocity 
correction  AVpj.  and  the  time  interval  separating  decision  and  execution 

are  computed  based  on  the  targeted  nominal  state  at  tj.  The  relevant 

equations  can  be  found  in  the  subroutine  CpPINS  analysis  section  for  co- 
planar  orbital  insertion;  in  NjDPINS , for  non-planar  orbital  insertion. 
Before  returning  to  the  basic  cycle,  GUIDM  schedules  the  orbital  insertion 
execution  event  to  occur  at  t ^ + At  and  re-orders  the  necessary  event 

arrays  accordingly. 


At  an  orbital  insertion  execution  evejit  the  targeted  nominal  state  is  up- 
dated using  the  previously  computed  AV~T.  In  addition,  the  planeto-centric 

equatorial  components  of  AV^-j.  and  the  nominal  spacecraft  cartesian  and 

orbital  element  state  following  the  insertion  maneuver  are  computed. 

4.  Externally-supplied  velocity  correction 


At  this  type  of  guidance  event  the  targeted  nominal  state  is  simply 
updated  using  the  externally-supplied  velocity  correction  AtLy. 


Because  of  the  complexity  of  the  GUIDM  flow  chart,  a simplified  flow  chart 
depicting  the  main  elements  of  the  GUIDM  structure  precedes  the  complete 
GUIDM  flow  chart. 
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GUIDM- 9 
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Write  out  complete  description 
of  guidance  event. 


/ — s 

v IGUID(5,II)  » ? y 

2,3,4 

f 

' IGUID(1 

,'II)  - ? ' 

ISPH  = 0? 
NO 


v IGF  7 2?  / 

NO 

± 

Compute  and  write  out 
hyperellipsoid  of  S^. 
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Call  N0NLIN  to  compute 
nonlinear  bias  velocity- 
correction.  Return  XDELV. 


J L 


KWIT 

= 0?  7 

YES 

\ 

/ 

Set  AVup  to  XDELV. 

Compute  magnitude.  Write  out 
AI/tjp  and  its  magnitude. 

j 

\ 

L 

Write:  Nonlinear  guidance 
failed*  Linear  guidance 
will  be  employed* 


t,  = injection  time?  \ 

/ 

\ 

jyo 

/ 

<o 

Compute  Q , 

a V,  + 3 

Set  IRET  = 

using 

"e  [av„.  ] ». 
■ 2. 

Write  out  correlation  matrix 
and  standard  deviations 

AJ 

associated  with 


< 


IRET 


Jt 


Set  AVin,  to  zero. 

UPj 


_1,2,3 

1 


GUIDM-14 

@ 

* V 

IGUID(5,IX)=?  \ 

4 s 

(Is  velocity  correction 

) IGUID (1,II)»4  or  5? 

to  be  treated  at  t,,?))  j 

' CNO'l  f 

IGUID (4,11)  **  ? ^ 
(What  kind  of  thrust  model, 
is  to  be  employed?)  / 

(finite  burn)  1 ( 


(impulse 

series) 

(single  impulse) 


Writes  Finite  burn 
not'1  available. 


Store  PI  array  in  PSAVE  array. 
Update  knowledge  covariance  by 
adding  Qj  to  the  velocity  par- 
tition of  the  PI  array. 


Call  C0RREL  to  write  out  control 
and  knowledge  correlation  matrix 
partitions  and  standard  deviations 
just  after  the  guidance  correction. 


IC0DE2  - 3 
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IGUID(1,II)  > 4? 


NN  = 3 


XGUXD(1,IX)  - 2? 


IGUID (5,11)  « ? 

(Is  velocity  correction  to  be  executed?) 
1,3  (YES) 
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IGUID (1,11)  <3  or 
IGUID (1,11)  - 7 ? 


A 

Set  to  P^e-specified 

DELV  array.  Write  out  AVyp^ 
and  its  magnitude. 


Write:  Error  in 
IGUID  array. 


EXIT 


IGUID (1,11)  = 4 or  5 ? 
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(854) 


\ 

/ 

Write:  < 
inserti< 

1 

3rbital 
an  failed. 

l 

at 


IGUID  (5 ,11)  f 2 ?\ 

T ' » 


NO 
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Set  IX  ° 1 and  JX  - II. 
Set  XIN  to  state  at  t^. 


Call  N0NLIN  to  perform 
re- targeting  event  (target 
variables  are  defined  in 
namelist).  Return  XDELV. 


Set  AVjjpj 

to  XDELV. 

N 

f 

KWIT 

= o ? y — 

YES 

\ 

! 

IGUID (5 , II)  » 2 ? 


Write:  Re- targeting 
failed. 


Update  nominal  target  conditions 
in  TN0MB  and  TN0MC  arrays. 

Write  out. 


IGUID (5. II) 


Compute  Q . using  AVup  . Write 

J ur  j 

out  AV,Jp  and  its  magnitude. 

j 

Set  IRET  = 2 . 
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Set  XXIN  to  state  at  t 


JCt  AAXM  L-W  O l-u  w-  ^ • 

Set  DELPX  to  AVup  + ''E  |avn>  J 

J J 


Define  Julian  date  at  t ♦ 

J 


Set  INPX  ® 2 and  store  impulse 
series  execution  error  variances  in 
the  DUMMYQ  array. 


Call  EXCUT  to  compute  the  effective 
execution  error  covariance  matrix 
corresponding  to  the  impulse  series, 
Return  QK. 


Restore  single  impulse  execution 
error  variances  into  the  DUMMYQ  array. 


Store  PI  array  in  the  PSAVE  array. 
Update  knowledge  covariance  by  adding 
effective  Qj  to  the  PI  array. 
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PROGRAM  GUIS 

PURPOSE  'COMPUTE  GUIDANCE  MATRIX,  VARIATION  MATRIX,  AND  TARGET 
CONDITION  COVARIANCE  MATRIX  AT  A MIDCOURSE  GUIDANCE 
EVENT  IN  THE  SIMULATION  PROGRAM 

SUBROUTINES  SUPP0RTE03  6UISIM 

SUBROUTINES  REQUIRED 8 EPHEM  HYELS  JACOBI  MATIN  NTMS 

ORB  PARTL  PSIM  STHPR  VARSIM 

LOCAL  SYMBOLS  A TWO-VARIABLE  B-PLANE  GUIDANCE  SUB-MATRIX  A 

BB  TWO-VARIABLE  B-PLANE  GUIOANCE  SUB-MATRIX  B 

BDRI  VALUE  OF  B DOT  R RETURNED  FROM  PARTL  {NOT 
USED) 

BDTi  VALUE  OF  8 DOT  T RETURNED  FROM  PARTL  (NOT 
USED) 

B1  MAGNITUDE  OF  B VECTOR  RETURNED  FROM  PARTL 

(NOT  USED) 

DUMi  ARRAY  OF  EIGENVECTORS 

DUM  INTERMEDIATE  ARRAY 

EGVCT  ARRAY  OF  EIGENVECTORS 

EGVL  ARRAY  OF  EIGENVALUES 

ICLS  INTERMEDIATE  STORAGE  FOR  ICL 

ICS  INTERMEDIATE  STORAGE  FOR  ICL2 

IPR  INTERMEDIATE  STORAGE  FOR  IPRINT 

ISPS  INTERMEDIATE  STORAGE  FOR  ISP2 

PBR'  PARTIAL  OF  B DOT  R WITH  RESPECT  TO  STATE 
VECTOR 

PBT  PARTIAL  OF  8 DOT  1 WITH  RESPECT  TO  STATE 

VECTOR 

PHIL  INTERMEDIATE  ARRAY 

PHI2  INTERMEDIATE  ARRAY 

PHIS  INTERMEDIATE  ARRAY 
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RX1  MOST  RECENT  NOMINAL  SPACECRAFT  STATE  AT 

GUIDANCE  EVENT 

RI  TARGETED  NOMINAL  SPACECRAFT  STATE  AT 

GUIDANCE  EVENT 

RMCA  SPACECRAFT  DISTANCE  FROM  TARGET  PLANET  AT 
CLOSEST  APPROACH  , 

RMS I SPACECRAFT  DISTANCE  FROM  TARGET  PLANET  AT 

SPHERE  OF  INFLUENCE 

ROW  TARGET  CONDITION  CORRELATION  MATRIX 

RTPS  INERTIAL  SPACECRAFT  STATE  AT  SPHERE  OF 

INFLUENCE 

SOP  TARGET  CONDITION  STANDARD  DEVIATIONS 

TCA  TRAJECTORY  TIME  AT  CLOSEST  APPROACH 

TSI  TRAJECTORY  TIME  AT  SPHERE  OF  INFLUENCE 

VMCA  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  RELATIVE 
TO  TARGET  PLANET  AT  CLOSEST  APPROACH 

VMS I MAGNITUDE  OF  VELOCITY  OF  VEHICLE  RELATIVE 
TO  TARGET  PLANET  AT  SPHERE  OF  INFLUENCE 

XCA  SPACECRAFT  VELOCITY  RELATIVE  TO  TARGET 

PLANET  AT  SPHERE  OF  INFLUENCE 


COMMON 

COMPUTED/USED 8 x 

EM 

ICL2 

IPRINT 

ISPH 

ISP2 

NO 

XP 

COMMON 

COMPUTED t 

OELTM 

TRTMi 

COMMON 

t 

US  EDI 

ALNGTH 

BDR 

BDT 

8 

DATEJ 

OC 

DSI  - 

FNTM 

FOV 

F 

IBARY 

IHYP1 

ISOIi 

ISTMC 

NBOD 

NB 

NGE 

NQE 

NTMC 

NTP 

ONE 

PHI 

P 

RC 

RSI 

TM 

VSI 

ZERO 
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GUIS  Analysis 


Subroutine  GUIS  is  called  at  a midcourse  guidance  event  at  t in  the 

simulation  mode  to  compute  three  primary  quantities  for  the  selected  mid- 
course guidance  policy.  These  three  quantities  are  the  variation  matrix 
T}.,  the  target  condition  covariance  matrix  prior  to  the  velocity  correction 


V 

i V". , and  the  guidance  matrix  P 
J ~ j 


Three  midcourse  guidance  policies  are 


available:  fixed- time-of-arrival  (FTA),  two-variable  B-plane  (2VBP) , and 
three-variable  B-plane  (3VBP).  All  are  linear  impulsive  guidance  policies 
having  form 


Av  = r«jx 

j j j 


y\  »,A 

where  is  the  commanded  velocity  correction,  and  dX  is  the  estimate 

j j 

of  the  spacecraft  position/velocity  deviation  from  the  targeted  nominal. 

The  relevant  equations  for  each  guidance  policy  will  -be  summarized  below* 


The  variation  matrix  7} ^ for  FTA  guidance  relates  deviations  in  spacecraft 
state  at  t.  to  position  deviations  at  time  of  closest  approach  t_A , and 

J OA 

is  given  by 


^ - K i y 

where  £{9^  l 1S  the  upper  half  of  the  state  transition  matrix 

The  guidance  matrix  for  FTA  guidance  is  given  by 


*(tCA’V 


r - 

3 


[ V 1 : -] 


The  variation  matrix  for  3VBP  guidance  relates  deviations  in  spacecraft 

state  at  t.  to  deviations  in  B*T,  B-R,  and  tOT,  where  tOT  is  the  time 

J kX  dX 

at  which  the  sphere  of  influence  is  pierced.  Unlike  the  variation  matrix 
for  FTA  guidance,  which  cap  be  computed  analytically  or  by  numerical  differ- 
encing, the  3VBP  variation  .matrix  must  always  be  computed  using  numerical 
differencing  since  no  good  analytical  formulas  are  available  which  relate 

deviations  in  spacecraft  state  at  t to  deviations  in  t . If  the 

j S X 

variation  matrix  is  written  as 


j 


then  the  guidance  matrix  for  3VBP  guidance  is  given  by 


r 

j 


-i 


v 


2 


V 


I 

I 


\ 
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The  variation  matrix  for  2VBP  guidance  relates  deviations  in  spacecraft 


state  at  t to  deviations  in 

j 

B*T 

and 

B*  R 

IJ 

M 0 

(tSI’ 

V 

where  M is  an  analytically  computed  matrix  relating  B'T  and 

deviations  to  spacecraft  state  deviations  at  tCT  , and  0(tCT,t. 

c T bl  J 

state  transition  matrix  over 


[V'si]  ■ 

\ - [*  M 


If  Tj  is  written  as 

j 


B*R 

) is  the 


then  the  guidance  matrix  for  2VBP  guidance  is  given  by 

_ fTT-li  t T ~1  1 
P = -B  (BB  ) A j -B  (BB  ) B I 
J L 1 

All  state  transition  matrices  and,  hence,  all  variation  matrices  used  by 
the  above  three  guidance  policies  are  referenced  to  the  most  recent  nominal 
trajectory  for  improved  numerical  accuracy. 

Once  the  variation  matrix  *7.  is  available  for  any  of  the  above  guidance 

2 

policies,  the  target  condition  covariance  matrix  can  be  computed  using 

T 

W = V P V 

2 2 cj  2 

where  P£  is  the  control  covariance  matrix  immediately  prior  to  the 
guidance  event. 
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' GUIS  Flow  Chart 
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GUIS- 8 
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PROGRAM  GUISIM 

PURPOSE  CONTROL  EXECUTION  OF  GUIDANCE  EVENT  IN  THE  SIMULATION 
PROGRAM 

SUBROUTINES  SUPPORTED*  SIMULL 

SUBROUTINES  REQUIRED*  CORREL  DYNOS  GUIS  HYELS  JACOBI 

NAVM  PSIM  STMPR 

LOCAL  SYMBOLS 8 ADA  VARIATION  MATRIX 

AKi  ACTUAL  RESOLUTION  ERROR 

AL1  ACTUAL  ERROR  IN  POINTING  ANGLE  ALPHA 

BTi  ACTUAL  ERROR  IN  POINTING  ANGLE  BETA 

CXSU1  STORAGE  FOR  CXSU  KNOWLEDGE  COVARIANCE 

CXSV1  STORAGE  FOR  CXSV  KNOWLEDGE  COVARIANCE 

CXU1  STORAGE  FOR  CXU  KNOWLEDGE  COVARIANCE 

CXVi  STORAGE  FOR  CXV  KNOWLEDGE  COVARIANCE 

CXXS1  STORAGE  FOR  CXXS  KNOWLEDGE  COVARIANCE 

DELX  ESTIMATED  STATE  DEVIATION  FROM  TARGETED 

NOMINAL  TRAJECTORY 

DUM1  INTERMEDIATE  VARIABLE 

DUM2  ARRAY  OF  EIGENVECTORS 

DyCM  MAGNITUDE  OF  COMMANDED  HIOCOURSE  VELOCITY 
CORRECTION 

OVC  CONHANOEO  MIOCOURSE  VELOCITY  CORRECTION 

DVE  ERROR  IN  MIDCOURSE  VELOCITY  CORRECTION 

DUE  TO  NAVIGATION  UNCERTAINTY 

DV  PERFECT  MIDCOURSE  VELOCITY  CORRECTION 

DX  ACTUAL  STATE  DEVIATION  FROM  TARGETED 

NOMINAL  TRAJECTORY 

EGVCT  ARRAY  OF  EIGENVECTORS 

l 

EGVL  ARRAY  OF  EIGENVALUES 

EXEC  EXECUTION  ERROR  COVARIANCE  MATRIX 
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EXM  MAGNITUOE  OF  UPDATE  VELOCITY  CORRECTION 

GAP  INTERMEDIATE  ARRAY  EQUAL  TO  GA  TIMES  P 

GA  GUIDANCE  MATRIX 

IC0DE2  INTERNAL  CONTROL  FLAG 

IGP  MIDCOURSE  GUIDANCE  POLICY  CODE 

OUT  SPACECRAFT  VELOCITY  RELATIVE  TO  TARGET 

PLANET  IN  PLANETO-CENTRIC  EQUATORIAL 
COORDINATES 

PS1  STORAGE  FOR  PS  KNOWLEDGE  COVARIANCE 

Pi  STORAGE  FOR  P KNOWLEDGE  COVARIANCE 

RFi  MOST  RECENT  NOMINAL  SPACECRAFT  STATE  AT 
GUIDANCE  EVENT 

RF  TARGETEO  NOMINAL  SPACECRAFT  STATE  AT 

GUIDANCE  EVENT 

ROW  INTERMEDIATE  VECTOR 

SQP  INTERMEDIATE  VECTOR 

Si  ACTUAL  PROPORTIONALITY  ERROR 

VEIG  MATRIX  TO  BE  DIAGONALIZED 

l 

Z INTERMEDIATE  ARRAY 


COMMON  COMPUTED/USED 8 

ADEVX 

CXSUG 

CXSU 

CXSVG 

CXSV 

CXUG 

CXU 

CXVG 

cxv 

CXXSG 

CXXS 

EDEVX 

ICODE 

NGE 

PG 

PSG 

PS 

P 

RI1 

TG 

XFi 

XG 

COMMON  COMPUTED 8 

DELTM 

TRTHi 

Xli 

XI 

COMMON  USED 8 

AALP 

ABET 

ADEVXS 

APRO 

ARES 

EDEVXS 

FOP 

FOV 

ICDT3 

IEIG 

IHYPi 

ISPH 

ISTMC 

NDXM1 

NDIM2 

N0XM3 

Q 

SIGALP 

SIGBET 

SIGPRO 

SI GRES 

TEVN 

UO 

VO 

H 

XF 

XSL 

ZERO 
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GUISIM  Analysis 


Subroutine  GUISIM  Is  the  < xecutive  guidance  subroutine  In  the  simu- 
lation program.  In  addition  tc  controlling  the  computational  flow  for 
all  types  of  guidance  events,  ( UISIM  also  perforins  many  of  the  required 
guidance  computations  itself. 


Before  considering  each  type  of  guidance  event,  the  treatment  of  a 
general  guidance  event  will  be  discussed.  Let  t^  be  the  time  at  which 

the  guidance  event  occurs.  Bed  ore  any  guidance  event^can  be  executed  the 

targeted  nominal  state  X , most  recent  nominal  state  X~,  estimated  state 

J J ^ 

deviation  8X^  from  most  recent  nominal,  actual  state  deviation  6x^  from 

most  recent  nominal,  knowledge  covariance  P , and  control  covariance  P 

kj  cj 

must  all  be  available,  where  ( ) indicates  values  immediately  before  the 
event.  Only  the  control  covariance  is  not  available  prior  to  entering 
GUISIM.  The  propagation  of  the  control  covariance  over  the  interval 

t j] , where  t ^ denotes  the  time  of  the  previous  guidance  event, 

is  performed  within  GUISIM. 


The  next  step  in  the  treatment  of  a general  guidance  event  is  con- 
cerned with  the  computation  of  the  commanded  velocity  correction,  execution 
error  covariance,  actual  executLon  error,  and  actual  velocity  correction. 

In  the  simulation  program  a non-statistical  commanded  velocity  correction 
can  always  be  computed.  This  commanded  velocity  correction  Av~is  used 


to  compute  the  execution  error  covariance  matrix  and  the  actual  execu- 
tion error  6AV,.  A summary  of  the  execution  error  model  and  the  equations 
used  to  compute  Q j and  uAV^  can  be  found  in  the  subroutine  QCJ0MP  analysis 
section.  The  actual  velocity  correction  is  then  computed  using  the  equation 


AV 


5 


AV.  + 6AV, 

J j 


The  last  step  is  concerned  with  the  updating  of  required  quantities 
prior  to  returning  to  the  basic  cycle.  An  assumption  underlying  the 
modeled  guidance  process  Is  that  the  targeted  nominal  is  always  updated 
by  the  commanded  velocity  correction.  In  the  simulation  program  the 
update  velocity  correction  A VTTD  is  always  identical  to  the  commanded 


velocity  correction  AV 


j* 


TOj 

This  is  in  contrast  to  the  error  analysis  program 

The 


where  AVTTP  is  equated  with  the  non-statistical  component  of  Av  . 

UPj  j 
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most  recent  and  targeted  nominal  states  immediately  following  the  guidance 
event  are  updated  using  the  equations 


r 


XJ 


« X.  + 


A. 

6Xj  + 


5AV, 


UP 


JJ 


~+ 

xj 


The  actual  and  estimated  state  deviations  from  the  most  recent  nominal  are 
given  by 


'VJ-  ^ 

SxT  *=-5X.  - $X  + 
j J J 


0 

5AV 


j 


- ah 

5XT  » 0 

j 

The  previous  4 equations  assume  an  impulsive  thrust  model.  If, 
instead,  the  thrust  is  modeled  as  an  impulse  series*  then  an  effective 
estimated  state  Xeff  and  an  effective  actual  state  X^  are  computed. 

The  equations  used  to  compute  these  effective  states  are  summarized  in 
the  subroutine  PULSEX  analysis  section.  The  previous  update  equations 
are  then  replaced  by  the  following  equations 


xj 


'eff 


-i+ 


X „ - X „ 
eff  eff 


A4- 

nro 


The  knowledge  covariance  is  updated  using  the  equation 

n 


K 


J 


r_  l 

° : s 
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if  an  impulsive  thrust  model  Is'  assumed.  If  the  thrust  is  modele_d  as  a 
series  of  impulses,  then  an  effective  execution  error  covariance  Qg££  i-8 

computed  and  the  knowledge  covariance  is  updated  using  the  equation 


K , 


In  either  case  the  control  covariance  is  updated  simply  by  setting 


'J 


K 


j 


This  equation  is  a direct  consequence  of  the  assumption  that  the  targeted 
nominal  is  always  updated  at  a guidance  event. 

+ A ” compute  only"  option  is  available  In  GUISIM  in  which  all  of  the 
( ) quantities  will  still  be  computed  and  printed.  However,  states,, 
deviations,  and  covariances  are  then  reset  to  their  former  ( ) values 
ptior  to  returning,  to  the  basic  cycle. 

Each  specific  type  of  guidance  event  involves  the  computation  of 
other  quantities  not  discussed  above.  These  will  be  covered  in  the 
following  discussion  of  specific  guidance  events. 

1.  Midcourse  and  biased  aimpoint  guidance. 

Linear  midcourse  guidance  policies  have  form 


A 

AV, 


where  the  subscript  N indicates  that  this  is  the  velocity  correction 
required  to  null  out  deviations  from  the  nominal  target  state.  This 
notation  is  required  to  differentiate  between  this  type  of  velocity 
correction  and  velocity  corrections  required  to  achieve  an  altered 
target  state.  Linear  iqidcourse  guidance  policies  are  discussed  in 
more  detail  in  the  subroutine  GUIS  analysis  section. 

Subroutine  GUISIM  calls  GUIS  to  compute  the  guidance  matrix,  1^,  and 

the  target  condition  covariance  immediately  prior  to  the  guidance  event, 

Wj,  and  then  uses  1^  to  compute  the  velocity  correction  covariance  Sj,  which 

is  defined  as 
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3 - * 

J j j 

and  is  given  by  the  equation 


r (p~ 

j C 


j 


p"  ) r 

K/  li 


This  equation  assumes  that  an  optimal  estimation  algorithm  is  employed 
in  the  navigation  process,  since  the  derivation  of  this  equation  requires 
the  orthogonality  of  the  estimate  and  the  estimation  error. 


A 

Since  state  estimates  5X  are  generated  in  the  simulation  program, 

A J 

an  actual  AV.^  can  always  be  computed.  This  is  in  contrast  to  the  error 

i A 


analysis  program  where  only  a statistical  or  effective  AVL,  can  be  computed. 

J 

The  perfect  velocity  correction  AV^ , defined  as  the  velocity  correction 

required  to  null  out  actual  deviations  from  the  nominal  target  state,  is 
also  computed  for  midcourse  guidance  events.  Assuming  linear  guidance 
theory,  the  perfect  velocity  correction  is  given  by 


' rj  5xi 

■where  SX,  is  the  actual  deviation  from  the  targeted  nominal.  An  option 
J ^ 

is  also  available  in  GUISIM  for  re-computing  AVN  using  nonlinear  techniques. 

j 

However,  it  should  be  noted  that  the  nonlinear  two-variable  B-plane  guidance 
policy,  unlike  the  corresponding  linear  policy,  constrains  the  z-component 
of  AV„  to  be  zero. 


If  planetary  quarantine  constraints  must;  be  satisfied  at  a midcourse 
correction,  GUISIM  calls  BIAIM  to  compute  the  new  aimpoint  p,  and  the 

A » J 

bias,  velocity  correction  AVg  , All  computations  in  BIAIM  are  based  on 

j 

linear  guidance  theory.  However,  an  option  is  available  in  GUISIM  to  re- 
compute the  total  velocity  correction  AV_  + AV„  , but  not  p , using  non- 

, i i j 

linear  techniques.  This  option  is  recommended  If  a biased  aimpoint^ guidance 
event  occurs  at  t ^ — injection  time.  It  should  also  he  noted  that  Is 

set  to  zero  if  tj  =f  injection  time  since  it  is  assumed  that  the  injection 
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covariance  does  not  change  for  small  changes  in  injection  velocity. 

4* 

After  the  updated  control  covariance  P has  been  computed,  the 

+ 

target  condition  covariance  matrix  following  the  guidance  correction 
is  computed  using  the  equation 


W. 


V P+ 

j c 


j 


where  variation  matrix 
GUIS. 


has  been  previously  computed  in  subroutine 


2.  Retargeting. 

In  the  simulation  (and  error  analysis)  program  a re- targeting  event 
is  defined  to  be  the  computation  of  a velocity  correction  Av^  required 

to  achieve  a new  set  of  target  conditions  using  nonlinear  techniques. 

Since  the  state  estimate  X-  + 5X  is  used  as  the  zero-th  iterate  in. 

J J 

the  re- targeting  process,  the  new  target  conditions  must  be  close  enough 
to  the  original  nominal  target  conditions  to  ensure  «i  convergent  process. 

It  should  be  noted  that  after  a re- targe ting  event  the  new  target 
conditions  are  henceforth  treated  as  the  nominal  target  conditions* 

3.  Orbital  insertion. 

An  orbital  insertion  event  is  divided  into  a decision  event  and  an  execution 

event*  At  a decision  event  the  orbital  insertion  velocity  correction  AVrt^. 

01 

and  the  time  interval  At  separating  decision  and  execution  are  computed 

•» 

based  on  the  state  estimate  X,  + 5X^.  The  relevant  equations  can  be 

found  in  the  subroutine  C0PINS  analysis  section  for  coplanar  orbital 
insertion;  m N0PINS,  for  non-planar  orbital  insertion.  Before  returning 
to  the  basic  cycle,  GUISIM  schedules  the  orbital  insertion  execution  event 
to  occur  at  t + At  and  re-orders  the  necessary  event  arrays  accordingly. 


A At  an  pybital  insertion  execution  event  the  previously  computed 
A is  used  to  update  the  targeted  nominal  state.  In  addition,  the 

P*  A 

planeto- centric  equatorial  components  of  AV^  and  the  actual  spacecraft 


cartesian  and  orbital  element  states  following  the  insertion  maneuver  are 
computed. 
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4.  Externally- supplied  velocity  correction. 

^ /v  ^ 

At  this  type  of  guidance  event  the  state  estimate  X.  + X is  simply 

J ^ /V 

updated  using  the  externally-supplied  velocity  correction  AV„  . 

EX 


Because  of  the  complexity  of  the  GUISIM  flow  chart,  a simplified 
flow  chart  depicting  the  main  elements  of  the  GUISIM  structure  precedes 
the  complete  GUISIM  flow  chart. 
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GUISIM-9 


^20^" 


IC0DE2  ■ 1 



! 

IC0DE2  = ? 

V * 

1 

\ 

/ 

■ 

Write  out  actual 
the  estimated  and 
‘ from  the  most  rec 

dynamic  noise  and 
actual  deviations 
ent  nominal  at 

_ j 

f 

Store  all  knowledge  covariance  matrix 
partitions  in  the  PI,  CXXS1,  CXU1, 
CXV1,  TS1,  CXSU1,  and  CXSV1  arrays. 
Store  all  control  covariance  matrix 
partitions  in  the  P,  CXXS,  CXU,  CXV, 
PS,  CXSU,  and 'CXSV  arrays. 


95 


170 
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GUXSIM-11 


854 


4,5 


Write  out  complete  description 
of  guidance  event. 


— — ■ — 1 

1GUID(5 

,11)  - ? ' 
> 

2,3,4 
\ 

f 

S \ 

IGUID(1,II)  - ? 

S / 

Define  guidance  policy  code  IGP. 


320] 


YES 


Call  GUIS  to  compute  P t , 

and  certain  quantities  required 
for  biased  aimpoint  guidance. 


A 


<1sphVoT> 
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Call  N0NLIN  to  compute 
nonlinear  commanded  velocity 
correction.  Return  XDELV. 
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Set  AVjjp  to  XDELV.  Compute 

i 

magnitude.  Write  out  AV™ 
and  its  magnitude.  j 


Write:  Nonlinear 
guidance  failed. 
Linear  guidance 
will  be  employed. 


injection  time? 


m 


Write  out  correlation  matrix 
and  standard  deviations  assoc- 
iated with 


Compute  and  write  out  eigen- 
values , eigenvectors,  and 
hyperellipsoid  associated  with 


Set  AVnp  to  AV„  . 

j "j 


IGU1D(2,I1)  « 0 ? 


« injection  time? 


|AV0P,|  + 0 1 
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Use  AV,Tr,  to  compute  the  actual 

UPj 

execution  error  ^AV  . Compute 

J 

the  actual  velocity  correction 
AV j ♦ Write  out  6 AV^  and  &V.. . 


Set  6AV.  and 
AVj  to  zero. 


IGUID(1,II)  * 4 or  5 ? 


Compute  and  write  out  planeto-centric 
equatorial  components  of  AV , . 


IGUID (4,11)  i 2 ? 


Set  XXIN  to  the  actual  state 
at  t..  Set  DELPX  to  AV  . 

J J 

Compute  Julian  date  at  t,.  Set 

J 

INPX  «=  1 . 


Call  EXCUTS  to  compute  the 
effective  actual  state.  Return 
XXIN.  Set  XACT  to  XXIN. 
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Update  moat  recent  nominal 
targeted  nominal,  and  estimated 
and  actual  state  deviations  for 
an  impulsively-applied  £V. 


Update  most  recent  nominal, 
targeted  nominal,  and  estimated 
and  actual  state  deviations  for 
a AV  applied  as  an  impulse  series, 


Write  out  most  recent  nominal,  targeted 
nominal,  and  estimated  an<i  actual  state 
deviations. 


Update  state  vectors,  times,  and  control 
and  knowledge  covariance  matrix  partitions 
in  preparation  for  next  cycle.  Set 
N0MTRJ  = 0 . 


RETURN 


IGUID (1,11)  <3  or 
IGUID (1,11)  = 11 


Set  AVTTtJ  to  the  pre- specif  led 

DELV  array.  Write  out  AVjjp. 
and  its  magnitude. 


Write:  Error  in 
IGUID  array. 


« A 

Compute  Q , using  AVTTT>  . 
J 


Set  IRET  = 2 . 


GUISIM-19 
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Set  IX  = 1 and  JX  *=  II. 

Set  XIN  to  estimated  state  at  t j . 


Call  N0NLIN  to  perform  i e-targeting 
event  (target  variables  are  defined 
in  namelist).  Return  XJ'ELV. 
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Set  AVUPj 

• to  XDELV.  | 

\ 

1 

( KWIT  < 

- 0 ? ) 

YES 

J IGUID (5 } 

II)  = 2 7) 

Write:  Re- targeting 
failed. 


Update  nominal  target  conditions 
in  TN0MB  and  TN0MC  an  ays. 

Write  out. 


IGUID(5,II)  - 2 ? 


Compute  using  AVjjp . . Write 
out  AVjjp,  and  its  magnitude . 
Set  IRET  « 2 . 
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HELIO-A 
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PECEQ  TIME 
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LOCAL  SYMBOLS  S AHEL  SEMI-MAJOR  AXIS  OF  THE  HELIOCENTRIC  CONIC 

ARGP  ARGUMENT  OF  PERIAPSIS  OF  THE  HELIOCENTRIC 
CONIC  IN  RADIANS 

ASCNO  LONGITUDE'  OF  THE  ASCENDING'  NODE  OF  THE 
HELIOCENTRIC  CONIC  IN  RADIANS 

ATP  SEMI-MAJOR  AXIS'  OF  TARGET  PLANETQCENTRIC 
CONIC 

AZF  AZIMUTH  AT  DF  ON  THE  HELIOCENTRIC  CONIC 
IN  DEGREES 

AZI  AZIMUTH  AT  DI  ON  THE  HELIOCENTRIC  <?ONIC 
IN  DEGREES 

B2  SQUARE  OF  THE  B VECTOR  MAGNITUDE  OF  THE 

* TARGET  PLANETQCENTRIC  CONIC 

CBDR  DESIRED  B.R  MAGNITUDE  AT  OF  OF  THE  TARGET 
PLANETOCENTRIC  CONIC 

CBDT  DESIRED  B.T  MAGNITUDE  AT  OF  OF  THE  TARGET 
PLANETOCENTRIC  CENTER 

COSASN  CONSINE  OF  ASCNO 

COSB  INTERMEDIATE  VARIABLE  FOR  AZI, AZF  EQUATION 

COSFS  COSINE  OF  FS 
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CRCA  DESIRED  RCA  MAGNITUDE  AT  DF  OF  THE  TARGET 
PLANETOCENTRIC  CONIC 
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FS 
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I 

J 
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OAPO 

OASM 
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06AF 
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TIME  OF  FLIGHT  (SECS)  OF  HELICOENTRIC 
CONIC 

FINAL  JULIAN  DATE  OF  HELIOCENTRIC  CONIC' 

INITIAL  JULIAN  DATE  OF  HELIOCENTRIC  CONIC 

DELTA  TIME  (OAYS>  FROM  SPHERE-OF- INFLUENCE 
TO  CLOSEST  APPROACH  OF  THE  TARGET  PLANET 
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ECCENTRICITY  OF  THE  HELIOCENTRIC  CONIC 

TRANSFORMATION  MATRIX  FROM  ECLIPTIC  TO 
TARGET  PLANET  EQUATORIAL  AT  OF 

ECCENTRICITY  OF  THE  TARGET  PL ANETOCENTRIC 
CONIC 

INTERMEDIATE  VARIABLE  FOR  COMPUTATION  OF 
OSICA 

TRUE  ANOMALY  OF  THE  TARGET  PL ANETOCENTRIC 
CONIC 

CALENDER  DATE  CORRESPONDING  TO  OF 

DUMMY  ARGUMENT  FOR  CALL  TO  SUBROUTINE 
FLITE  i 

INDICATES  COMPUTATION  OF  HELIOCENTRIC 
STATES 

=0,  COMPUTE  INITIAL  AND  FINAL  STATES 
=i,  COMPUTE  FINAL  STATE  ONLY 


INDEX 

INDEX 

CALENDER  DATE  CORRESPONDING  TO  01 

APOAPSIS  RADIUS  OF  THE  HELIOCENTRIC  CONIC 

ASCND  CONVERTED  TO  DEGREES 

OUTPUT  ECCENTRICITY  OF  THE  HELIOCENTRIC 
CONIC 

FLIGHT  PATH  ANGLE  AT  OF  OF  THE  HELIO- 
CENTRIC CONIC 

FLIGHT  PATH  ANGLE  AT  01  OF  THE  HELIO- 
CENTRIC CONIC 


HELIO-C 


0 HCA  CENTRAL  ANGLE  OF  THE  HELIOCENTRIC  CONIC 

OINC  INCLINATION  OF  THE  HELIOCENTRIC  CONIC 

OLAF  LATITUDE  AT  DF  OF  HELIOCENTRIC  CONIC 

OLAI  LATITUDE  AT  DI  OF  HELIOCENTRIC  CONIC 

OLOF  LONGITUDE  AT  DF  OF  HELIOCENTRIC  CONIC 

OLOI  LONGITUOE  AT  DI  OF  HELIOCENTRIC  CONIC 

OPER  ARGUMENT  OF  PE RIAPSIS  OF  THE  HELIOCENTRIC 

CONIC  IN  DEGREES 

r 

ORCA  PERIAPSIS  RADIUS  OF  HELIOCENTRIC  CONIC 

ORF  MAGNITUDE  OF  HELIOCENTRIC  POSITION  AT  DF 

IN  OUTPUT  UNITS 

ORI  MAGNITUDE  OF  HELIOCENTRIC  POSITION  AT  01 

IN  OUTPUT  UNITS 

OSMA  SEMI-MAJOR  AXIS  OF  THE  HELIOCENTRIC  CONIC 
IN  OUTPUT  UNITS 

OTAF  TRUE  ANOMALY  AT  DF  OF  HELIOCENTRIC  CONIC 
IN  DEGREES 

OTA I TRUE  ANOMALY  AT  DI  OF  HELIOCENTRIC  CONIC 
IN  DEGREES 

OVF  MAGNITUDE  OF  HELIOCENTRIC  VELOCITY  AT  OF 
IN  KILOMETERS 

OVI  MAGNITUDE  OF  HELIOCENTRIC  VELOCITY  AT  01 

IN  KILOMETERS 

OVPF  VELOCITY  OF  TARGET  PLANET  AT  OF 

OVPI  VELOCITY  OF  TARGET  PLANET  AT  01 

PHEL  SEMI-LAUS  RECTUM  OF  HELIOCENTRIC  CONIC 

PLINC  INCLINATION  (IN  RAOIANS)  OF  HELIOCENTRIC 
CONIC 

PSI  CENTRAL  ANGLE  (IN  RADIANS)  OF  HELIOCENTRIC 

CONIC 

PTP  SEMI-LATUS  RECTUM  OF  TARGET  PLANETOCENTRIC 
CONIC  AT  OF,  USED  TO  CALCULATE  DSICA 
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RF  MAGNITUDE  OF  TARGET  PLANET  POSITION  AT  OF 

RI  MAGNITUDE  OF  TARGET  PLANET  POSITION  AT  DI 

RTM  MAGNITUDE  OF  RT  VECTOR 

RT  HELIOCENTRIC  POSITION  VECTOR  OF  THE  FINAL 

CONIC  CORRESPONDING  TO  OTAF 

RZM  MAGNITUDE  OF  THE  RZ  VECTOR 

RZ  HELIOCENTRIC  POSITION  VECTOR  OF  THE  FINAL 

CONIC  CORRESPONDING  TO  OTAI 

SGN  INTERNAL  SIGN  VARIABLE  USED  TO  DEFINE  THE 

TRANSFER  PLANE  ORIENTATION 

SINASN  SINE  OF  ASCND 

SINF  SIN  OF  TAI 

SINHF  HYPERBOLIC  SINE  OF  THE  AUXILIARY  VARIABLE 
F USED  TO  CALCULATE  OSICA 

SINPSI  SINE  OF  PSI 

SI  SECONDS  IN  CALENDER  DATE  IDAT 

I 

SL  SECONDS  IN  CALENDER  DATE  LDAT ‘ 

SUNMU  GRAVITATIONAL  CONSTANT  OF  SUN  IN 

KM** 3 /SEC** 2 

TAF  OTAF  IN  RADIANS 

TAI  OTAI  IN  RAOIANS- 

TANF  TANGENT  OF  THE  AUXILIARY  VARIABLE  F USED 

TO  CALCULATE  DSICA 

TERM  INTERMEDIATE  VARIABLE  USED  TO  CALCULATE 

CRCA 

TEST  INTERMEDIATE  VARIABLE  USED  TO  CALCULATE 

AZIMUTHS  AND  PATH  ANGLES 

TFP  DUMMY  VARIABLE  USED  TO  CALL  ELCAR 

THETA I INTERMEDIATE  ANGLE  USED  TO  DEFINE  ARGP 

TSPH  SPHERE-OF-INFLUENCE  OF  TARGET  PLANET  IN 
KILOMETERS 


HELIO-E 


VF  VELOCITY  OF  THE  TARGET  PLANET  AT  OF 

VHAT  INTERMEDIATE  VECTOR  USED  TO  DEFINE  AZI, 
AZF 

VHP  HYPERBOLIC  EXCESS  VELOCITY  OF  THE  TARGET 

PLANETOCENTRIC  CONIC  AT  OF 

* 

VHPH  MAGNITUDE  OF  THE  VHP  VECTOR  USED  TO 
CALCULATE  OSICA 

VI  VELOCITY  OF  LAUNCH  PLANET  AT  01 

VMAG  INTERMEDIATE  VARIABLE  USED  TO  DEFINE  AZI, 
AZF 

VTM  - MAGNITUDE  OF  VT  VECTOR 

VT  HELIOCENTRIC  VELOCITY  VECTOR  OF  THE  FINAL 

CONIC  CORRESPONDING  TO  OTAF 

VZM  MAGNITUDE  OF  THE  VZ  VECTOR 

VZ  HELIOCENTRIC  VELOCITY  VECTOR  OF  THE  FINAL 

CONIC  CORRESPONDING  TO  OTAI 

WHAT  UNIT  VECTOR  NORMAL  TO  THE  TRANSFER  PLANE 

WMAG  MAGNITUDE  OF  THE  NON-UNITIZEO  WHAT  VECTOR 


XF 

POSITION 

OF  THE 

TARGET 

PLANET 

AT 

OF 

XI 

POSITION 

OF  THE 

LAUNCH 

PLANET 

AT 

01 

COMMON 

COMPUTED/USED* 

TMU 

VHPM 

COMMON 

COMPUTED  8 

PPA 

NO 

RAP 

RIN 

TIN 

COMMON  USEOS 

ALNGTH 

OG 

OT 

IZERO 

KTAR 

KUR 

NLP 

NTP 

ONE 

PI 

PMASS 

RAD 

SPHERE 

TAR 

TM 

TWO 

XP 

ZDAT 

ZERO 
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HELIO  Analysis 


HELIO  computes  the  zero  iterate  initial  state  for  interplanetary  trajectories. 
The  initial  and  final  states  are  determined  either  by  an  arbitrary  position 
vector  or  by  the  location  of  a specified  planet  at  a prescribed  time  according 
to 


XZERO  « 1 planet  to  planet 

2 planet  to  arbitrary  final  point 

3 arbitrary  initial  point  to  planet 

4 arbitrary  initial  point  to  final  point 

The  final  time  used  in  locating  a planet  must  correspond  to  the  closest 
approach  (CA)  to  the  planet.  Therefore  if  the  target  time  is  read  in  as 
a sphere  of  influence  (SOI)  time,  a modification  is  required.  The  helio- * 
centric  conic  is  computed  (as  described  below)  using  the  t time  to 


determine  the  final  position.  The  approach  asymptote  v| 


HP 


SI 

corresponding 


to  that  trajectory  is  used  with  the  desired  rrA  to  compute  the  time  from 


CA 

r is  not  a target  variable  then  the  target  values  of  B-T 
CA 


SOI  to  CA.  If 
and  *B*R  are  used  to  estimate  the 


CA 


CA 


(1) 


Then  the  approximate  approach  hyperbola  is  given  by 


Mr 


SI 


2 M - V r 

HP  SI 


1 - 


CA 


(2) 


a (1  - e.  ) 
n h 


and  the  hyperbolic  time  to  go  from  SOI  to  CA  is  given  by 


At. 


SICA 


■ — g ( e sinh  F - F) 
HP 


(3) 


where 
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tanh  — m 
2 


£ 1 
cos  £ **  jL 

e 

The  final  time  is  then  given 


tanh  — 

2 

+ AtSlCA  * 


(4) 


The  initial  and  final  positions  r and  r of  the  heliocentric  conic 

i f 

are  either  input  or  computed  from  the  positions  of  planets  determined  by 
ORB  and  EPHEM.  The  unit  normal  to  the  heliocentric  orbit  plane  is 


/\ 

W « 


The  inclination  to  that  plane  is 

/ 

cos  i « W 


The  ascending  node  of  the  plane  is  given  by 

/\ 

W 

tan  12  « — — 

A 
-W  . 


(5) 


<6) 


(7) 


The  central  angle  of  transfer  is  defined  by 


cos  ^ 


ri*  rf 


rirf 


(8) 


The  semi-major  axis  a and  eccentricity  e of  the  heliocentric  conic  are 
computed  from  Lambert's  theorem  in  subroutine  FLITE.  The  true  anomaly  f^ 

at  the  initial  and  final  points  are  computed  from 


cos  f . 


a (1  - e ) 
P - r. 


P-t 

cos  fj  COfi^  - — 
i © r 


e r. 


sin  * 


sin  V 


(8) 
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£ + * 


Finally,  the  argument  of  periapsis  u)  is  computed  from 

/\ 
r*  ■ U 

cos  (to  + f ) = — - (10) 

i r 

i 

where  ij" m (cos  fl  , sin  , 0)  . 

Therefore  the  initial  or  final  states  ( “r\  , "v\  ) or  ( 1c  , "v-  ) may  now  be 

i i f f 

computed  by  ELCAR.  Let  ( "x,  "v  ) denote  either  state  and  let  ( !■“,  v^  ) 

denote  the  state  of  the  relevant  planet.  The  departure  (or  approach) 
asymptote  is  then  given  by 


v - v 
f -P 


V *>  V - V 

HE  ip 


The  latitude  and  longitude  of  the  position  vector  are 


stin  0 


tan  0 


The  path  angle  F may  be  computed  from 


cos  r «* 


The  azimuth  of  the  relevant  state'  is 


sin  2 


r x v ) • U 


cos  2 D 


V coa  r 


If  the  initial  state  is  referenced  to  a planet,  subroutine  LAUNCH  is  called 
to  convert  the  departure  asymptote  and  launch  profile  into  an  injection 
radius,  velocity,  and  time!  Otherwise  the  initial  state  is  returned  as  the 
initial  state  on  the  heliocentric  conic. 


Reference:  Space  Research  Conic  Program,  Phase  III,  Hay  1,  1969,  Jet 

Propulsion  Laboratory,  Pasadena,  California. 


mjo-4 


HELIO-5 


Compute  heliocentric  conic  angleB 
fi’  ff’  ^ ’ 03 


Compute  initial  velocity  ‘v^ 
on  heliocentric  conic  (ELGAR) 


<"  ITIM  = ?> 

=2  ,L 

<lZERO  = f> 

Compute  approach  asymptote  V 


Is 


Is  rCA  a target 
parameter? 


\ 

f NO 

2 

Compute  B » 

2 2 
B.T  + B.ir 

"CA  ‘ - Vpp  + + 4B2) 


Compute  nominal  time'  to 

go  from  SOI  to  CA  = AtCT_. 

h ICA 

from  nominal  approach  conic 


Set  DF  = BE  + A t5 
ITIM  **  1 


HPOST-A 


SUBROUTINE  HPOST 

PURPOSE*  TO  CALCULATE  RADIUS  AND  TRUE  ANAMOLY  ON  A HYPERBOLA 
GIVEN  TIME  FROM  PERIAPSIS 

ARGUMENT*  A I SEMI-MAJOR  AXIS  OF  HYPERBOLA  IN  KM 

CTA  0 COSINE  OF  TRUE  AnAmOLV 

OTPS  I TIME  INTERVAL  FROM  PERIAPSIS  TO  OESIREO 

STATE  IN  SEC  ’ 

E I ECCENTRICITY  OF  HYPER80LA 

GMU  I GRAVITATIONAL  CONSTANT  OF  PLANET  IN 

KM**3/SEC**2 

P I SEMI-LATUS  RECTUM  OF  HYPERBOLA  IN  KM 

R 0 RADIUS  IN  KM 

STA  0 SINE  OF  TRUE  ANAMOLY 

SUBROUTINES  SUPPORTEOl  TPRTRG 

LOCAL  SYMBOLS*  ABSA  ABSOLUTE  VALUE  OF  SEMI-MAJOR  AXIS  IN  KM 

i 

ABSOT  ABSOLUTE  VALUE  OF  TIME  FROM  PERIAPSIS  TO 
OESIREO  STATE  IN  SEC 

AMI  ITERATEO  VALUE  OF  MEAN  ANAMOLY 

CORRESPONDING  TO  CURRENT  NEWTON  ITERATE 
OF  HYPERBOLIC  ANAMOLY  IN  RAD 

AM  MEAN  ANAMOLY  IN  RAD 

CSF  HYPERBOLIC  COSINE  OF  HYPERBOLIC  ANAMOLY 

OLE  ITERATION  INCREMENT  TO  HYPERBOLIC  ANAMOLY  - 

OTS  CONVERSION  FACTOR  FROM  DAYS  TO  SECONDS 
F HYPERBOLIC  ANAMOLY  IN  RAD 

one  constant  i. 

Pi  CONSTANT  PI 

RMEAN  MEAN  0R8ITAL  RATE  IN  RAO/SEC 

SNF  HYPERBOLIC  SINE  OF  HYPERBOLIC  ANAMOLY 

TM8  CONSTANT  i.OE-08 
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TWO  CONSTANT  2. 

VHE  MAGNITUDE  OF  HYPERBOLIC  EXCESS  VELOCITY  IN 

KM/SEC 

EXPONENTIAL  FUNCTION  OF  HYPERBOLIC  ANAMOLY 
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HYELS-A 


SUBROUTINE  HYELS 

PURPOSE!  TO  COMPUTE  AND  PRINT  THE  TWO-DIMENSIONAL  OR  THREE- 
DIMENSIONAL  HYPERELLIPSOID  OF  A SPECIFIED  MATRIX. 

CALLING  SEQUENCE!  CALL  HYELS(KS,P,N) 

ARGUMENT!  KS  I SIGMA  LEVEL  OF  THE  HYPERELLIPSOID 

P I MATRIX  FOR  WHICH  THE  HYPERELLIPSOID  IS  TO 

BE  COMPUTED 

N I DIMENSION  LIMITS  OF  THE  SQUARE  MATRIX  P 

SUBROUTINES  SUPPORTED!  EIGHY  GUISIM  GUISS  SETEVN  GUIOM 

GUID  PREO 

SUBROUTINES  REQUIRED!  HATIN 

LOCAL  SYMBOLS!  K2  SQUARE  OF  SIGMA  LEVEL 

PI  INVERSE  OF  MATRIX  P 

P12  TWICE  THE  VALUE  OF  (1,2)  ELEMENT  OF  PI 

P13  TWICE  THE  VALUE  OF  (1,3)  ELEMENT  OF  PI 

P23  TWICE  THE  VALUE  OF  (2,3)  ELEMENT  OF  PI 

V TEMPORARY  STORAGE  VECTOR  FOR  ARRAY  P 

COMMON  USED!  TWO 


295-3 


HYjgLS- 1 


HYELS  Analysis 


Subroutine  HYELS  compute*  and  writes  out  hyperellipsoids  associated  with 
a 2 or  3 dimensional  covariance  matrix  P.  < 

If  P Is  assumed  to  be  the  covariance  matrix  of  an  n-dimensional  random 
variable  x having  a gaussian  distribution  with  mean  zero,  then  the  pro- 
bability density  function  is  given  by 

i r i -*T  --i  -i 

» ’ |P|i/2  [-1*  P *J 

Re-writing  this  equation  as 


*T 

x 


2 In 


k 


2 


shows  that  the  surface  of  constant  probability  density  p is  an  m-dlipen- 
sional  ellipsoid,  .where  m is  the  rank  of  P.  The  constant  k can  be  shown 
to  correspond  to  the  sigma  level  of  the  ellipsoid. 


For  n “ 3,  the  above  equation  has  form 

2 2 2 2 
ax  + by  + cz  + dxy+exz+fyz«*k 


where  a “ a 
b - a 
c m a 


and  the  a. , are  the  elements  of  P~*. 


11 

d » 

*12 

22 

e » 

*13 

33 

f « 

*23 

Subroutine  HYELS  uses  this  equation  to  compute  a 3-dimensional  hyperellip- 
sold,  and  sets  the  appropriate  constants  to  zero  to  compute  a 2-dimensional 
hyperellipsoid. 


Reference:  H.  Sorenson.  "Kalman  Filtering",  Advances  in  Control  Systems, 

Vol,  3,  C.  T,  Leades  (Ed.).  New  York:  Academic  Press,  1966, 

p.  219. 
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SUBROUTINE  HYPT 

PURPOSE * TO  CALCULATE  TIME  FROM  PERIAPSIS  ON  A HYPERBOLA  GIVEN 
TRUE  ANAMOLY 

argument*  csta  i cosine  of  true  anamoly 

EH  I ECCENTRICITY  OF  HYPERBOLA 

ORBH  I RECIPROCAL  OF  MEAN  ORBITAL  RATE  IN 

SEC/RAO 

SNTA  I SINE  OF  TRUE  ANAMOLY 

T 0 TIME  FROM  PERIAPSIS  IN  SEC 

SUBROUTINES  SUPPORTED*  CAREL  IMPCT  SPHIMP 

LOCAL  SYMBOLS*  HA  HYPERBOLIC  ANAMOLY  IN  RAD 

HSNHA  HYPERBOLIC  SINE  OF  HYPERBOLIC  ANAMOLY 

ONE  CONSTANT  1. 
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SUBROUTINE  IMPACT 

PURPOSE*  TO  COMPUTE  THE  ACTUAL  IMPACT  PLANE  PARAMETERS  BOT  AND 

BDR  CORRESPONDING  TO  ANY  POINT  ON  AN  INCOMING  HYPERBOLA. 
IT  HAS  THE  OPTION  TO  CONVERT  TARGET  VALUES  OF  INCLIN- 
ATION XIN  AND  RADIUS  OF  CLOSEST  RCA  INTO  EQUIVALENT 
TARGET  VALUES  OF  OBT  ANO  OBR. 

CALLING  SEQUENCE*  CALL  IMPACTtR, V,GMX,T, BDT, BOR, XIN, RCA, OBT, OBR, 

TCA,KOPT> 


' ARGUMENTS 


R(3) 
V(3) 
GMX 
T (3*3) 

BDT 

BDR 

XIN 

RCA 

D8T 

OBR 

TCA 

KOPT 


I POSITION  VECTOR  TO  CENTRAL  BODY  AT  EPOCH 

I VELOCITY  VECTOR  TO  CENTRAL  BODY  AT  EPOCH 

I GRAVITATIONAL  CONSTANT  OF  CENTRAL  BODY 

I TRANSFORMATION  MATRIX  FROM  REFERENCE  TO 
INCLINATION  SYSTEM 

0 VALUE  OF  ACTUAL  B.T  EVALUATED  AT  EPOCH 

0 VALUE  OF  ACTUAL  B.R  EVALUATED  AT  EPOCH 

1 DESIRED  INCLINATION  (DEG)  (OPTIONAL) 

I DESIRED  RADIUS  OF  CLOSEST  APPROACH  (OPTION) 
0 TARGET  VALUE  OF  B.T  BASED  ON  XIN,  RCA 
0 TARGET  VALUE  OF  B.R  BASED  ON  XIN,  RCA 

0 TIME  FROM  PERIAPSIS  ON  CONIC 

1 TARGET  VALUE  COMPUTATION  FLAG 

=0  00  NOT  COMPUTE  TARGET  VALUES 

-1  COMPUTE  TARGET  VALUES  OF  B.T,  B.R 
(MUST  READ  IN  OPTIONAL  INPUT) 


SUBROUTINES 

SUPPORTED* 

■X 

TAROPT  LUNCON  LUNTAR  HULTAR  VMP 

SUBROUTINES 

REQUIRED* 

NONE 

LOCAL  SYMBOLS*  AS 

INTERMEDIATE  VARIABLE  FOR  CALCULATION 
RV,SV ,TV  SYSTEM 

AIN 

TARGET  INCLINATION  IN  RADIANS.  AFTER 
NORMALIZATION 

ANG 

OUTPUT  VARIABLE  WHEN  DECLINATION 
CONSTRAINT  IS  VIOLATED 

OF 
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AUXF  ECCENTRIC  ANOMALY  (HYPERBOLIC  CASE) 

A SEMI-MAJOR  AXIS  OF  R-V  CONIC 

BMAG  MAGNITUDE  OF  DESIRED  B VECTOR 
BV  ACTUAL/OESIREO  B VECTOR 

B MAGNITUDE  OF  ACTUAL’  B VECTOR 

CDECL  COSINE  OF  DECL 

CDEL'W  COSINE  OF  DELW 

CT A COSINE  OF  TA 

CW  COSINE  OF  W 

Cl  MAGNITUDE  OF  VECTOR  NORMAL  TO  ORBITAL 

PLANE  IN  INERTIAL  SY-STEM 

DB  DESIRED  MAGNITUDE  OF  DESIRED  B VECTOR 

DECL  DECLINATION  OF  APPROACH  ASYMPTOTE  IN 
INCLINATION  SYSTEM 

DELW  LONGITUDE  OF.  ASCENDING  NODE  IN  INCLINATION 
SYSTEM 

E ECCENTRICITY  OF  THE  R-V  CONIC 

II  INCLINATION  SIGN  INDICATOR. 

=1,  INCLINATION  IS  POSITIVE 
=-i,  INCLINATION  IS  NEGATIVE 

IM  INDICATOR  FOR  DIRECTION  OF  MOTION  OF  THE 

TRAJECTORY 

*1,  MOTION  IS  POSIGRAOE 
*-l, MOTION  IS  RETROGRADE 

PI  MATHEMATICAL  CONSTANT  3.141592653589793 

PV  INTERMEDIATE  VECTOR  USED  TO  CALCULATE 

OESIREO  B VECTOR 

P SEMI-LATUS  RECTUM 

OV  INTERMEDIATE  VECTOR  USED  TO  CALCULATE 

ACTUAL  9 VECTOR 

RAD  DEGREES  TO 'RADIANS  CONVERSION  CONSTANT 
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COMMpN  USED! 


RO  TIME  DERIVATIVE  OF  RM' 

RM  MAGNITUDE  OF  THE  POSITION  VECTOR  R 

RRD  OOT  PROOUCT  OF  R ANO  V VECTORS 

RV  VECTOR  USED  TO  CALCULATE  ACTUAL  ANO 

DESIRED  8 DOT  R 

SDECL  SINE  OF  DECL 

SDELW  SINE  OF  DELW 

SINHF  HYPERBOLIC  SINE  OF  AUXF 

i 

STA  SINE  OF  TA 

SV  VECTOR  USED  TO  CONSTRUCT  RV»  TV  VECTORS. 

PARALLEL  TO  THE  APPROACH  ASYMPTOTE 

SW  SINE  OF  W 

SX  VARIABLE  USED  TO  DETERMINE  SIGNS  OF  DBT, 

DBR 

TANG  INTERMEDIATE  VARIABLE  FOR  CALCULATION  OF 

AUXF 

TA  TRUE  ANOMALY  FOR  CALCULATION  OF  AUXF 

THS  INTERMEDIATE  ANGLE  FOR  CALCULATION  OF  W 

TV  VECTOR  USED  TO  CALCULATE  ACTUAL  AND 

DESIRED  8 DOT  T 

r 

VINH  VELOCITY  AT  INFINITY 

VX  MAGNITUDE  OF  THE  VELOCITY  VECTOR  V 

WMAG  , MAGNITUDE  OF  VECTOR  NORMAL  TO  ORBITAL 
PLANE  IN  INCLINATION  SYSTEM 

WV  VECTOR  NORMAL  TO  0R8ITAL  PLANE  IN 

INCLINATION  ANO  INERTIAL  SYSTEMS 

W ARGUMENT  OF  PERIAPSIS 

Z APPROACH  ASYMPTOTE  IN  INCLINATION  SYSTEM 

/ t 

NINETY,  ONE  TWO  . ZERO 

/ ' 
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IMPACT  Analysis 


The  impact  parameters  B-T  and  B*  R form  a convenient  set  of  verifies 
for  the  description  of  the  appro  ch  geometry  for  lunar  and  interplanetary 
missions.  Let  a reference  carte  ,ian  coordinate  system  XYZ  {ecliptic  In 
STEAP)  be  established  at  the  cem.er  of  the  target  body.  Let  Vo o denote 
the  hyperbolic  excess  velocity  o the  spacecraft  in  the  XYZ  system „ An 
auxiliary  coordinate  Bystem  R-S  T may  be  constructed  relative  to  the  "^eo 
by  the  definitions 


A 

s 


Vao  /Voo 


A 

T 


AAA 
R « S x T 


(1) 


A A 

Therefore  S is  in  the  direction  of  the  approach  asymptote.  T lies  along 

the  intersection  of  the  impact  p ane  (the  plane  normal  to  5 and  passing 
through  the  center  of  the  planet)  and  the  reference  plane  (XY-plane),  and 
R completes  the  right  hand  system.  The  B vector  lies  in  the  impact 
plane  and  is  directed  to  the  inc  >ming  asymptote.  Then  B»T  and  B*R  have 
the  usual  vector  definitions. 


Figure  1.  Impact  Plane  Parameters 


In  the  optional  part  of  the  subroutine,  the  target  impact  parameter  B* 
associated  with  "§  and  a target  inclination  i (relative  to  target  planet 
equator)  and  radius  of  closest  approach  r^  is  computed.  However  given 

an  approach  asymptote  ^ there  are  generally  four  trajectories  with  the 
same  values  of  i and  r^.  Two  of  these  trajectories  are  retrograde  and 
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two  are  posigrade.  For  eacn  type  of  motion  there  are  two  distinct  planes 
th&t  have  the  same  inclination  and  include  the  S vector.  These  are 
distinguished  by  the  direction  of  motion  when  the  approach  asymptote  is 
crossed,  i.e.,  whether  the  motion  is  from  north  to  south  (northern  approach) 
or  from  south  to  north  (southern  approach).  Let  0^  ot  4r  90°.  Then 
setting  the  target  inclinations  to  the  following  values  determines  the 
trajectory  which  will  be  specified: 


i 

Trajectory 

a 

-ot 

180+  a 
180-  a 

posigrade  with  northern  approach 
posigrade  with  southern  approach 
retrograde  with  northern  approach 
retrograde  with  southern  approach 

The  possible  trajectories  are  illustrated  in  Figure  2. 


-a 


Figure  2.  Possible  Trajectories  with  Same  Inclination 


The  detailed  computations  for  the  basic  pact  of  the  program  are  straight- 
forward. Using  the  standard  conic  abbreviations. 


*r  ! 


(2) 


(3) 

(4) 


a 


(5) 
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2 

0 to  x -E- 

(6) 

a 

b - Vp  | a | 

(7) 

cob  f « H r,  £ 

(8) 

e r 

sin  f “ 

(9) 

eil 

z m L v - i r 

(10) 

c c 

AT*  — * 

P » i cos  f ~ 2 sin  £ 

(11) 

r 

A *=*  A 

Q « £ sin  f + 2 cos  f 
r 

(12) 

s . - a 'i  + 

: $ 

(13) 

V a2+b2  V a^+b2 

$ - S X K 

(14) 

S x K 

A A A 

R » S X T 

(15) 

f«...b2 'p  + ,ab  $ 

Va2+b2  V a2+b2 

(16) 

-a.  A 

(17) 

B»T  = B . T 

/\ 

(18) 

B‘R  » B • R 

The  computations  for  the  optional  part  of  the  program  which  converts 
the  i and  r^  into  an  equivalent  B$  proceed  as  follows.  The 

approach  asymptote  is  first  converted  into  target  planet  equatorial 
coordinates  and  its  right  ascension  and  declination  computed 
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Sq  “ 4>  ECEQ  ^ 


0 <"  tan 

s 


-1  (Sq), 


(Sq), 


- sin*"1  (Sq)s 


(19) 


The  angle  40  between  the  ascending  node  of  the  trajectory  and  the 
right  ascension  of  the  approach  asymptote  is  from  Napiers  rule 

tan  J 

sin  0 « 2 (20) 

tan  i 

after  assuring  that  ji|  ^ |<5  | . The  ascending  node  of  the  trajectory 
is  then  computed  recalling  the  definitions  of  the  angle  i 


Q « 0g  + A9  (+7T) 


(21) 


Thus  the  unit  vector  to  the  ascending  node  is  given  by 


“ (cos  42,  sin  42,  0)  (22) 

The  normal  to  the  orbital  plane  (in  target  planet  equatorial  coordinates) 
is 


A 

W 


A A 

Sq  x 

q_  i*Sq  x\| 


(23) 


This  is  now  converted  to  the  ecliptic  coordinate  system 


A T A 

wc  " I’eceq"’ 


The  unit  vector  in  the  desired 

A 

B*  * 


B*  direction  is 


S x W, 


| S*  xlJc 


(24) 


(25) 
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Reference:  Kizner,  W.,  A Method  of  Describing  Miss  Distances  for  Lunar 

and  Interplanetary  Trajectories,  Ballistic  Missiles  end 
Space  Technology  vol  III,  Pergamon  Press,  New  Yorfc,  1961. 
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SUBROUTINE  IMPCT 

PURPOSE*  TO  COMPUTE  FOR  AUXILIARY  TARGETING  ACTUAL  ANQ  DESIRED 

8-PLANE  ASYMPTOTE  PIERCE  POINTS  AS  WELL  AS  ACTUAL  TARGET 
VALUES 

ARGUMENT*  KOPT  I FLAG  INDICATING  SUBROUTINE  OPERATING  MODE 

=1  CALCULATE  ACTUAL  B-PLANE  ASYMPTOTE 

PIERCE  POINT  COORDINATES  (B.T  AND  BoR) 
ONLY 

*2  CALCULATE  ACTUAL  INCLINATION,  RADIUS, 
AND  TIME  AT  CLOSEST  APPROACH  AS  WELL 
AS  ACTUAL  B.T  AND  B. R 
=3  CALCULATE  ACTUAL  RIGHT  ASCENSION, 
DECLINATION,  ANO  TIME  AT  IMPACT  AS 
WELL  As  ACTUAL  B.T  ANO  B.R 

R I PLANETOCENTRIC  POSITION  VECTOR  ON  WHICH 

OSCULATING  CONIC  IS  TO  BE  BASED  IN  KM 

V I PLANETOCENTRIC  VELOCITY  VECTOR  ON  WHICH 

OSCULATING  CONIC  IS  TO  BASEO  IN  KM/SEC 

SUBROUTINES  SUPPORTED*  TAROPT 

i 

SUBROUTINES  REQUIRED  I HYPT  MATPY  SCAD  USCALE  UXV 


LOCAL  SYMBOLS*  AB  ECCENTRICITY  TIMES  MAGNITUDE  OF  SEMI-MAJOR 

AXIS  IN  KM 

AIN  ACUTE  INCLINATION  REFERENCE  ANGLE  IN  RAD 

A SEMI-MAJOR  AXIS  OF  OSCULATING  CONIC  IN  KM 

3HAG  MAGNITUDE  OF  B VECTOR  IN  KM  USEO  IN 

CALCULATION  OF  OESIREO  B.T  AND  B.R  FROM 
INCLINATION  AND  RAQIUS  OF  CLOSEST  APPROACH 

BM  MAGNITUDE  OF  B VECTOR  IN  KM  USED  IN 

CALCULATION  OF  DESIRED  B.T  AND  B.R  FROM 
PROBE  TARGET  SITE 

BV  B VECTOR  ITSELF  IN  KM  OR  UNIT  VECTOR  IN 

DIRECTION  OF  B VECTOR 

CDECL  COSINE  OF  DECLINATION  OF  TRAJECTORY 

ASYMPTOTE  RELATIVE  TO  INCLINATION  SYSTEM 

CDELW  COSINE  OF  DIFFERENCE  BETWEEN  RIGHT 

ASCENSION  OF  ASCENDING  NOOE  AND  RIGHT 
ASCENSION  OF  TRAJECTORY  ASYMPTOTE  RELATIVE 
TO  INCLINATION  SYSTEM 
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CSOCP 

CSOIF 

CSPHI 

CSRAP 

CSTHTS 

CTA 

CTPS 

CM 

Cl 

oz 

08 

08 

OECL 

OELM 

DTR 

DTS 

E 

HREV 


COSINE  OF  OECL INATION  OF  PROBE 
IMPACT  SITE  RELATIVE  TO  PROBE-SPHERE 
FRAME 

COSINE  OF  ARC  LENGTH  BY  WHICH  OESIREO 
IMPACT  SITE  IS  CLOSER  TO  TRAJECTORY 
ASYMPTOTE  THAN  IS  PERIAPSIS 

COSINE  OF  THE  ANGLE  BETWEEN  TRAJECTORY 
ASYMPTOTE  AND  VECTOR  TO  DESIRED  IMPACT 
SITE  1 

COSINE  OF  RIGHT  ASCENSION  OF  PROBE 
IMPACT  SITE  RELATIVE  TO  PR08E-SPHERE  FRAME 

COSINE  OF  TRUE  ANAMOLY  OF  TRAJECTORY 
ASYMPTOTE 

COSINE  OF  TRUE  ANAMOLY  OF  GIVEN  STATE 

COSINE  OF  TRUE  ANAMOLY  AT  PROBE  SPHERE 

COSINE  OF  RIGHT  ASCENSION  OF  ASCENDING 
NODE  IN  INCLINATION  SYSTEM 

COEFFICIENT  USED  IN  CALCULATING 
REPOSITIONED  PROBE  IMPACT  SITE 

COEFFICIENT  USED  IN  CALCULATING 
REPOSITIONED  PROBE  IMPACT  SITE 


MAGNITUDE  OF  DESIRED  B VECTOR  CALCULATED 
FROM  DESIRED  INCLINATION  AND  RADIUS  AT 
CLOSEST  APPROACH 

DECLINATION  OF  TRAJECTORY  ASYMPTOTE  IN 
RAD  RELATIVE  TO  INCLINATION  SYSTEM 

DIFFERENCE  IN  RAD  BETWEEN  RIGHT  ASCENSION 
OF  ASCENDING  NODE  AND  RIGHT  ASCENSION  OF 
TRAJECTORY  ASYMPTOTE  RELATIVE  TO 
INCLINATION  SYSTEM 

CONVERSION  FACTOR  FROM  DEGREES  TO  RAOlANS 
CONVERSION  FACTOR  FROM  DAYS  TO  SECONOS 
ECCENTRICITY  OF  OSCULATING  CONIC 
180.  DEG 
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II 

IM 

0R8H 

PI 

PV 

P 

QV 

RD 

RM 

RPR 

RPVRV 

RPV 

RRD 

RTO 

RV 

SDECL 

SOELW 


INCLINATION  SIGN  INOICATOR 
=1  INCLINATION  IS  POSITIVE 
-2  INCLINATION  IS  NEGATIVE 

INDICATOR  FOR  DIRECTION  OF  MOTION  OF 
TRAJECTORY 

= 1 MOTION  IS  POSIGRAOE 
=2  MOTION  IS  RETROGRADE 

RECIPROCAL  OF  MEAN  ORBIT AL  RATE  IN 
SEC/RAD 

MATHEMATICAL  CONSTANT  PI 

DIRECTION  OF  PERIAPSIS  ON' OSCUL AT ING 

CONIC 

PLANETOCENTRIC  ECLIPTIC  UNIT  VECTOR  IN 

SEMI-LATUS  RECTUM  OF  OSCULATING  CONIC  IN 
KM 

PLANETOCENTRIC  ECLIPTIC  UNIT  VECTOR  IN 
ORBIT  PLANE  ADVANCED  90  DEG  FROM  PV 

TIME  RATE  OF  CHANGE  OF  OSCULATING  CONIC 
RADIUS  IN  KM/SEC 

MAGNITUDE  OF  PLANETOCENTRIC  OSCULATING 
CONIC  POSITION  VECTOR  IN  KM 

RADIUS  OF  PROBE  SPHERE  IN  KM 

PLANETOCENTRIC  ECLIPTIC  UNIT  VECTOR  TO 
IMPACT  SITE 

PLANETOCENTRIC  PROBE-SPHERE  UNIT  VECTOR 
TO  IMPACT  SITE 

PRODUCT  OF  OSCULATING  CONIC  RADIUS  9Y 
ITS  TIME  RATE  OF  CHANGE  IN  KM**2/SEC 

CONVERSION  FACTOR  FROM  RAOIANS  TO  OEGREES 

PLANETOCENTRIC  ECLIPTIC  UNIT  VECTOR  IN 
DIRECTION  OF  CROSS  PRODUCT  OF  OSCULATING 
CONIC  ASYMPTOTE  BY  ECLIPTIC  POLE  VECTOR 

SINE  OF  DECLINATION  OF  OSCULATING  CONIC 
ASYMPTOTE  RELATIVE  TO  INCLINATION  SYSTEM 

SINE  OF  DIFFERENCE  BETWEEN  RIGHT 
ASCENSION  OF  ASCENDING  NODE  AND  RIGHT 
ASCENSION  OF  ASYMPTOTE  FOR  OSCULATING 
CONIC  RELATIVE  TO  INCLINATION  SYSTEM 
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SNDCP  SINE  OF  OECLINATION  PROBE  IMPACT  SITE 
RELATIVE  TO  PROBE-SPHERE  FRAME 

SNPHI  SINE  OF  ANGLE  BETWEEN  OSCULATING  CONIC 

asymptote  and  vector  to  desired  impact 

SITE 

SNRAP  SINE  OF  RIGHT  ASCENSION  OF  PROBE  IMPACT 
SITE  RELATIVE  TO  PROBE-SPHERE  FRAME 

SNTHTS  SINE  OF  TRUE  ANAMOLY  OF  OSCULATING  CONIC 
ASYMPTOTE 

STA  SINE  OF  TRUE  ANAMOLY  ON  OSCULATING  CONIC 
AT  GIVEN  STATE 

STPS  SINE  OF  TRUE  ANAMOLY  ON  OSCULATING  CONIC 
AT  PROBE  SPHERE 

SV  PLANETOCENTRIC  ECLIPTIC  UNIT  VECTOR  IN 

01 RECTI ON  OF  OSCULATING  CONIC  ASYMPTOTE 

SW  SINE  OF  RIGHT  ASCENSION  OF  ASCENDING  NODE 

OF  OSCULATING  CONIC  IN  INCLINATION  SYSTEM 

TEST  QUANTITY  USED  TO  DETERMINE  PROPER  POLARITY 
OF  WV 

THS  RIGHT  ASCENSION  IN  DEG  OF  OSCULATING 

CONIC  ASYMPTOTE  REALTIVE  TO  INCLINATION 
SYSTEM 

TPSCA  TIME  INTERVAL  IN  SEC  FROM  PROBE  SPHERE  TO 
CLOSEST  APPROACH  ON  OSCULATING  CONIC 

TSICA  TIME  INTERVAL  IN  SEC  FROM  SOI  TO  CLOSEST 
APPROACH 

TV  CROSS  PROOUCT  OF  SV  BY  RV 

VINF  MAGNITUDE  OF  HYPERBOLIC  EXCESS  VELOCITY 
IN  KM/ SEC 

VS  SQUARE  OF  MAGNITUDE  OF  PLANETOCENTRIC 

VELOCITY  IN  KH**2/SEC**2 

WEQ  PLANETOCENTRIC  EQUATORIAL  UNIT  VECTOR  IN 

DIRECTION  OF  OSCULATING  CONIC  ANGULAR 
MOMENTUM 

WMAG  UN-NORMALIZED  magnitue  OF  WV 
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WV  PLANETOCENTRIC  ECLIPTIC  VECTOR  IN 

OIRECTION  OF  OSCULATING  CONIC  ANGULAR 
MOMENTUM 

W RIGTH  ASCENSION  OF  ASCENDING  NOOE  OF 

OSCULATING  CONIC  RELATIVE  TO  INCLINATION 
SYSTEM 

Z PLANETOCENTRIC  EQUATORIAL  UNIT  VECTOR  IN 

OIRECTION  OF  OSCULATING  CONIC  ASYMPTOTE 
OR  PLANETOCENTRIC  ECLIPTIC  UNIT  VECTOR  IN 
ORB IT  PLANE  90  DEG  AOVANCEO  FROM  GIVEN 
POSITION  VECTOR 


COMMON 

COMPUTEO/USEO* 

B 

OCP 

DIN 

RAP 

XATAR 

COMMON 

COMPUTED* 

AAUX 

BOR 

BOT 

DBR 

OBT 

COMMON 

USED* 

CAINC 

DRCA 

FOUR 

IRC ADC 

NOPAr 

ZERO 

oc 

DSI 

GMX 

ITARR 

ONE 

DDCP 

OTAR 

HALF 

KEYTAR 

RCA 

OINC 

ECSS 

IINCRA 

KUR 

RPS 

ORAP 

EQECP 

IPHASE 

NINETY 

TWO 
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IMPCT  Analysis 

The  subroutine  IMPCT  is  responsible  for  computing  all  of  the 
target  parameter  data  associated  with  auxiliary  targeting*  Three 
basic  types  of  target  information  are  required  given  a planeto- 
centric  ecliptic  state.  First,  what  are  the  actual  Biplane  pierce 
point  coordinates,  B^«T  and  B^-R?  Second,  what  are  the  values  of 

the  actual  target  parameters?  These  may  be  triples  of  inclina- 
tion, radius  and  time  at  closest  approach  or  right  ascension, 
declination,  and  time  at  impact*  Third,  what  are  the  B-plane 
pierce  point  coordinates,  B^T  and  B^*R  on  the  current  tra- 
jectory required  to  achieve  the  desired  values  of  the  corres- 
ponding actual  target  parameters.  In  addition  to  supplying  .all 
of  this  information,  IMPCT  places  it  in  the  appropriate  loca- 
tions for  sorting  by  the  processing  routine  TAR0PT. 

Whenever  IMPCT  is  called,  it  first  calculates  the  actual  B-plane 
pierce  point  coordinates  for  the  current  state.  In  the  process 
it  also  calculates  other'  useful  information  about  the  osculating 
conic,  including  the  parameters  a,  e,  0,  W,  T and  R.  For  the 
equations  giving  these  quantities  see  the  subroutine  STIMP  analy- 
sis. If  option  flag,K0PT  is  1,  only  this  information  is  desired 
and  a return  to  the  calling  program  is  executed. 

The  values  of  the  actual  target  parameters  are  calculated  if  K0PT 
is  not  1*  If  the  targets  are  inclination,  radius,  and  time  at 
closest  approach,  K0PT  must  be  2.  If  TARGET  is  not  in  the  second 
phase  of  a two-phase  targeting  case,  the  target  parameters,  i, 
rCA*  are  °^ta^ne(^  By  conic  extrapolation  from  the  current 

state  (SOI); 


rCA=  3 (1  " e)* 


(1) 


Let  D denote  the  transformation  from  planeto centric  ecliptic 
coordinates  to  the  planetocentric  equatorial  frame: 


i - cos  1 


(2) 


If  TARGET  is  in  a second  phase,  the  virtual  mass  program  will 
have  integrated  the  trajectory  all  the  way  to  closest  approach 
rather  than  stopping  at  the  SOI.  Hence  refined  values  of  all 
three  target  parameters  are  available  from  VMP. 
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Suppose,  on  the  other  hand,  that  the  targets  are  right  ascension 
a,  declination  6,  and  time  at  impact.  Then  K0PT  must  be  3* 

Again  if  TARGET  is  not  involved  in  a second  phase,  these  target 
parameters  are  calculated  by  extrapolating  conically  from  the  SOI. 
Let  and  p_^  denote  the  position  vectors  of  the  vehicle  at  im- 
pact in  the  planetocentric  ecliptic  and  probe-sphere  frames, 
respectively.  Let  C denote  the  transformation  fiom  the  former 
frame  to  the  latter.  Obviously 

% = C^l*  (4) 

The  right  ascension  and  declination  at  impact  are  then 

[K/Mi]* 

and 

* ■ si"-'  [(pi)3/°i]  • 

Let  At^  and  At^  be  bke  from  the  sphere  of  influence  and 

from  the  probe  sphere  to  closest  approach,  respectively.  Let  0^. 

denote  the  true  anomaly  on  the  osculating  conic  at  the  probe 
sphere : 


(5) 


(6) 


cos  0^.  = {?/  Vj  - 1/ajy/  e 


(7) 


where 

p = a (1  - e2)  (8) 

is  the  serailatus  rectum  of  the  conic.  Since  impact  occurs  before 
peripsis, 

sin  = “ jl  “ cos2  6-j- . (9) 

With  the  true  anomalies  on  the  conic  at  the  current  state  and  at 
the  probe  sphere  available,  IMPCT  cals  HYPT  to  determine  At 

oC 

and  At^.  as  above,  tgQj  denotes  the  time  from  the  sphere 

of  influence  to  periapsis, 

*1  - 4 SOI  + (“sc  - 4cic)-  <10> 
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Finally,  if  TARGET  is  involved  in  the  second  phase  of  targeting, 
the  virtual-mass  algorithm  integrates  the  trajectory  all  the  way 
to  the  first  integration  increment  inside  the  probe  sphere.  Hence 
the  preceding  conic  extrapolation  formulae  can  be  used  to  obtain 
accurate  impact  target  parameters  by  replacing  the  state  at  the 
SOX  with  the  first  state  inside  the  probe  sphere. 

IMPCT  calculates  the  desired  B-plane'  pierce  point  coordinates 
B^*T  and  B^*R  ^or  either  the  i and  or  a and  B target  options 

if  the  flag  ITARR  is  2 indicating  that  a new  control  iteration  is 
being  made.  The  equations  and  logical  flow  of  this  calculation 
for  the  former  target  option  is  given  in  the  subroutine  IMPACT 
while  tose  for  the  latter  are  presented  in  DIMPCP. 
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Obtain  nearest 
vi rtual -mass 
state  inside 
probe-sphere 
(from  VMP) 

© 
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Reset  impact 
RA  and  DEC  to 
nearest  possible 
targetable  pair 
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SUBROUTINE  INPUTZ 

PURPOSE*  TO  CONVERT  THE  INPUT  INFORMATION  FOR  THE  VIRTUAL  MASS 
PROGRAM  INTO  VARIABLES  COMPATIBLE  WITH  THE  REST  OF  THE 
VIRTUAL  MASS  SUBROUTINES 

CALLING  SEQUENCE*  CALL  INPUTZtRS, NTP, IPRINT) 

ARGUMENTS  RS<6»  I INERTIAL  STATE  OF  S/C  AT  INITIAL  TIME 

NTP  I COOE  OF  TARGET  BOOY 

IPRINT  I INITIAL  INFORMATION  PRINT  FLAG 
=0  PRINT  INITIAL  DATA 
*i  00  NOT  PRINT  INITIAL  DATA 

SUBROUTINES  SUPPORTED*  VMP 

SUBROUTINES  REQUIRED*  TIME  SPACE 

LOCAL  SYMBOLS*  0 INTERMEDIATE  VARIABLE  FOR  PRINTOUT 

PURPOSES 

02  JULIAN  DATE  OF  FINAL  TRAJECTORY  TIME 

IOAY  DAY  OF  CALENOAR  DATE  OF  FINAL  TRAJECTORY 
TIME 


IHR  HOUR  OF  CALENDAR. DATE  OF  FINAL  TRAJECTORY 
TIME 

IMIN  MINUTE  OF  CALENOAR  DATE  OF  FINAL 
TRAJECTORY  TIME 

IMO  MONTH  OF  CALENOAR  DATE  OF  FINAL  TRAJECTORY 
TIME 

INERR  NOT  USED 

IP  CODE  OF  I-TH  PLANET  FOR  STORAGE  OF  PMASS 

ARRAY 

IYR  YEAR  OF  CALENOAR  OATE  OF  FINAL  TRAJECTORY 
TINE 

LDAY  OAY  OF  CALENOAR  OATE  OF  INITIAL  TIME 
LHR  HOUR  OF  CALENOAR  OATE  OF  INITIAL  TIME 
LMIN  MINUTE  OF  CALENOAR  OATE  OF  INITIAL  TIME 
LMO  MONTH  OF  CALENDAR  DATE  OF  INITIAL  TIME 
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NOT  filmed 
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LYR  YEAR  OF  CALENDAR  OATE  OF  INITIAL  TIME 

SECI  SECOND  OF  CALENDAR  DATE  OF  FINAL  TIME 

SECL  SECOND  OF  CALENOAR  OATE  OF  INITIAL  TIME 

TP  INTERMEDIATE  VARIABLE  FOR  CALCULATION  OF 

COMPUTING  INTERVAL 

COMMON  COMPUTED/USEO I V 


COMMON 

COMPUTED! 

F 

NBODY 

INC 

IPR 

ITRAT 

KOUNT 

COMMON 

USED! 

NBODYI 

NO 

PMASS 

ZERO 
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' SUBROUTINE  I^SERS 

PURPOSE!  TO  CONTROL  THE  PROCESSING  QF  AN  ORBITAL  INSERTION  EVENT. 

CALLING  SEQUENCE!  CALL  XNSERS(DTINE) 

ARGUMENT I DTIME  0 TIME  INTERVAL  FROM  DECISION  TO  EXECUTION 

(DAYS) 

SUBROUTINES  SUPPORTED!  GIQANS 

SUBROUTINES  REQUIRED!  COPINS  NONINS.  PECEQ 

LOCAL  SYMBOLS!  DA  DESIRED  SEMIMAJOR  AXIS 

DE  DESIRED  ECCENTRICITY 

DI  DESIRED  INCLINATION 

ON  DESIRED  LONGITUDE  OF  ASCENDING  NOOE 

DHTP  DESIRED  ARGUMENT  OF  PERIAPSIS  SHIFT  OR 

DESIRED  ARGUMENT  OF  PERIAPSIS 

ECEQI  ECLIPTIC  TO  EQUATORIAL  TRANSFORMATION 

GM  GRAVITIONAL  CONSTANT  OF  TARGET  BODY 

I EX  UNEXECUTAJBLE  EVENT  CODE 

*0  ..EVENT  IS  EXECUTABLE 
=1  NO  EXECUTABLE  SOLUTION. FOUND 

I OPT  INSERTION  STRATEGY  OPTION 

=1  COPLANAR  INSERTION 
=2  ^NONPLANER  INSERTION 

RSP  SPACECRAFT  POSITION  IN  ECLIPJIC  COORDS 

RSQ  SPACECRAFT  POSITION  IN  EQUATORIAL  COORDS. 

TEX  TINE  INTERVAL  TO„  EXECUTION  (SECONOS) 

VSP  SPACECRAFT  VELOCITY  IN  ECLIPTIC  COORDS 

VSQ  SPACECRAFT  VELOCITY  IN  EQUATORIAL,.  COORDS 

COMMON  COMPUTED/ US ED!  QELTAV 

COMMON  COMPUTED!  DELV  KTIM  KNIT 

COMMON  USED!  ALNGTH  Dl  F KMXQ  KTAR 

KUR  NBOD  NB  NTP  PMASS 
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INSERS  Analysis 


INSERS  controls  the  processing  of  an  orbital  insertion  event.  The  sub- 
routine COPINS  and  NONINS  perform  the  actual  computations  for  the  co- 
planar  and  non-planar  options  respectively. 


INSERS  first  records  the  specific  parameter  values  for  the  current  orbit 
insertion  event. 


It  then  computes  the  current  state  (r,  v)  of  the  spacecraft  in  target- 
planet  centered  ecliptic  coordinates.  Subroutine  PECEQ  is  called  to 
compute  the  transformation  matrix  # from  ecliptic  to  equatorial 
coordinates.  The  planet  centered  equatorial  coordinates  are  then 


r » A r 

q ^ECEQ 


V,  = *ECEQ  V 


This  state  is  then  sent  to  COPINS  or  NONINS  for  the  computation  of  the 
insertion  velocity /\v  and  the  time  interval  t between  the  current  time 
and  the  time  at  which^the  insertion  should  take  place , (based  on  conic 
propagation  about  the  target  body).  The  correctlonAv  is  then  con- 
verted to  ecliptic  coordinates  ^ 

Av  = <i>T  Avq  

If  the  event  is  a compute-only  mode,  the  return  is  made  to  GIDANS. 

If  the  event  is  to  be  executed  the  flag  IEX  (set  by  COPINS  or  NONINS 
to  indicate  success  or  failure)  is  then  Interrogated.  If  IEX  = 1, 
no  acceptable  insertion  event  was  found  and  so  the  executive  flag 
KfrTIT  is  set  to  1 before  returning.  If  IEX  » 0 an  acceptable  Insertion 
was  determined  and  so  It  Is  set  up. 
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IN8ERS  Plow  Chart 
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JACOB-A 


SUBROUTINE  JACOB 

PURPOSE!  TO  APPROXIMATE  BY  DIVIOEO  DIFFERENCES  THE  JACOBIAN 

SENSITIVITY  MATRIX  OF  A VECTOR-VALUED  FUNCTION  WITH 
RESPECT  TO  A VECTOR  ARGUMENT 

ARGUMENT!  DELTA  I COMMON  PERTURBATION  SIZE  USEO  FOR  ALL 

COMPONENTS  OF  INDEPENDENT  VECTOR 

FPHI  I FUNCTION  RELATING  DEPENDENT  VECTOR  TO 

INDEPENDENT  VECTOR 

M I DIMENSION  OF  OEPENQENT  VECTOR 

N I DIMENSION  OF  INDEPENDENT  VECTOR 

PHI  I DEPENDENT  VECTOR 

RJC9M  0 JACOBIAN  SENSITIVITY  MATRIX  OF  PHI  WITH 
RESPECT  TO  X 

X I INDEPENDENT  VECTOR 

SUBROUTINES  SUPPORTED!  GAUSLS 
SUBROUTINES  REQUIRED!  FPHI 
LOCAL  SYM80LS!  IZERO 

PHtN  PERTURBED  VALUES  OF  DEPENDENT  VECTOR 

XSAVE  ORIGINAL  VALUE  OF  COMPONENT  OF  INDEPENDENT 
VECfOR  CURRENTLYj  BEING  PERTURBEO 


JACOBI-A 


SUBROUTINE  JACOBI 

PURPOSE!  TRANSFORMATION  OF  A REAL  SYMMETRIC  MATRIX  TO  DIAGONAL 
FORM  BY  A SUCCESSION  OF  PLANE  ROTATIONS  TO  ANNIHILATE 
THE  OFF-DIAGONAL  ELEMENTS  AND  SUBSEQUENT  COMPUTATION 
OF  THE  EIGENVALUES  ANQ  EIGENVECTORS  OF  THAT  MATRIX 

CALLING  SEQUENCE!  CALL  JACOBI (A, W2,VtN*F00> 

ARGUMENT!  A I MATRIX  TO  BE  OIAGONALIZEO  (HILL  BE 

DESTROYEO) 

H2  0 VECTOR  OF  EIGENVALUES  (LENGTH  N> 

V 0 MATRIX  OF  EIGENVECTORS  (N  BY  N DIMENSION) 

N I DIMENSION  OF  SQUARE  MATRIX  A 

FOD  I FINAL  OFF-DIAGONAL  ANNIHILATION  VALUE 

l ,v 

SUBROUTINES  SUPPORT EO I EIGHY  GUISIM  GUISS  PRESIM  SETEVN 

GUI DM  GUID  PRED 

LOCAL  SYMBOLS!  AIIP  INTERMEOX ATE  VARIABLE 

AIPIP  INTERMEDIATE  VAQIABLE-A(IPIP) 

AIPJP  INTERMEDIATE  VARI ABLE-A ( IPJP) 

AJPJP  INTERMEDIATE  VARIABLE-A ( JPJP) 

CS  INTERMEDIATE  VARIABLE 

i 

DEL  DIFFERENCE  IN  ELEMENTS  OF  A 

IREDO  COUNTER 

KR  DIMENSION  OF  A 

KRP1  KR  + 1 

NHl  N - 1 

RAD  INTERMEDIATE  VARIABLE 

SN  INTERMEDIATE  VARIABLE 

TN  INTERMEDIATE  VARIABLE 

ifl  LARGEST  OFF-DIAGONAL  ELEMENT 

VIIP  INTERMEDIATE  VARIABLE 
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JACOBI  Analysis 


The  Jacobi  method  subjects  a real,  symmetric  matrix  A to  a sequence  of 
transformations  based  on  a rotation  matrix: 


K 


COS  <f) 


K 


sin  0 

K 


-sin<i 
cos  4> 

K J 


where  all  other  elements  of  the  rotation  matrix  are  identical  with  the 
unit  matrix.  After  n multiplications  A is  transformed  into: 


A' 


A 0, 


0 


N 


If  0 is  chosen  at  each  step  to  make  a pair  of  off-diagonal  elements 

K. 

zero,  then  A'  will  approach  diagonal  form  with  the  eigenvalues  on  the 
diagonal.  The  columns  of  0^  correspond  to  the  eigenvectors  of  A. 

The  angle  of  rotation  0 is  chosen  in  the  following  way.  If  the 
four  entries  of  0 are  in  (i,i),  (i,j),  (j,i)  and  (j,j)  then  the  corres- 
K - 1 

ponding  elements  of  0^  A 0^  are 


ii 


2 ? 
a cos  0 + 2a , sin  0 cos  0 + a sin  0 
ii  ij  JJ 


= b^1  = (a^  - a^)  sin  0 cos  0 + a^(cos20  - sm20) 

b ■=  a sin^0  - 2a . sin  0 cos  0 + a . cos^0 

ij  JJ 


JJ  ii 

If  0 is  chosen  so  that  tan  20  = 2a^/(a 


- a .)  then 
ii  JJ 


b 


ij 


0 


Each  multiplication  creates  a new  pair  of  zeros  but  will  introduce  a non- 
zero contribution  to  positions  zeroed  out  on  previous  steps.  However, 
successive  matrices  of  the  form  O^-*-  ^ 0-^  (>2  wiii  approach  the 

required  diagonal  form. 

Reference:  Scheid,  Frances:  Theory  and  Problems  of  Numerical 

Analysis,  McGraw-Hill  Book  Company,  Inc,,  New  York, 
1968. 
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JACOBI  Flow  Chart 


Set  initial 
Set  W2(l ) - 


V matrix  to  unity, 
: A (1) 


Is  A a lx]  matrix? 


RETURN 


Set  T1  *=  ABS(A(2)).  Scan  upper 
off-diagonal  elements  of  matrix  A 
by  rows  to  find  greatest  element  in 
absolute  value.  Set  T1  equal  to 
this  element. 


Set  IREDO  - 0,  Scan  upper  off- 
diagonal  elements  of  matrix  A by  rows 
until  a value  greater  than  T1  is 
found.  Pivot  on  this  element. 


Compute  rotation  angle  0, 
Set  IREDO  - 1 


Compute  eigenvectors  and 
diagonalize  matrix  A. 


T1  ,LE.  F0D7 


Place  diagonal  from 
A into  W2 


NO 

V 

r ^ > 

( RETURN 

T1  « T1  * 0.001 
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SUBROUTINE  KTROL 

PURPOSE!  TO  COMPUTE  HELIOCENTRIC  ECLIPTIC  VELOCITY  CORRECTIONS 


GIVEN 

LAUNCH 

-PLANETOCENTRIC  VELOCITY  CONTROLS 

AUGUMFNT*  CON 

I 

VECTOR  OF  VELOCITY  CONTROLS  IN  KM/SEC  AND 
RAD 

DV 

0 

CORRECTION  IN  HELIOCENTRIC  VELOCITY  IN 
KM/SEC  PRODUCEO  BY  VELOCITY  CONTROLS 

IOPT 

I 

FLAG  INDICATING  WHICH  CONTROLS  ARE  TO  BE 
PERTURBED 

X 

I 

LAUNCH-PLANETOCENTRIC  ECLIPTIC  STATE 
VECTOR  AT  MANEUVER  POINT  IN  KM  AND  KM/SEC 

SUBROUTINES  SUPPORTEOt  TARMAX  TARGET 


SUBROUTINES  REQUIRED* 
LOCAL  SYMBOLS*  CSC 2 
' ' CSC3 

ONE 
RTO 
SNC2 
SNC3 
U 
V 

VM 

W 


USCALE  UXV 

COSINE  OF  IN-PLANE  ROTATION  ANGLE 
COSINE  OF  OUT-OF-PLANE  ROTATION  ANGLE 
CONSTANT  1. 

CONVERSION  FACTOR  FROM  RADIANS  TO  DEGREES 
SINE  OF  IN-PLANE  ROTATION  ANGLE 
SINE  OF  OUT-OF-PLANE  ROTATION  ANGLE 
CROSS  PRODUCT  OF  M BY  V 

LAUNCH-PLANETOCENTRIC  ECLIPTIC  UNIT  VECTOR 
IN  DIRECTION  OF  VELOCITY  At  MANEUVER 

poikr 

MAGNITUDE  OF  VELOCITY  VECTOR  AT  MANEUVER 
POINT 

LAUNCH-PLANETOCENTRIC  ECLIPTIC  UNIT  VECTOR 
IN  OIRECTI ON  OF  ANGULAR  MOMENTUM  AT 
MANEUVER  POINT 


WM  MAGNITUDE  OF  CROSS  PRODUCT  OF  LAUNCH- 

PLANETOCENTRIC  ECLIPTIC  POSITION  VECTOR 
AND  UNIT  VELOCITY  VECTOR  AT  MANEUVER  POINT 
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KTR0L  Analysis 

KTR0L  calculates  the  targeting  velocity  increment  Av  given  the 

T 

targeting  state  vector  X - (r  / v)  of  the  spacecraft  relative 
to  the  launch  planet  and  the  launch-p lane tocen trie  velocity  con- 
trols c^,  and  This  computation  is  required  in  two  dis- 

tinct situations.  The  first  is  in  calculating  the  sensitivity 
matrix  of  the  auxiliary  parameters  to  the  velocity  controls  by 
successively  perturbing  each  control  while  holding  the  remaining 
two  constant.  The  second  is  in  applying  the  control  correction 
indicated  by  the  Newton-Raphson  algorithm  to  arrive  at  the  next 
iterate  to  the  postimpulse  targeting  state. 

In  either  case  the  three  unit  vectors  V_,  TJ,'  and  W that  serve  to 
define  the  local,  spherical,  velocity- control  coordinate  system 
are  first  computed 


V ~ 

(1) 

_r  x v 

£“ll  r x vj| 

(2) 

U = W X V . 

(3) 

V specifies  the  direction  of  zero  latitude  and  zero  longitude 
in  the  control  frame  while  the  W axis  determines  the  or  polar 
direction.  Then  c^  and  are,  respectively,  the  latitude  and 

longitude  of  the  posttargeting  velocity  while  c^  is  the  increase 

in  length  of  that  velocity.  Figure  1 defines  the  controls  pic- 
torially  when  the  earth  is  the  launch  planet.  The  velocity  in- 
crements required  in  either  of  the  two  situations  mentioned  above 
can  readily  be  calculated  in  terms  of  the  vector  V_,  IJ,  and  W. 

First  consider  the  calculation  of  the  increment  Av^  produced  by 

perturbing  the  ith  control  an  amount  while  fixing  the  other 

controls  at  zero  as  required  in  the  sensitivity  approximation. 
KTR0L  performs  this  conputation  when  IOPT  - i.  Reasoning  from 
Figure  1 it  follows  immediately  that 


cxV 

(4) 

Av2  = 

||vj|  ^cos  c2  - 1^ 

I V + 

sin 

c2U 

(5) 

—3  = 

lull  (cos  V" 

| V + 

sin 

c3  £. 

(6) 
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Next  consider  the  calculation  of  the  increment  Av  produced  by 
perburbing  all  three  controls  simultaneously  as  required  in  the 
Newton— Raphs on  control  correction.  KTR0L  performs  this  computa- 
tion when  I0PT  = 4.  Reasoning  again  from  Figure  1 
r 1 


Av 


l 


(IU8+  ci) 


COS  Cg  COS  C3 


ut 


V 


+ (II  V |j+  c1j  sin  c2  cos  c3  U + (|  v|  + CjJsin  c3  W.  (7) 

Note  that  equation  (7)  degenerates  to  equations  (4),  (5),  and  (6) 
when  the  appropriate  controls  are  set  to  zero. 


KTR0L-3 


KTR0L  Flow  Chart 
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SUBROUTINE  LAUNCH 

PURPOSE!  TO  C0M»UTE  THE  INJECTION  TIME,  POSITION,  AND  VELOCITY 
FROM  THE  DEPARTURE  ASYMPTOTE  AND  THE  LAUNCH  PROFILE 

ARGUMENT*  01  JULIAN  DATE  AT  INJECTION  (OUTPUT) 

R7  POSITION  VECTOR  AT  INJECTION  (OUTPUT) 

VZ  VELOCITY  VECTOR  AT  INJECTION  (OUTPUT) 

SUBROUTINES  SUPPORTED!  HELIO 

SUBROUTINES  REQUIRED!  FPHEM  ORB  PECEQ 

LOCALS  SYMBOLS!  ANGLE  INTERMEDIATE  ANGLE  USEO  TO  OEFINE  TL 

AZI  PLANETOCENTRIC  AZUMUTH  AT  INJECTION  (DEG) 

BHAT  UNIT  VECTOR  NQRMAL  TO  SHAT  AND  WHAT  USEO 
TO  OEFINE  THE  P-Q  ELEMENTS  OF  THE 
DEPARTURE  HYPERBOLA 

BMAG  MAGNITUDE  OF  THE  NON-UNITIZED  BHAT  VECTOR 

COSFL  COSINE  OF  FL 

COSFS  COSINE  OF  FS 

COSGAM  COSINE  OF  GAMMAI 

COSPHX  COSINE  OF  FI 

COSSIG  CONSINE  OF  SIGMAL 

COSHL  CONSINE  OF  WL 

C3  VIS  VIVA  ENERGY  ON  THE  DEPARTURE 

HYPERBOLA 

OD  INTERMEDIATE  VARIABLE  USEO  TO  CALCULATE 

GREENWICH  HOUR  ANGLE 

t 

OLA  PLANETOCENTRIC  EQUATORIAL  DECLINATION  OF 

THE  DEPARTURE  ASYMPTOTE 

EQEC  TRANSFORMATION  MATRIX  FROM  ECLIPTIC  TO 

LAUNCH  PLANET  EQUATORIAL 


FL  TRUE  ANOMALY  OF  LAUNCH  SITE  POSITION 

VECTOR 
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FS  TRUE  ANOMALY  OF  DEPARTURE  ASYMPTOTE 

GAMKAI  FLIGHT  PATH  ANGLE  AT  INJECTION 
GH  GREENWICH  HOUR  ANGLE 

GMLP  GRAVITATIONAL  CONSTANT  OF  THE  LAUNCH 
PLANET  IN  KM**3/SEC**2 

HE  , ECCENTRICITY  OF  THE  DEPARTURE  HYPERBOLA 

ID  INTERMEDIATE  VARIABLE  USEO  TO  COMPUTE 

GREENWICH  HOUR  ANGLE 

I HR  HOUR  OF  INJECTION 

IMN  MINUTE  OF  INJECTION 

I INOEX 

J INDEX 

LHR  HOUR  OF  LAUNCH 

LMN  MINUTE  OF  LAUNCH 

PHAT  UNIT  VECTOR  POINTING  TOWARD  PERIAPSIS  OF 
THE  HYPERBOLA 

PHII  LATITUDE  OF  INJECTION 

PSIB  THE  ANGLE  FROM  LAUNCH  TO  INJECTION 

QHAT  UNIT  VECTOR  NORMAL  TO  PHAT  POINTING  IN  THE 
DIRECTION  OF  MOTION 

RAI  RIGHT  ASCENSION  AT  INJECTION 

RAL  RIGHT  ASCENSION  OF  DEPARTURE  ASYMPTOTE 

REFJD  JULIAN  DATE  FOR  1950 

SlfW?  HABITUDE  QF  THE  SPAC^AfT  POSITION  AT 
INJECTION 

RI  SPACECRAFT  POSITION  AT  INJECTION 

RLHATT  LAUNCH  SITE  POSITION  UNIT  VECTOR 
SECI  SECOND  OF  INJECTION 

SECL  SECONO  OF  LAUNCH 
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SHAT  UNIT  SPACECRAFT  VELOCITY  VECTOR  IN 
EQUATORIAL  SYSTEM  AT  INJECTION 

SI NFL  SINE  OF  FL 

SINFS  SINE  OF  FS 

SINGAM  SINE  OF  GAMMAI 

SINPHI  SINE  OF  FI 

SINSIG  SINE  OF  SIGNAL 

SINWL  SINE  OF  WL 

SLR  SXMI-LATUS  RECTUM  OF  THE  DEPARTURE 

HYPERBOLA 

TB  TIME  BETWEEN  LAUNCH  AND  INJECTION  IN 

SECONDS 

TC  LENGTH  OF  PARKING  ORBIT  COAST  IN  SECONDS 

TEST  INTERMEDIATE  VARIA8LE  TO  TEST  FOR 

VIOLATION  OF  AZIMUTH  CONSTRAINT 

TFRAC  INTERMEDIATE  VARIABLE  USED  TO  CALCULATE 
GREENWICH  HOUR  ANGLE 

THETAI  LONGITUDE  AT  INJECTION 

TH  INTERMEDIATE  VARIABLE  USED  TO  CALCULATE 

CLOCK  TIMES  OF  LAUNCH  AND  INJECTION 

TI  INJECTION  TIME  IN  DAYS  REFERENCED  TO 

MIDNIGHT  OF  THE  LAUNCH  OAY 

TL  LAUNCH  TIME  IN  DAYS  REFERENCED  TO  MIDNIGHT 

OF  THE  LAUNCH  DAY 

TMN  INTERMEDIATE  VARIABLE  USED  TO  CALCULATE 

CLOCK  TIMES  OF  LAUNCH  AND  INJECTION 

TSTAR  INTERMEDIATE  VARIABLE  USED  TO  COMPUTE 
GREENWICH  HOUR  ANGLE 

TWOFOR  CONSTANT  VALUE,  EQUAL  TO  24* 

VHL  MAGNITUDE  OF  VZ,  THE  INPUT  VECTOR  OF  THE  ■ 

DEPARTURE  ASYMPTOTE 

VIMAG  MAGNITUDE  OF  SPACECRAFT  VELOCITY  AT 
INJECTION 
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WHAT 

UNIT  VECTOR  NORMAL  TO  THE  LAUNCH  PLANE  IN 
EQUATORIAL  SYSTEM 

WL 

RIGHT  ASCENSION  OF  THE  LAUNCH  SITE 

WMA6 

MAGNITUDE  OF  THE  NON-UNITIZED  WHAT  VECTOR 

XTIM 

INTERMEDIATE  VARIABLE  USED  TO  COMPUTE 
CLOCK  TIMES  OF  LAUNCH  AND  INJECTION 

COMMON 

COMPUTED/USED  1 

SIGMAL 

COMMON 

COMPUTED  8 

NO 

COMMON 

USED* 

ALNGTH  OPA  FI  FOUR  KOAST 

NINETY  NLP  ONE  PHILS  PMASS 

PSI1  PSI2  RAD  RAP  RPRAT 

RP  THEDOT  THELS  TIM1  TIM2 

TM  TWO  VHPM  XP  ZERO 
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LAUNCH  Analysis 


LAUNCH  computes  the  injection  time,  position  and  velocity  from  the 
departure  velocity  *v^g  (computed  in  HELIO)  and  the  launch  profile  par- 
ameters input  by  the  user. 


The  rotation  matrix  4>  __ 

ECEQ 


defining  the  transformation  from  ecliptic  to 


equatorial  coordinates  is  first  computed  (PECEQ) . The  departure  velocity 
v is  then  normalized  and  converted  into  ecliptic  coordinates  to  yield 
HE  /v 

the  departure  asymptote  S . 


ECEQ 


(1) 


/\ 

Auxiliary  information  associated  with  S is  then  computed.  The  energy 
C^,  the  declination  <£g  and  the  right  ascension  0g  of  the  departure 

asymptote,  and  the  eccentricity  of  the  departure  hyperbola  are  given  by 


C 


3 


'HE 


2 


sin  <t>g  = S 


tan  0 

S 


S 

s 

x 


(2) 


where  r is  the  desired  parking  orbit  radius  and  n is  the  gravitational 
P 

constant  of  the  launch  planet. 

The  unit  normal  to  the  launch  plane  in  equatorial  coordinates  is  then 
computed.  W is  defined  by 


W = cos  $ sin  ZT 
z L L 


V. 


W 


-W  S S + kS  | 1 
z v z x L 


<SZ  + ^ ] 


2 2 

S -f  S 
x y 


- (W  S W S ) 
v v ± z z 


(3) 
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where  <f>.  is  the  launch  site  latitude,  2_  is  the  launch  azimuth, 

" L 

and  k * +1  or  -1  for  the  long  or  short  coast  time  models  respectively. 
The  second  equation  defines  an  implicit  constraint  on  2_ 


2 f 

2 cos  <p 

sin  2 < - 

L 2 

cos  <f> 


(4) 


The  right  ascension  at  launch  0 may  now  be  defined  by 

L 


cos  0 = 


W sin  <6  sin  2„  + W cos  2 
x L L y L 

W 2 - 1 
z 


W sin  $T  sin  2r  - W cos  2* 
sin  Q = -Z i h 2 h 

L 2 

W - 1 


(5) 


and  the  unit  vector  toward  the  launch  position  is  then 

« (cos  ^ cos  0^  , cos  sin  0L  ,*  sin$  ) 

The  complementary  unit  vectors  P,  Q defining  the  orientation  of  the 
hyperbola  within  the  launch  plane  are  now  introduced.  Let 


(6) 


B 


/\  /S 
S x W 


The  true  anomaly  of  the  departure  asymptote  is  cos  f 

✓x  ' s 

Q are  given  as 


1 

e ‘ 


/\ 

/\ 

V = 

S cos  f 

4-  B sin  £ 

s 

s 

/\ 

/\ 

/\ 

Q « 

S sin  f 

* B cos  f 

s 

8 

anomaly  of 

the  launch  si te  f 

, /N 

/\ 

cos 

£i  ■ \ 

• p 

r /\ 

/\ 

sin 

fL  ■ \ 

• Q 

(7) 


/X 

Then  P and 


(8) 


(9) 


The  angle  between  launch  and  injection  is 

i) 


*B  " 2'  " fL  + fI 


(10) 
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where  is  the  desired  true  anomaly  at  injection  read  in  as  input. 

The  coast  time  t£  may  now  be  computed  from 


t 

c 


V 


(*  + 


V 


* 


(11) 


where  ^ and  are  the  angles  of  the  first  and  second  burns  and 

1 2 

k.  is  the  inverse  of  the  parking  orbit  coast  rate,  all  of  which  are 
<P 

read  in  as  input. 

The  time  between  launch  and  injection  is  therefore 

t. 


B 


h + c2  + fcc 


(12) 


where  t^  and  t^  are  the  input  time  durations  of  the  first  and  second 
burns . 


The  unit  vector  to  injection  is 


/\ 

P cos 


f + Q sin  f 
I I 


(13) 


The  semi-latus  rectum  p is 

„ . uSi.  - i) 

°3 

The  radius ^magnitude  to  injection  is 


1 + e cos  f 


The  injection  speed  is 


TI  - V"°3  + if 


The  path  angle  at  injection  is 

Vmp" 


cos  r *» 

1 K VT 

i i 


(14) 


(15) 


(16) 


(17) 
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The  Injection  latitude  is 
sin  <J>  ** 


<18) 


The  injection  right  ascension  is 
tan  0 


h 

X 


(19) 


The  injection  longitude  is 

6 


0 + Q - 0 - CJt 

L I L B 


(20) 


where  0 is  the  longitude  of  the  launch  site  and  0)  is  the  rotation  rate 
L 

of  the  launch  planet,  both  being  read  in  as  input* 

The  injection  azimuth  is 

S - cos  (f  - £_)  sin  <£_ 

. Z B X __  I 


cos  2 


sin  (f  - tS)  cos  <f> 
e I X 


The  launch  time  on  the  day  of  launch  is 

( 0 - 0 - GHA)  mod  2?r 

, I*  I» 


60 


where  GHA  is  the  Greenwich  hour  angle  at  0n  UT  of  the  launch  date 

o o o 1-3  3 

GHA  “ 100 .07554260  + 0.9856473460  T + 2.9015  x 10  T, 


where  T,  * days  past  0 January  1,  1950. 
a 

The  injection  radius  vector  is  now  computed  from 

/\ 

V, 


R_ 


V*' 


V ~ -1 

1 h 

The  injection  time  is 


( W xf  ) cos  rx  + it.  sin  r 


T + t + t 
o L B 


(21) 


(22) 


(23) 


(24) 


(25) 
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where  T is  the  Julian  date  of  the  launch  calendar  date, 
o 

The  injection  position  and  velocity  are  now  rotated  into  the  ecliptic 
plane.  The  position  and  velocity  of  the  launch  planet  at  the  time  Tj  are 

computed  and  added  to  the  injection  state  to  get  the  heliocentric  injection 
state. 


Reference:  Space  Research  Conic  Program,  Phase  III,  May  1,  1969,  Jet 

Propulsion  Laboratory,  Pasadena,  California. 
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LUNA-A 


SUBROUTINE  LUNA 

PURPOSES  TO  CONTROL  THE  GENERATION  OF  THE  ZERO  ITERATE  FOR  LUNAR 
TARGETING 

CALLING  SEQUENCES  CALL  LUNA 


SUBROUTINES  SUPPORTED S ZERIT 
SUBROUTINES  REQUIRED 8 LUNYAR  HULTAR 


LOCAL  SYMBOLS*  I INDEX 


OSPH  ORIGINAL  SPHERE  OF  INFLUENCE  OF  TARGET 
PLANET  IN  A.U, 


COMMON 

COMPUTED/USED S 

OTAR 

COMMON 

COMPUTED* 

BCON 

RCA 

TTOL 

COMMON 

USED* 

ALNGTH 

ONE 

SPHERE 


CAI 

I8ARY 

ICOORO 

PCON 

RPE 

SNA 

TCA 

TSPH 

OT 

FOUR 

KUR 

NTP 

RP 

SPHFAC 

TEN 

ZDAT 
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LUNA  Analysis 


LUNA  is  the  controlling  subroutine  for  lunar  zero  iterate  targeting.  It 
first  serves  an  interface  role  m which  it  initializes  constants  and 
renames  variables  for  the  other  lunar  targeting  routines.  It  then  calls 
LUNTAR  for  the  targeting  of  the  lunar  patched  conic.  When  that  is  com- 
pleted it  calls  MULTAR  for  the  targeting  of  the  multi  conic  trajectory. 
It  then  returns  control  to  PRELIM. 


LUNA  Flow  Chart 
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• SUBROUTINE  t UNCON 

PURPOSEt  TO  COMPUTE  THE  ACTUAL  VALUES  OF  THE  TARGET  PARAMETERS 
(A,  8DT,  BOR)  FOR  A LUNAR  PATCHED  CONIC  TRAJECTORY 
DETERMINED  BY  CONTROL  VALUES  OF  ALPHA,  DELTA,  AND  THETA* 

‘ CALLING  SEQUENCES  CALL  LUNC ON ( ALPHAI, DEL TAI,THETAI, AM, 80T , BOR, 

SIGMAL,ITR) 

ARGUMENTS I ALPHAI  I ANGLE  DEFINING  PERIGEE  OF  TRANSFER  CONIC 

(RAD) 

c 

DELTAI  I OELINATIOW  OF  LSI  POINT  CRAD) 

THETAI  I RIGHT  ASCENSION  OF  LSI  POINT  (RAD) 

AM  0 SEMIMAJOR  AXIS  OF  LUNAR  CONIC 

BDT  0 IMPACT  PARAMETER  OF  LUNAR  CONIC 

8DR  0 IMPACT  PARAMETER  OF  LUNAR  CONIC 

SIGNAL  I/O  NOMINAL  LAUNCH  AZIMUTH  OR  THAT  REQUIRED 

ITR  0 OUTPUT  ITERATION  COUNTER  „ 

SUBROUTINES  SUPPORTED*  LUNTAR 

SUBROUTINES  REQUIRE? * CAREL  IMPACT 

LOCAL  SYMBOLS*  ALPHA  ALPHAI  IN  DEGREES 

- AOUT  TEMPORARY  LOCATION  FOR  AM 

CC  ANGULAR  MOMENTUM  OF  THE  EARTH  CENTERED 

TRANSFER  CONIC 

CDEL  COSINE  OF  DELTAI 

CECC  ECCENTRICITY  OF  THE  EARTH  CENTERED 
TRANSFER  CONIC 

COSOEC  COSINE  OF  DECLIN 

COSPL  COSINE  OF  PHIL 

COSPS  INTERMEDIATE  VARIABLE  TO  TEST  FOR 
. VIOL4TIN  OF  SIGNAL  CONSTAINT  , 

COSSIG  COSINE  OF  SIGNAL 

CP  SEMI-LATUS  RECTUM  OF  EARTH  CENTERED 

TRANSFER  CONIC 


LUNCOH-B 


CSMA  SE HI-MAJOR  AXIS  OF  EARTH  CENTERED  TRANSFER 

CONIC 

CT  COSINE  OF  THETAI 

DELTA  OELTAJ  IN  DEGREES 

EH  ECCENTRICITY  OF  LUNAR  CONIC 

GAMMI  INTERMEDIATE  ANGLE  USEQ  TO  COMPUTE  EARTH 
CENTERED  TRANSFER  CONIC 

I INDEX 

PHIL  LATITUDE  OF  LAUNCH  SITE 

POS  SPACECRAFT  POSITION  AND  VELOCITY  ‘.AT  LSI 

POINT  IN  MOON-CENTERED  EARTH  EQUATORIAL 
COORDINATES 

PPH  DUMMY  VARIABLE  FOR  CALL  CAREL 

QQM  DUMMY  VARIABLE  FOR  CALL  TQ..  CAREL 

RAD  RADIANS  TO  DEGREES  CONVERSION  FACTOR 

RHAG  MAGNITUDE  OF  THE  RI  VECTOR 

ROUT  VELOCITY  AT  LSI  IN  GEOCENTRIC  EQUATORIAL 
SYSTEM 

RPM  RADIUS  OF  PERIAPSIS  OF  LUNAR  CONIC 
SDEL  SINE  OF  DELTA! 

SHAT  UNIT  VECTOR  POINTING  FROM  THE  EARTH  TO  THE 
POINT  DEFINED  BY  DELTAS,  THETAJ 

SISM  SIGNAL  IN  DEGREES 

SINOEC  SINE  OF  DECLSN 

SIMPS  INTERMEDIATE  VARIABLE  USED  TO  TEST  FOR 
VIOLATION  OF  SIGMAL  CONTRACT 

SXftSXG  SINE  OF  SIGNAL 

SX  SINE  OF  THETAS 

TAM  TRUE  ANOMALY  OF  THE  LUNAR  CONIC 
CORRESPONDING  TO  THE  RSI  VECTOR 
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TFLP  TXME  OF  FLIGHT  FROM  PERIAPSIS  CORRESPOND- 
ING TO  THE  RSI  VECTOR 

THETA  THETAI  IN  DEGREES 

VMAG  SPACECRAFT  VELOCITY  MAGNITUDE  USED  TO 
CALCULATE  DECLIN 

WHAT  UNIT  VECTOR  NORMAL  TO  THE  EARTH-PHASE 

WHAG  ANGULAR  MOMENTUM  CONSTANT 

WM  ARGUMENT  OF  PERIAPSIS  OF  THE  LUNAR  CQNIC 

X * 

WWM  DUMMY  VARIABLE  FOR  CALL  TO  CAREL 

XHAT  SAME  AS  SHAT  VECTOR 

XXM  INCLINATION  OF  THE  CONIC 

XNM  LONGITUDE  OF  THE  ASCENOING  NODE  OF  THE 
LUNAR  CONIC 


YHAT  CROSS  PRODUCT  QF  THE  HHAT.AND  XHAT  VECTORS 
COMMON  COMPUTED/USED  t RI  RSI 

COMMON  COMPUTEO#  QECLIN 

COMMON  USED 8 EMU  EQLQ  KOAST  NINETY  ONE 

PHILS  RHQ  RPE  SIGMA  TMU 

TSPH  TWO  ZERO  1 
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LUNCON  Analysis 


The  point  of  intersection  of  the  Earth- centered  conic  with  the  lunar 
sphere  of  influence  (LSI)  is  determined  by  the  angles  and  6, 
Relative  to  the  moon  in  Earth- equatorial  coordinates  that  point  is 


Rgj  cos & cos  0 
Rgj  cos  5 sin  9 
Rgj  sln.6 


(1) 


where  Rg^  is  the  radius  of  the  LSI.  Relative  to  the  earth  that  point  is 

Rq  “ + rSI  ^ 

where  Rm  is  the  radius  vector  to  the  center  of  the  moon  at  the  time  of 
LSI  intersection  tg^  in  earth'  equatorial  coordinates. 


There  are  at  most  two  planes  which  contain  R 

<1 

latitude  0 and  azimuth  £ constraintSo  Let 
to  either  of  these  planes.  Now  let  G^,  0^ 


and  satisfy  the  launch 

ft  denote  the  unit  normal 
denote  the  unit  vector. 


longitude,  and  latitude  of  the  launch  site.  Construct  a local  horizon 
coordinate  system  at  the  launch  site  as  indicated  in  Figure  1. 


Figure  1.  Local  Horizon  Coordinate  System 
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A \ O 


A - - A ^ A „ , A ^ A 


Here  Z « — , Y-^  is  normal  to  in  the  Z-O-R^  plane,  and  **  Y^  x Z^. 
h *1, 

In  the  local  horizon  system,  the  position  and  velocity  are  very  simply 
represented 

^ - k [o,  o,  g T 


* v(costf  sinX  > cos  5 cosX  , sin#] 


(3) 


where  X is  the  launch  azimuth  and  $ is  the  declination  wrt  the  local 
horizontal.  Thus 


K iS 
I'M! 


-cosX 

sinX 

0 


(4) 


The  transformation  matrix  converting  a vector  in  the  local  horizon  system 
to  the  equatorial  system  is 


-sin  0, 


cos  0. 


■sin  0^  cos  0^ 
•sin  0£  cos  0^ 


cos  0. 


cos  0T  cos  0 

Xi  ii 

cos  0^  sin  0^ 


sin  0. 


(5) 


Therefore  since  = T , the  z- component  of  W in  the  equatorial 
coordinate  system  is 


A 

w„ 


cob  0^  sinX 


(6) 


Since  ^ is^a  un**:  norma^  it  must  satisfy  both  = 1 and  » 0 

where  £ “ — ^ . Solving  for  the  two  remaining  components  of 

R 


« . +f  Ji  - <t2  + tf2) 

Wv  Z V z — X \ ' z z ' 


(7) 


t2  + S2 
x y 


ft  - (ft  S +W  S ) 

w “ y y z z 


(8) 


To  eliminate  the  ambiguity  of  sign  in  (7)  the  short-coast  plane  corresponding 
to  the  negative  sign  is  used.  Note  that  (7)  also  imposes  a constraint  on 
the  launch  azimuth 
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_ l - S 

Bln2Z  ^ (9) 

cosZ0 

L 

Now  choose  ft  « ft  x ft  to  complete  a right  hand  system  (ft,  ft,  ft).  Then 
the  position  at  LSI  relative  to  the  earth  is  (R^,  0,  0).  Now  let  Ot 

determine  the  perigee  pointAin  the  orbital  plane  ft  = 0)  measured 
counterclockwise  from  the  ~S  axis.  Then  the  perigee  point  is  (-rp  cosa, 

-rp  sin  a , 0)  where  rp  is  the  parking  orbit  radius  (input) . Therefore 

the  true  anomaly  of  the  earth  centered  conic  at  the  LSI  is  given  by 


fgI  = 180  - a. 


The  two  equations 


R_ 


a(l  - e2) 
1 + e cos  f, 


and  r 

P 


solved  simultaneously  for  the  semi-major  axis  a 
of  the  unique  earth  centered  conic 


(10) 

= a(l  - e)  may  be 
and  eccentricity  e 


e 

g 


r„  • *1  cos  fsi 


(11) 


a 

g 


(12) 


Thus  the  velocity  of  the  earth  centered  conic  at  the  LSI  is  in  the 
(ft,  ft,  W)  system 


\j""a(l-e2)  e sin  f 
^a(l-e2)  / Rj 
0 


(13) 


Transforming  to  the  earth  equatorial  coordinate  system 


(14) 
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Now  if  (%q>  VMq)  are  the  position  and  velocity  of  the  moon  at  t 
Earth-centered  coordinates  and  (Kq,  Vq)  are  the  position  and  velocity  of 
the  spacecraft  at  tgj  then  tne  state  of  the  spacecraft  with  respect  to 
the  moon  at  tgj  is  in  earth  equatorial  coordinates 


v"* 

VQ  mq 


(15) 


Using  the  transformation  matrix 


defining  transformations  from 


earth  equatorial  to  lunar  equatorial  the  state  in  the  system  is 


rsq  " ^EQLQ  rSI 


^EQLQ  VSI 


(16) 


The  impact  plane  parameters  B*T  and  B*S,  and  the  inclination 
may  now  be  computed  by  calling  subroutines  ACTB  and  CAREL. 
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SUBROUTINE  LUNTAR 


PURPOSES  TO  GENERATE  A PATCHED  CONIC  TRAJECTORY  FOR  LUNAR 

MISSIONS  CONSISTENT  WITH  TARGET  PARAMETERS  AT  THE  MOON 
OF  (ACA®  RCA,  ICA®  TCA)  ANO  LAUNCH  PARAMETERS  (PHIL, 
THETAL,  SIGNAL) « 

CALLING  SEQUENCES  CALL  LUNTAR 


SUBROUTINES  SUPPORTED S 
SUBROUTINES  REQUIRED  8 

LOCAL  SYMBOLS  8 AA 


ALN6TH 

ALPHAI 

ALPI 

AUDAY 
A US 
AU 


LU.NA 

LUNCON  EPHEM  IMPACT  MATIN  ORB 
PEGEQ 

SEMI "MAJOR  AXIS  OF  THE  LUNAR  CONIC  FOR  THE 
NOMINAL  TRAJECTORY 

SAS3E  AS  AU 

REFINED  ANGLE  (RADIANS)  DEFINING  POSITION 
OF  PERIGEE  ON  THE  TRANSFER  CONIC 
C NOMINALLY  §ET  TO  FIVE  DEGREES) 

PERTURBED  VALUE  OF  ALPHAI  USED  TO  SOLVE 
FOR, RCA 9 IC.A,  ACA 

CONVERTS  KM/SEC  TO  AU/OAY 

SAME  AS  AU 

CONVERTS  KILOMETERS  (KM)  TO  ASTRONOMICAL 
UNITS  ( AU) 


BOR  B POT  R FOR  THE  NOMINAL  TRAJECTORY 

BDT  Q DOT  T FOR  THE  NOMINAL  TRAJECTORY 

BIND  OBTAINABLE  INCLINATION  USED  TO  CALCULATE 
QESIREO  B DOT  Tj  B DOT  R 

DELI  PERTURBED  VALUE  OF  DELTAI  USEO  TO  SOLVE 
FOR  RCA*  IGA g ACA 

DELTAI  REFINED  ANGLE  {RADIANS)  DEFINING  DECLIN- 
ATION OF  THE  LSI  POINT  (NOMINALLY  SET  TO 
DELTAO) 


DELTAO  DECLINATION  OF  THE  MOONS  POSITION  AT  TIME 
TSX 

DELI  TIME  FROM  TSI  TO  TCA  IN  SECONDS 

DEL  REFINING  VALUES  FOR  ALPHAI®  DELTAI®  THETAI 
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DENOM  INTERMEDIATE  VARIABLE  USED  TO  LIMIT  THE 
OEL  VALUES  FQR  EACH  ITERATION 

ECC  DESIREO  ECCENTRICITY  OF  THE  LUNAR  CONIC 

ECEQ  TRANSFORMATION  MATRIX  FROM  ECLIPTIC  TO 
EARTH  EQUATORIAL 

ECLQ  TRANSFORMATION  MATRIX  FROM  ECLIPTIC  TO 
LUNAR  EQUATORIAL 

ERR  VECTOR  OF  DIFFERENCES  BETWEEN  DESIREO  AND 

NOMINAL  VALUES  OF  B DOT  T,  B DOT  R,  ACA 

ITAR  LOGIC  CONTROLLING  INDICATOR 

=1  IMPROVE  ACA  ONLY 
S 2 IMPROVE  RCA,  ICA,  ACA 

ITER  ITERATION  COUNTER  FOR  NOMINAL  TRAJECTORIES 

IT  ITERATION  COUNTER  FOR  PERTURBED  TRAJECT- 

ORIES 

J 

I INDEX 

J INDEX 

K INDEX 

ONEMAT  UNIT  DUMMY  MATRIX  FOR  CALL. TO  IMPACT 

PAI  DUMMY  VARIABLE  FOR  CALL  TO  LUNCON  WHEN 

ITAR=1 

PARP  OUMM.Y  VARIABLE  FOR  CALL  TO  LUNCON  WHEN 
IT.ARsl 

PART A INTERMEDIATE  VARIABLE  USED  TO  REFINE  ACA 
WHEN  ITAR=1 

PARTW  INTERMEDIATE  VARIABLE  USED  TO  COMPUTE  DELT 

t 

PARTX  INTERMEDIATE  VARIABLE  U.SEO.  TO  COMPUTE  DELT 

i % i 

PARTY  INTERMEDIATE  VARIABLE  USED  TO  COMPUTE  DELT 

PARTZ  INTERMEDIATE  VARIABLE  USED  TO  COMPUTE  OELT 

PHI  MATRIX  RELATING  PERTURBATIONS  IN  ALPHA! » 

OELTAI,  AND  THETAI  TO  CHANGES  IN  8 DOT  T, 

B DOT  R,  AND  ACA 


LUNT&R-C 


PSI  TARGETING  MATRIX  RELATING  PERTURBATIONS 

IN  8 DOT  T,  B DOT  R,  AND  ACA  TO  CHANGES 
IN  ALPHAI t DELTA!*  AND  THETAI 

PTAR  PERTUR8E0  BALUES  OF  AA,  BOT*  BOR*  USED  TO 
CALCULATE  PHI 

RAD  CONVERTS  DEGREES  TO  RADIANS 

RMAG  MAGNITUDE  OF  THE  RMQ  VECTOR 

SXGMAL  LAUNCH  AZIMUTH  SET  IN  LUNCON  (NOMINALLY 
00  DEGREES) 

TAR  NOMXNAL  VALUES  OF  AA*  8DT  AND  BOR  USEO  TO 

CALCULATE  PHI 

THEI  PERTURBED  VALUES  OF  THETAI  USED  TO  SOLVE 
FOR  RCA*  XCA  $ AND  ACA 

THETAI  REFINED  ANGLE  (RADIANS)  OEFINING  RIGHT 
N ASCENSION  OF  THE  LSI  POINT  (NOMINALLY  SET 
TO  THETAO) 


THETAO 

RIGHT 

ASCENSION 

1 OF  THE 

MOORS 

POSITION 

TIME  TSI 

TM 

CONSTANT  VALUE 

OF  SECONDS  PER 

DAY 

TSICA 

OUMMY 

ARGUMENT 

FOR  CALL 

TO  IMPACT 

COMMON 

COWPUT ED/USED « 

OTAR 

EQLQ 

ITAG 

RMQ 

RSI 

. 

l 

t 

THU 

TSI 

COMMON 

COMPUTED 8 

EMU 

NO 

RME 

COMMON 

USED  8 

BOON 

DECLIN 

FIVE 

ONE 

OTAR 

PC  ON 

PNASS 

RCA 

SMA 

TCA 

TSPH 

TTOL 

TWO 

XP 

ZERO 
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LUNTAR  Analysis 


LUNTAR  generates  a patched  conic  trajectory  arriving  at  closest  approach 
to  ghe  Moon  at  a specified  time  t^  and  meeting  prescribed  target 

values  at  that  point  as  well  as  standard  launch  quantities.  The  target 
parameters  are 


CA 


CA 

lCA 


CA 


Julian  date  of  required  closest  approach  (CA) 
referenced  1900 
Radius  of  CA 

Inclination  (relative  to  lunar  equator)  at  CA'*' 
Semi-major  axis  at  CA 


The  launch  parameters 

0 Launch  site  latitude 

L 

0 launch  site  longitude 

L 

£ Launch  azimuth  (nominally  set  to  90°) 

L 

Tp  Parking  orbit  radius 

The  eccentricity  of  the  moon-centered  hyperbola  may  be  computed 


CA 


1 - 


CA 

*CA 


(1) 


where  a <0.  The  hyperbolic  time  4t  to  go  from  R (radius  of  lunar 
CA  SI 

sphere  of  influence  (LSI))  to  periapsis  may  be  computed  from 


4t  * aCA’  eCA’  RSI^ 


(2) 


where  fl  is  the  lunar  gravitational  constant.  The  time  at  which  the 
M 

probe  should  Intersect  the  L£I  is  then 


(3) 


The  inclination  must  be  specified  according  to  the  format  described  in 
IMPACT.  For  0<.i<90°  the  inclinations  +i  prescribe  posigrade  orbits 
while  180  +i  define  retrograde  orbits.  The  positive  signs  denote  approaches 
from  the  north,  the  negative  signs  designate  southern  approaches. 
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The  position  R^  and  velocity  of  the  moon  at  tgj  relative  to  the 

earth  in  earth  ecliptic  (EC)  coordinates  are  computed  by  calling  ORB  and 
EPHEM.  Transformation  matrices  0ECEq  and  0-gQ^Q  defining  transformations 

from  EC  to  EQ  (earth  equatorial)  and  EQ  to  IXJ  (lunar  equatorial)  respectively 
are  then  computed  by  PECEQ.  The  position  and  velocity  of  the  moon  in  the 
EQ  system  are 


R a 0 R 

MQ  ECEQ  ME 

~v  m "0"  ‘v“ 

VMQ  ^ECEQ  ME 


(4) 


Call  the  point  of  intersection  of  the  vector  R^q  with  the  LSI  the  bullseye 

point.  Then  in  moon-centered  Earth-equatorial  coordinates  the  vector  to 
the  bullseye  point  is  given  by 


(5) 


From  this  vector  one  can  calculate  a set  of  angular  coordinates  ( 5Q>  Qq) 

of  the  bullseye  point.  Any  other  point  on  the  LSI  is  determined  by  giving 
general  coordinates  (3,  0)  - ( 3Q  + 45,  0q  + 40). 


Now  let  such  a set  of  coordinates  by  given.  They  determine  a vector  R_^ 

from  earth  to  the  LSI  (in  the  EQ-system).  The  vector  R-j.  along  with  the 

launch  parameters  0^,  0^,  then  determines  the  plane  of  the  Earth-LSI 

transfer  (see  LUNCON) . Now  let  a.  be  measured  counter-clockwise  in  that 
plane  from  -R^.  The  parameter  a specifies  the  location  of  the  perigee 

point  of  the  transfer  conic,  thus  the  vector  to  perigee  is  fixed  as  "r^ 

where  the  perigee  magnitude  r is  fixed  as  input.  The  vectors  ~r"  and 

P P 

K then  determine  a unique  conic  for  the  Earth-LSI  phase  (see  LUNCON) . 

Let  the  state  at  the  LSI  on  that  conic  (relative  to  Earth-equatorial  coordin- 
ates) be  denoted  by  TLj.,  The  state  relative  to  the  moon  may  then  be 

(jomputgd  as 


(6) 
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Figure  1*  Lunar  Patched  Conic  Targeting 


Thus  the  elements  relative  to  the  moon  may  be  computed  from  standard  conic 
formula*  The  three  angles  ( <5,  0,  Ct ) form  a set  of  independent  controls 
to  be  varied  to  meet  the  three  constraints  (r^,  iCA,  a^) . The  controls 
are  depicted  in  Figure  1. 


LUNTAR  uses  the  standard  Newton- Raphs on  algorithm  to  refine  the  controls  to 
meet  the  constraints.  This  targeting  is  done  in  two  stages.  In  the  first 
stage  the  controls  <5  and  Q are  held  fixed  at  the  bullseye  point  ( ©q) 

while  Ct  is  varied  until  the  semi-major  axis  target  a is  met.  Then 

LA 

all  three  controls  are  varied  to  satisfy  the  three  target  constraints.  The 
preliminary  targeting  of  a^  is  essential  to  the  success  of  the  procedure. 

Once  the  in  initial  targeting  is  completed,  the  semi  major  axis  of  future 
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iterations  in  the  second  stage  will  not  vary  much  from  the  target  value 
a^.  For  such  iterates  the  excess  hyperbolic  velocity  at  the  moon  will  be 

generally  constant.  This  permits  tne  substitution  of  the  auxiliary  impact 
plane  parameters  B*T  and  B»R  for  the  less  linear  parameters  of  r and 

*CA  (see  . In  LUNTAR  the  impact  plane  parameters  are  referenced  to 

the  IQ  system. 


The  procedure  may  now  be  described  in  detail.  Suppose  tnat  in  the  first 
stage  of  targeting  the  current  value  of  g is  a . Using  the  controls 

is. 

6n*  ®A)  the  resulting  semi-major  axis  is  found  to  be  a (LUNCOK). 


K 


A perturbed  value  for  the  first  control  is  then  used  (a  +A&,  dn,  9 ) 

K 0 0 

producing  a perturbed  value  of  semi-major  axis  (a^  + 4a) . The  (k+l)st 
value  of  a is  then  given  by  the  standard  numerical  differencing  approximation 


a 


K+l 


4c* 
A a 


(aCA  " V 


(7) 


The  second  stage  of  the  targeting  of  the  lunar  patched  conic  uses  the 

vector  analogue  of  the  above  procedure.  The  current  iterate  (a  , d > 

K.  K 

is  input  to  LUNCON  to  obtain  the  current  target  values  (a  , 

1C 


K 


B-T  , B*R  ) . 
K K 


The  target  values  B»T  and  B*R  are  determined  from  subroutine  IMPACT 

and  the  errors  of  the  kth  iterate  are  computed  (e  , e_„,,  eD_).  If  all 

SL  B1  BJR. 

three  errors  are  within  tolerances,  the  procedure  is  terminated.  Other- 
wise the  sensitivity  matrix  0 is  computed  by  numerical  differencing  as 
in  the  first  stage 


) 


The  inverse  of 
to  be 


4a  4a-  4a 

g o 0 

A6  » ,49 

4b»T  4b ‘T.  4b  *T 

a o e 

£g  Ad  4e  w 

4b- r^  4b.r^  4b.Ro 

Act  aJ~  4e 

is  the  targeting  matrix.  The  k+l  iterate  is  then  defined 
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LUNTAR-5 


This  procedure  is  repeated  until  convergence  is  achieved. 
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MA.IN-A 


PROGRAM  HAIM 

PURPOSE#  TO  CONTROL  THE  SIMULATION  OVERLAY.  SCHEME 

SUBROUTINES  SUPPORTED#  NOME 

SUBROUTINES  REQUIRED  I DATAS  SIMUL  PRNTS4 

LOCAL  SYMBOLS#  IRUNX  TOTAL  NUMBER  OF  OATA  CASES 

IRUN  OATA  CASE  COUNTER 
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SUBROUTINE  MATIN 

PURPOSE*  TO  COMPOTE  THE  INVERSE  OF  A MATRIX. 

CALLING  SEQUENCE*  . CALL  MATIN <A*R»N) 

ARGUMENTS  A (N  * N)  I MATRIX  TO  BE  INVERTED 

R(N,N!  0 RESULTANT  INVERSE  OF  MATRIX  A 

N I DIMENSION  OF  A ANO  R 

SUBROUTINES  SUPPORTED*  HYELS  N AVM  BIAIM  POICOM  GU3SS 

TARMAX  GUIO  LUNTAR  MULTAR  GAIN1 

GAIN2  GAUSLS  TPRTRG 

SUBROUTINES  REQUIRED*  NONE 

LOCAL  SYMBOLS*  AL  A (LL)  + S (INTERMEDIATE  VARIA8LE) 

ALBAR  INTERMEDIATE  VARIABLE 

B INTERMEDIATE  VECTOR 

OETR  INTERMEDIATE  VECTOR 

G INTERMEDIATE  VECTOR 

IX  INTERMEDIATE  VECTOR 

KR  DIMENSION  OF  A 

MIXI  INTERMEDIATE  VARIABLE 

MIXJ  INTERMEDIATE  VARIABLE 

MIXL  INTERMEDIATE  VARIABLE 

S INTERMEDIATE  VARIABLE 

X INTERMEDIATE  VARIABLE 

XOFF  INTERMEDIATE  VARIABLE 

COMMON  USED*  EM7  EM9  . ONE  ZERO 
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SUBROUTINE  MATPV 
PURPOSE*T6  MULTIPLY  TWO 


ARGUMENT*  A I 

B I 

C 0 

L I 

M I 

N I 


SUBROUTINES  SUPPORTEOS 


MATRICES  OF  REAL-VALUEO  ELEMENTS 
PRE-FACTOR  MATRIX 
POST-FACTOR  MATRIX 
PROOUCT  MATRIX 
NUM8ER  OF  ROWS  OF  A 

NUMBER  OF  COLUMNS  OF  A(=NUNBER  OF  ROWS 
OF  B) 

NUMBER  OF  COLUMNS  OF  8 
DIMPCP  IMPCT  TPPROP  TPRTRG 


LOCAL  SYMBOLS*  II  INOEX  USEO  IN  ADDRESSING  ELEMENTS  OF  C 

TREATED  AS  COLUMN  VECTOR 


JJ  INOEX  USEO  IN  ADDRESSING  ELEMENTS  OF  A 

TREATED  AS  COLUMN  VECTOR 

KK  INDEX  USEO  IN  ADORESSING  ELEMENTS  OF  B 

TREATEO  AS  COLUMN  VECTOR 
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SUBROUTINE  MEAN 

PURPOSE  I TO  PROPAGATE  AND  UPDATE  MEANS  OF  ACTUAL  Sf  ATE  AND 

PARAMETER  DEVIATIONS  AND  ACTUAL  STATE  ANO  PARAMETER 
ESTIMATION  ERRORS 


CALLING  SEQUENCE* 

CALL 

MEANT  EX TP  »EXS TP, I FLAG, I FLAG i, NR) 

ARGUMENTS*  EXTP 

I 

STATE  DEVIATIONS  OR  ESTIMATION  ERRORS 

EXSTP 

I 

30LVE-FQR  PARAMETER  DEVIATIONS  OR 
ESTIMATION  ERRORS 

4 

I FLAG 

I 

=1  FOR  UPDATE 
= 2 FOR  PROPAGATION 

IFLAG1 

I 

=1  FOR  DEVIATION  MEANS 
=2  FOR  ESTIMATION  ERROR  MEANS 

NR 

I 

NUMBER  OF  ROWS  IN  THE  OBSERVATION  MATRIX 

SUOROUTINES  SUPPORTED* 

ERRANN 

SETEVN 

PROBE 

GENGID 

PRED 

LOCAL  SYM80LS*  IGO 

INTERNALLY  SET  FLAG 

SUM 

INTERMEDIATE 

STORAGE 

ZERO 

VALUE 

0.0. 

COMMON 

COMPUTED/USEDt 

DUME 

EXSIP 

EU 

EV 

EH 

EXIF 

COMMON 

USED* 

AK 

AL 

AM 

AN 

G 

< 

H 

NDIMi 

NDIM2 

N0IM3 

N0IM4 

• 

PHI 

S 

T XU 

TXW 

TXXS 
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MEAN  Analysis 


Subroutine  MEAN  propagates  and  updates  actual  estimation  error 
means  over  the  time  interval  [t^»  t^+^]  separating  two  successive 

measurements  or  events.  The  equation^  programmed  in  MEAN  are  in- 
dependent of  the  filter  algorithm  employed  to  generate  gain  ma- 
trices. Gain  matrices  are  assumed  to  have  been  computed  during  a 
prior  call  to  subroutine  GNAVM.  The  propagation  equations  pro- 
grammed in  MEAN  are  also  used  to  propagate  actual  deviation  means 
over  the  time  interval  separating  two  successive  guidance  events. 
The  update  equations,  of  course,  are  not  used  in  this  situation. 


The  actualestimation  errors  for  position/velocity  state,  solve-for 
parameters,  dynamic  consider  parameters,  measurement  consider  param- 
eters, and  ignore  parameters  are  defined,  respectively,  by  the 
following : 


\+l  = Vl  Vl 

X = & - x 

Sk+1  sk+l  Vl 
Vl  = Vl  ‘ Vl  = ' uo 
Vl  = Vl  " Vl  " “ Vo 


(1) 

(2) 

(3) 

(4) 


k+1 


Vl 


- w. 


k+1 


= - w 


(5) 


where  (")  indicates  estimated  values,  and  x,  x , u , v , and  w 

s o o o 

are  the  actual  deviations  from  nominal. 


Only  the  means  of  x and  xg  are  paopagated  and  updated  since  the 

me^ns  of  y,  x,  and  w are  constant.  The  propagation  equations  are 
summarized 


where  4>,  0 ,6  , and  9 are  state  transition  matrices  over 

XX  XU  xw 

s 


'•V  W‘ 
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MEAN -2 


Before  the  means  of  x and  x can  be  updated  at  a measurement,  the 

s 

mean  of  the  measurement  residual  must  first  be  computed  using 

E['k+l]  ■ - H • E[*k+l]  ' M • E[\+1]  + G“°  + L'o  + N"o  (8) 
where  H,  M,  G,  L,  and  N are  observation  matrix  partitions. 

The  update  equations  are  summarized  as: 


E[\+l]  E[*k+i]  + *>-+1  ' E[ek+l] 

E[4l]  ‘ E[\J  + \+l  • E[>+1] 


where  and  are  the  filter  gain  matrices. 

To  propagate  actual  deviation  means  requires  that  x and  x be 

s 

replaced  by  X and  X , respectively,  in  equations  (6)  and  (7) , and 

s 

that  the  minus  signs  in  equations  (6)  be  replaced  with  plus  signs. 
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ENTER 
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MEN0-A 


SUBROUTINE  M£NO 

PURPOSE  I COMPUTE  ASSUMED  ANO  ACTUAL  MEASUREMENT  NOISE  COVARIANCE 
MATRICES  IN  THE  ERROR  ANALYSIS  PROGRAM 

CALLING  SEQUENCE  * CALL  MEMO  ( MMCOQE  »ICODE ) 

ARGUMENT  I ICOOE  I INTERNAL  CODE  USED  TO  DISTINGUISH  BETWEEN 

THE  TWO  ALTERNATIVES  LISTEO  ABOVE 

MMCODE  I MEASUREMENT  MODEL  CODE 

SUBROUTINES  SUPPORTEOt  ERRANN 


COMMON 

COMPUTED* 

R 

RPR 

COMMON 

USED* 

IMNF 

MNCN 

IGMNF 

GMNCN 
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MEN0  Analysis 

The  linearized  observation  equation  employed  by  the  navigation 
process  is  given  by 


6Yk  -«*«*+  r,k 

where  6Y,  is  the  measurement  deviation  from  the  nominal  measure- 

Pl  A 

ment,  is  the  augmented  observation  matrix,  6X^  is  the  augmented 

state  deviation  from  the  nominal  augmented  state,  and  is  the 
assumed  measurement  noise. 

The  function  of  subroutine  MEN0  is  to  compute  the  assumed  measure- 
ment noise  covariance  matrix 


\ - ‘[\  v] 

if  IC0DE  = 0.  The  constant  measurement  noise  variances  associated 
with  all  available  measurement  types  are  stored  in  the  vector  MNCN. 
Subroutine  MEN0  selects  the  appropriate  element  from  this  vector 
to  construct  R^. 


If  IC0DE  ^ 0 the  actual  measurement  noise  covariance  matrix 


..  K " E[»i  "kT] 

where  is  the  actual  measurement  noise,  is  computed  instead.  In 

this  case  subroutine  MEN0  selects  the  appropriate  actual  measure- 
ment noise  variances  from  the  vector  GMNCN  to  construct  &' . 


The  accompanying  flow  chart  indicates  the  computational  flow  for 
computing  R^.  An  identical  procedure  is  used  to  compute 
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SUBROUTINE  MENOS 

PURPOSE!  COMPUTE  ASSUMED  AND  ACTUAL  MEASUREMENT  NOISE  COVARIANCE 
MATRICES  IN  THE  SIMULATION  PROGRAM 

CALLING  SEQUENCE!  CALL  MENOS(MMCODE,ICODE) 

ARGUMENT!  ICODE  I INTERNAL  CODE  USED  TO  DISTINGUISH  BETWEEN  , 

THE  TWO  ALTERNATIVES  LISTED  ABOVE 

MMCODE  I MEASUREMENT  MODEL  CODE 

I < < » t-  * , t * f 

•SUBROUTINES  SUPPORTED!  SIMULL 

R 

AR 

AVARM  IAMNF  IMNF  MNCN  ZERO 


COMMON  COHPUTED/USEDi 
COMMON  COMPUTEOI 
COMMON  USED! 
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MEN0S  Analysis 


The  linearized  observation  equation  employed  by  the  navigation  process  is 
given  by 

K ■ \A  \ 

A 

where  tfY^  is  the  measurement  deviation  from  the  nominal  measurement, 
is  the  augmented  observation  matrix,  is  the  augmented  state  deviation 

from  the  nominal  augmented  state,  and  *7^  is  the  assumed  measurement  noise. 

The  actual  measurement  Y^  is  given  by 


+ bk  + 


V 


k 


where  Y,  is  the  ideal  measurement,  which  would  be  made  in  the  absence  of 
-k  . 

instrumentation  errors,  is  the  actual  measurement  bias,  and 

represents  the  actual  measurement  noise. 


Subroutine  MENOS  performs  two  functions..  It's  first  function,  which  is 
identical  to  that  of  subroutine  MENO,  is  to  compute  the  measurement  noise 
covariance  matrix  R^  which  describes  the  statistics  of  noise  7] The 

constant  variances  for  the* assumed  measurement  noises  associated  with  all 

available  measurement  devices  are  stored  in  the  vector  MNCN.  Subroutine 

MENOS  selects  the  appropriate  elements  from  this  vector  to  construct  the 

measurement  noise  covariance  matrix  ,R,  . 

i k 


The  second  function*  of  MENOS  is  to  compute  the  measurement  noise  covariance 


matrix 


*k 


which  describes  the  statistics  of  the  actual  noise  V 


k* 


The 


constant  variances  for  the  actual  measurement  noises  associated  with  all 
available  measurement  devices  are  stored  in  the  vector  AVARM.  Subroutine 
AVARM  selects  the  appropriate  elements  from  this  vector  to  construct  the 
measurement  noise  covariance  matrix 
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SUBROUTINE  MIN  IQ 

PURPOSE*  TO  COMPUTE  EXECUTION  ERROR  COVARIANCE  MATRIX  FOR 
MINI-PROBE  RELEASE 

CALLING  SEQUENCE*  CALL  MINIQ (IS ACT ) 

ARGUMENTS*  ISACT  I ISACT=0  IF  OPERATING  IN  ERRAN 

=1  IF  OPERATING  IN  SIMUL 

SUBROUTINES  SUPPORTEO*  PROBE 

LOCAL  SYMBOLS*  ZERO  0.0 

CAPA  MINI-PROBE  ROLL  RELEASE  ANGLE 
CCAPA  COS(CAPA) 

DTR  RAOIAN  VALUE  OF  ONE  DEGREE 
DVDA  PARTIAL  OF  V WRT  ALFA 

DVDO  PARTIAL  OF,  V WRT  DELT 

DVDL  PARTIAL  OF  V WRT  BOOM  LENGTH 

OVDP  PARTIAL  OF  V ’WRT  PHI 

OVDW  PARTIAL  OF  V WRT  OMEGA 

FACTR  2*PI/3  RADIANS 

SCAPA  SIN ( CAPA) 

U INTERMEDIATE  VECTOR 

V INTERMEDIATE  VECTOR 

XX  INTERMEDIATE  VECTOR 

ZZ  INTERMEDIATE  VECTOR 

COMMON  COMPUTEO/USED8  ADV  QT 


COMMON  USED* 

ABW 

ALFA 

DA 

DD 

DELT 

DL 

YYL 

DP 

DW 

EE 

XPHI 
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MINIQ  Analysis 

Subroutine  MINIQ  computes  the  execution  error  covariance  matrix  and 
the  actual  execution  error  associated  with  the  spin-release  of  a 
minlprobe.  The  actual  execution  error  is  computed  only  when  MINIQ 
Is  used  in  the  simulation  program  SIMUL. 

The  velocity  increment  Imparted  to  the  ith  probe  at  release  is 
given  by 

if 1 = w x l1  (1) 

where  o>  is  the  spin  vector  and  it  denotes  the  position  of  the  ith 
probe  relative  to  the  primary  vehicle.  Referred  'to  the  u v h co- 
cordinate  system,  which  is  defined  in  subroutine  TPRTRG,  equation 
(1)  becomes 

A^3-  = 9.  to  cosj|  <j>  + (i-1)  u + sin  <j>  + (1-1)  |^-]  (2) 

2ir  ! 

where  $ + (i-1)  -j-  is  the  roll  release  angle  of  the  ith  probe, 
and  u and  ^ are  unit  vectors. 

Define  p = (to,  i,  a,  5,  <{>)  as  the  release  execution  parameter  vec- 
tor, where  to  is  the  spin  rate  magnitude,  i is  the  boom  length, 
u is  the  right  ascension  of  the  spin  axis,  6 is  the  declination  of 
the  spin  axis,  and  (j>  is  the  roll  release  angle.  Then  the  release 
execution  error  can  be  written  as 
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MINIQ-2 


The  execution  error  covariance  matrix  is  defined  as 

,T 


Q1  = E 


dA^1  • 6AV1 


(5) 


and  the  element  of  matrix  is  given  by 

JtC 


«jk-E 


5 9AV^ 

L ^ Sp* 


5 3AV 

L,  3^  6fn 

n=l  n 


(6) 


Assuming  E 


6 6 

P P 
L *m  Mr 


m=l  m 

= 0 for  m ^ n,  equation  (6)  reduces  to 


, 5 3AV*  3AV^  r 


L n 


m 


(7) 


The  partial  derivatives  required  for  evaluation  of  equations  (4) 
and  (7)  are  summarized  as: 


SA^1 


- & < cos 


* + (i-l)  f1 


<1  + sin 


<i>  + (i-D 


3A^1  S I , . ..  ..  2ir  I . 

"IT  “ w )COS  [*  + (i_1)  3“)u 


+ sin 


4>  + (i-l) 


2ir 


2ir 


3AV1 

3a 


3AV1 

3S 

3A^X 
3 4> 


= SU o | cos  | + (i-l)  J |“  + sin 


- 5,a)  {cos 


♦ + (i-D  f1 


3u 

36 


+ sin 


<i>  + (i-l) 


<J>  + (i-l) 


H 

y 

i 

2 IT  ■ 

3v 

3 

3 a 

2tt 

3v 

3 J 

36 

(8) 

(9) 

(10) 

(ID 


- Zoo 


- sin 


<t>  + (i-l) 


2ir 


u + cos 


(j>  + (i-l)  — - J v (12) 
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where 

u = (sin  a,  - cos  a,  0) 

v = (sin  6 cos  a,  sin  6 sin  a,  - cos  &) 

— ^ = (cos  a,  sin  a,  0) 

3a 

9 v 

*t* — = (-  sin  <$  sin  a,  sin.  6 cos  a,  0) 

c)0C 

If  = (0,  ,0,.  0) 

^ A 

— “ (cos  6,  cos  a„  cos  6 sin,  a,  sin  6) 
do 

when  referred  to  the  ecliptic  coordinate  system. 


(13) 

(14) , 

(15) 

(16) 

(17) 

(18) 
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SUBROUTINE  HOME  NT 

PURPOSE  * TO  CONVERT  AN  ARBITRARY  NON-SQUARE  2ND  MOMENT  MATRIX  TO 
THE  ASSOCIATED  CORRELATION  MATRIX  PARTITION  AND  PRINT  IT, 
ALSO  COMPUTE  AND  PRINT  EIGENVALUES,  EIGENVECTORS , AND 
HYPERELLIPSOIDS 

CALLING  SEQUENCE  * CALL  MOMENT  (N  i ,N 2,  EXYT  , EX,  EY  , CORN , CORN  1,  ABL,  II , 
, I2,IFLAG,IF2) 

ARGUMENTS*  N1  I NUMBER  OF  ROWS  IN  2ND  MOMENT  MATRIX 

N 2 I NUMBER  OF  COLS  IN  2ND  MOMENT  MATRIX 

EXYT  I N1  BY  N2  2ND  MOMENT  MATRIX  OF  X ANO  Y 

EX  I N1  VECTOR  MEAN  OF  X 

EY  I N2  VECTOR  MEAN  OF  Y 

CORN  I 2ND  MOMENT  MATRIX  CORRESPONDING  TO  VECTOR 

X OF  DIMENSION  N1 

CORWi  I 2ND  MOMENT  MATRIX  CORRESPONDING  TO  VECTOR 

Y OF  DIMENSION  N2 

ABL  I VECTOR  OF  ROW  LABELS  CORRESPONDING  TO 

CORWI 

11  I ROW  INOEX  MAXIMUM 

12  I COL  INDEX  MAXIMUM 

I FLAG  I =0  DO  NOT  COMPUTE  EIGENVECTORS,  ETC, 

IF2  I =0  DO  NOT  COMPUTE  STD,  OEV. 

SUBROUTINES  SUPPORTED*  G PRINT  GENGID 

SUBROUTINES  REQUIRED*  EIGhJY 

LOCAL  SYMBOLS*  OUT  INTERMEDIATE  ARRAY 

PEIG  'INTERMEDIATE  VECTOR 

ROW  INTERMEDIATE  VECTOR 

SQP  INTERMEDIATE  VECTOR 

SQP1  INTERMEDIATE  VECTOR 


VEIG 


INTERMEDIATE  VECTOR 


350-5 


moment-b 


COMMON  USED* 


Z7  INTERMEDIATE  VARIABLE 

FOP  FOV 
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M0MENT  Analysis 

T 

Subroutine  M0MENT  transforms  an  arbitrary  2nd  moment  matrix  E[xy  ] 
into  a correlation  matrix  and,  if  x « y,  into  a vector  of  standard 
deviations.  The  transformation  consists  of  two  steps: 

T 

1)  Transform  E[xy  ] into  the  covariance  matrix 
com  (x,y)  = E[xyT]  - E[x]  • E[yT]; 


2)  Transform  cov  (x,y)  Into  the  correlation  matrix  having 
correlation  coefficients 


where 


P<4  " 


ij  o.O. 

J i 3 


i ¥ j 


* E[xi  yj! 


a.  = E[x?]* 
1 x 


a.  E[y^ 

a = 


Subroutine  M0MENT  writes  out  the  correlation  matrix  and,  if  they 
exist,  the  standard  deviations.  Subroutine  M0MENT  can  also  compute 
and  write  out  the  eigenvalues,  eigenvectors,  and  hyperellipsoid 
of  cov  (x,y)  if  x **  y. 
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SUBPOUTINF  MPPROP 


PURPOSE*  TO  GENERATE  A 
SUBROUTINES  SUPPORTED* 
SUBROUTINES  REQUIRED! 
LOCAL  SYMBOLS*  DELTM 

DELTPS 

JCLS 


TIME  HISTORY  OF  MAIN  PROBE  TRAJECTORY 
GIOANS 
VMP 

MAXIMUM  DURATION  OF  PROPAGATION  IN  OAYS 

l v 

SAVED  VALUE  OF  VMP  VARIABLE  DELTP 
SPECIFYING  TIME  INTERVAL  IN  DAYS  BETWEEN 
SUCCESSIVE  TRAJECTORY  STATUS  PRINTOUTS 

SAVED  VALUE  OF  VMP  CONDITION  CODE  ICL 
INDICATING  WHETHER  OR  NOT  CLOSEST  APPROACH 
HAS'  BEEN  REACHED 


ICL2S  SAVED  VALUE  OF  VMP  TERMINATION  CODE  ICL2 

SPECIFYING  WHETHER  OR  NOT  TRAJECTORY  IS  TO 
BE  STOPPEO  AT  CLOSEST  APPROACH 

IEPS  SAVED  VALUE  OF  VMP  FLAG  IEPHEM  SPECIFYING 
WHETHER  OR  NOT  ORB  IS  TO  BE  CALLED  BEFORE 
CALLING  EPHEM 

INPRS  SAVEO  VALUE  OF  VMP  VARIABLE  INPR 

SPECIFYING  NUMBER  OF  INTEGRATION  STEPS 
BETWEEN  SUCCESSIVE  TRAJECTORY  STATUS 
PRINTOUTS 

IPRNTS  SAVEO  VALUE  OF  VMP  FLAG  IPRINT 

SPECIFYING  WHEHTER  OR  NOT  TRAJECTORY 
INFORMATION  IS  TO  BE  PRINTED 

ISPHS  SAVED  VALUE  OF  VMP  CONDITION  CODF  ISPH 
SPECIFYING  WHETHER  OR  NOT  TRAJECTORY  IS 
TO  BE  STOPPED  AT  SOI 

TRTHS  SAVED  VALUE  OF  VMP  VARIA3LE  TRTM 

INDICATING  ELAPSEO  TIME  IN  OAYS  FROM 
START  OF  TRAJECTORY 

XSF  FINAL  HELIOCENTRIC  ECLIPTIC  STATE  VECTOR 


OF  MAIN 
KM/SEC 

PROBE 

AFTER 

PROPAGATION 

IN  KM  AND 

COMMON 

COMPUTED/ USED* 

DELTP 

IPGS 

TRTM 

FIVE 

IPRINT 

ICL 

ISPH 

ICL  2 
KUR 

IEPHEM 

NINETY 

COMMON 

COMPUTED* 

DELTP 

IPCSP 

ICL 

IPRINT 

ICL  2 
ISPH 

IEPHEM 

RPSP 

INCMT 

TRTM 
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MPPR0P  Analysis 

MPPR0P  serves  the  single  purpose  of  providing  a time  history  of 
the  targeted  main  probe  trajectory  from  release  to  the  appropri- 
ate stopping  condition.  The  process  of  providing  such  a time 
history  is  classified  as  a separate  type  of  guidance  event  in 
the  GIDANS  execution  logic*  Although  the  main  probe  propagation 
event  is  currently  only  applied  in  the  N0MNAL  program  to  propa- 
gate the  main  probe  once  it  begins  to  deviate  from  the  bus 
trajectory  due  to  some  guidance  maneuver  on  the  latter,  it  could 
he  used  to  treat  any  branched  trajectory* 

On  being  called  by  GIDANS,  MPPR0P  first  prints  out  the  title 
"Main  Probe  Propagation  Event"  followed  by  the  heading  !,Main 
Probe  Approach  Trajectory*"  Next  it  stores  the  current  space- 
craft heliocentric  ecliptic  state  and  the  VMP  trajectory  con- 
dition and  instrument  flags  so  that  they  can  be  returned  to  after 
the  event.  Then  the  VMP  flags  are  set  for  propagating  the  main 
probe.  Codes  are  used  to  stop  the  trajectory  after  90  days  of 
propagation  or  at  closest  approach  but  not  at  the  sphere  of 
influence*  The  VMP  stopping  condition  of  impacting  the  planet 
is  slightly  modified*  Rather  than  using  N0MNAL,s  own  value  of 
target-planet  radius,  MPPR0P  transmits  to  VMP  the  radius  of  the 
probe  sphere  input  by  the  user  and  applied  throughout  probe 
targeting*  The  print  routine  is  activated  and  the  print  incre- 
ments are  set  at  5-day  and  100-integration  steps.  Next  VMP  is 
called  to  propagate  and  print  the  trajectory  until  a stopping 
condition  is  reached*  Pinally,  the  original  spacecraft  state 
and  the  VMP  flags  are  restored  before  returning  to  GIDANS* 
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SUBROUTINE  MULCON 

PURPOSE*  TO  PROPAGATE  A SET  OF  CARTESIAN  COORDINATES  ALONG  A 
LUNAR  MULTI-CONIC  TRAJECTORY  OVER  A SPECIFIED  TIME 
INTERVAL* 

CALLING  SEQUENCE*  CALL  MULCONCSEI ,TLI,TF?QT,SMF> 

ARGUMENTS  * SEI<6>  I INITIAL  SPACECRAFT  GEOCENTRIC  STATE 

TLI  I INITIAL  INJECTION  TIME  CJD  EPOCH  195Q) 

TF  I TIME  INTERNAL  OF  PROPAGATION 

OT  I STEP  SIZE  USED  IN  MULTXCQNIC  PROPAGATION 

SHF (6)  0 FINAL  SPACECRAFT  SELENOCENTRIC  STATE 

SUBROUTINES  SUPPORTED*  NULTAR 

• i 

SUBROUTINES  REQUIRED*  CPROP  EPHEM  ORB 

LOCAL  SYMBOLS*  ALNGTH  CONVERTS  KILOMETERS  TO  ASTRONOMICAL -UNITS 

A PERTURBING  ACCELERATION  VECTOR  OF  THE  MOON 

OVER  THE  ITERATION  INTERVAL 

COSF  COSINE  OF  TRUE  ANOMALY  ON  SELONOCENTRIC 
CONIC  AT'  END  OF  ITERATION  INTERVAL 

/ 

OF  FINAL  TINE  USED  IN  ITERATION  INTERVAL 

01  INITIAL  TIME  USED  IN  ITERATION  INTERVAL 

EMM  MAGNITUDE  OF  FIRST  THREE  ELEMENTS  OF  EM 

EM  GEOCENTRIC  ECLIPTIC  STATE  OF  MOON 

IDONE  STOPPING  CONDITION  INDICATOR 

=0  PROPAGATION  CONTINUES 
=1  STOPPING  CONDITION  REACHED 

I INDEX  , 

TIM  JULIAN  DATE  OF  FINAL  TIME  ON  THE  ITERATION 

INTERVAL 

1 

TM  CONVERTS  SECONDS  TO  DAYS 

t ‘ - - 1 

W SPACECRAFT  VELOCITY  VECTOR.  WITH  RESPECT  TO 

EARTH  AND/OR  MOON  8EF0RE  AND  AFTER  LUNAR 
PERTURBATIONS  AT  DI  AND  OF 
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XM  MAGNITUDE  OF  THE  X VECTOR 

X GEOCENTRIC  POSITION  OF  SPACECRAFT  AT  01 

AND  GEOCENTRIC  POSITION  OF  MOON  AT  DF 

Y GEOCENTRIC  VELOCITY  OF  SPACECRAFT  AT  01 

ANO  GEOCENTRIC  VELOCITY  OF  MOON  AT  DF 

Z SPACECRAFT  POSITION  VECTOR  HIJH  RESPECT  TO 


EARTH 

AFTER 

AND/OR 

LUNAR 

MOON  AT  01  ANO 
PERTURBATIONS 

OF  BEFORE  AND 

COMMON 

COKPUTEOS 

NO 

COMMON 

USED* 

EMU 

THU 

TWO  XP 

ZERO 
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MULC0N  Analysis 


The  equations  of  motion  of  a spacecraft  traveling  under  the  influence 
of  the  earth  and  moon  may  be  written 


^ErE  _ 

rE3  rM3  *EM3 


(1) 


where  *r^,  "it,,  Rgy  are  the  position  vectors  of  the  spacecraft- to- earth, 
the  spacecraft- to-moon,  and  the  moon- to-earth  respectively  and  //„ 

are  the  gravitational  constants  of  the  earth  and  moon  respectively. 


The  multi-conic  approximation  of  the  solution  to  (1)  proceeds  as  follows. 
Let  Tg  "Vg  k be  the  geocentric  state  at  some  time  t^.  This  state 

is  propagated  by  conic  formulae  to  obtain  an t estimate  of  the  geocentric 
state  at  time  \+1  - ^ + At  given  by  ^jk+1>  \k+1  • 


To  account  for  the  third  term  perturbations,  the  state  of  the_moon  relative 
to  the  earth  at  the  two  timepoints  is  computed,  denoted  by  (R^  "v^  ) 

and  ^EM , k+1*  ^EM  k+1^*  ^he  averaSe  value  of  this  acceleration  is  then 
determined  from 


S* 


‘W 

V* 


+ *W.k+l 

r 

^EMjk+l 


(2) 


The  corrected  geocentric  state  is  then  given  by 


it 

rE,k+l 


+ 7 A (4 1)2 

2 


v If 

vE,k+i 


^E,k+1  + A 4t 


(3) 


The  effect  of  the  direct  lunar  perturbations  is  then  added.  The  state 
of  the  spacecraft  relative  to  the  moon  is  first  computed 


r,  *=  r - R 

M,kfl  E,k+1  EM,k+l 


1/  m v - V 

M,kt-1  E,k+1  EM,k+l 


(4) 
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This  state  is  then  propagated  linearly  backwards  in  time  over  the  time 
Interval  4t  to  obtain 


rM,k  “ rM,k+l  “ vM,k+l 
vn|k  “ VM,k+l 


This  state  is  now  propagated  forward  in  a selenocentric  conic  to  obtain 
a final  state  relative  to  the  moon  ("^  k+l,_^I  k+1  ^ie  Seocentric 

state  of  the  spacecraft  at  time  t^+1  a^ter  considering  all  terms  of  (1) 
is  then  given  by 


r **  r + R 

E,k+1  M,k+1  EM, k+1 

s=  v*  . +‘v>' 

E,k+1  M,k+1  EM, k+1 


(6) 


This  completes  one  cycle  of  the  multi-conic  propagation. 

The  multi-conic  propagation  proceeds  until  an  input  final  time  is  reached 
or  until  the  selenocentric  conic  passes  -dirough  pericynthion. 


Reference:  Byrnes,  D,  V.  fnd  Hooper,  H,  L, , Multi-Conic:  A East  and 

Accurate  Method  of  Computing  Space  Flight  Trajectories, 
AAS/AIAA  Astrodynamics  Conference,  Santa  Barbara,  Cal.,  1970, 
AIAA  Paper  70-1062. 
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SUBROUTINE  HULTAR 

PURPOSE*  TO  CALCULATE  THE  TRANSLUNAR  INJECTION  CONDITIONS  FROM 
TARGETED  PATCHED-CONIC  CONDITIONS  ANO  CALLS  VHP  TO 
PERFORM  THE  NOMINAL  TRAJECTORY  NEEDED  BY  -ITERAT. 

CALLING  SEQUENCE*  CALL  HULTAR 


SUBROUTINES  SUPPORTED* 
SUBROUTINES  REQUIRED* 

LOCAL  SYMBOLS*  AE 

ATARN 

ATAR 


LUNA 

HULCON 

MATIN 


CAREL 

ORB 


ELCAR 

PECEQ 


EPHEM 

TIME 


IMPACT 


.SEMI-MAJOR  AXIS  OF  THE  EARTH-ECLIPTIC* 
TARGETED  PATCHEO-CONIC  TRAJECTORY 

NOMINAL  VALUES  OF  THE  TARGET  VARIABLES 

DESIRED  VALUES  OF  THE  TARGET  VARIABLES 


ATOL  TOLERANCES  OF  TARGET  VARIABLES 

BCOR  NAXIHUM  STEPS  ALLOWED  IN  ITERATIVE 

CORRECTION  OF  CONTROL  VARIABLES 

BJ  ZERO  TRUE  ANOMALY  USEO  TO  DEFINE  PERIGEE 

OF  THE  TARGETEO  PATCHED-CQNXC  TRAJECTORY 


8STEP  MULTI-CONIC  STEP  SIZE  (HOURS) 

CHI  SENSITIVITY  MATRIX  RELATING  PERTURBATIONS 

IN  CONTROL  VARIABLES  TO  CHANGES  IN  TARGET 
VARIABLES 

OELP  VALUE  USED  TO  PERTURB  TL I FOR  CONSTRUCTION 
OF  CHI 

OELTM  NOMINAL  TIME  FQR  PROPAGATION 

DELT  INTEGRATION  TIME  TO  BE  USED*  AND  TIME 
ACTUALLY  USED*  IN  THE  MULTI-CONIC 
PROPAGATION 

DELV  VALUE  USED  TO  PERTURB  VELOCITY  COMPONENTS 
OF  RT  FOR  CONSTRUCTION  OF. CHI  . 

DV  CORRECTION  ACTUALLY  ADDED  TO  CONTROL 

VARIABLES  

ECEQP  TRANSFORMATION  MATRIX  FROM  EARTH  ECLIPTIC 
TO  .LUNAR  EQUATORIAL 

EECEQ  TRANSFORMATION  MATRIX  FROM  EARTH  ECLIPTIC 
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TO  EARTH  EQUATORIAL 

EE  ECCENTRICITY  OF  THE  EARTH-ECLIPTIC, 

TARGETEO  PATCHEO-CONIC  TRAJECTORY 

ERR  ITERATE  ERRORS  IN  TARGET  CONDITIONS 

FAC  INTERMEDIATE  VARIABLE  USED  TO  CHECK  FOR 

MAXIMUM  STEP 

FMAG  INTERMEDIATE  VARIABLE  USED  TO  COMPUTE 
PHIA,  PHIB,  PHIC 

HYT  HYPERBOLIC  TIME  TO  LUNAR  PERIAPSIS  {DAYS) 


IDATE 

CALENDAR  DATE  QF  INJECTION 

1ST 

INDICATOR  FOR  CONTROL  VARIABLE 
PERTURBATION 

IT 

ITERATIONS  COUNTER 

I 

INDEX 

JERTH 

INDEX  OF  EARTH  IN  F-ARRAY 

JMOON 

INDEX  OF  MOON  IN  F-ARRAY 

J 

INDEX 

K 

INOEX 

HITS 

MAXIMUM  NUMBER  OF  ITERATIONS  ALLOWED 

NDEX 

SAME  AS  JERTH 

PERMN 

MINIMUM  PERTURBATION  OF  CONTROL 
FOR  CONSTRUCTION  OF  CHI 

VARIABLES 

PERMX 

MAXIMUM  PERTURBATION  OF  CONTROL 
FOR  CONSTRUCTION  OF  CHI 

VARIABLES 

PERT 

PERTURBATION  VALUES  USED  TO  CONSTRUCT  CHI 

PHIA 

TRANSFORMATION  MATRIX  FROM  RTH  TO  EC 
SYSTEM  AT  TLI 

PHIB 

TRANSFORMATION  MATRIX  FROM  RTH  TO  EC 
SYSTEM  AT  PERTURBED  TLI  , 

PHIC 

PRODUCT  OF  PHIB  AND  TRANSPOSE  OF 

PHIA 

PPE 

DUMMY  VARIABLE  FOR  CALL  TO  CAREL 
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t \ 

PSI  TARGET  MATRIX  CINVERSE  OF  CHI)  RELATING 

PERTURBATIONS  IN  TARGET  VARIABLES  TO 
CHANGES  IN  CONTROL  VARIABLES 

PTAR  PERTURBED  TARGET  VALUES 

PV  PREDICTED  CORRECTIONS  TO  CONTROL  VARIABLES 

QQE  DUMMY  VARIABLE  FOR  CALL  TO  CAREL 

REMAG  DUMMY  VARIABLE  FOR  CALL  T„Q  ELCAR 

REPET  MINIMUM  ALLOWABLE  INJECTION  TIME 

DIFFERENCE  IN  KTH  AND  K+2  ITERATIONS  TO 
AVOID  REPETITION-TRAP  CORRECTION 

RM  MAGNITUDE  OF  THE  SCM  POSITION  VECTOR 

RSE  INJECTION  STATE  IN  EARTH  EQUATORIAL  SYSTEM 

AT  TLI 

RS-  ROTATEP  INJECTION  STATE  FOR  TIME 

DIFFERENTIAL 

RT  INJECTION  STATE  USED  IN  PERTURBED  MULIT- 

CONIC  PROPAGATIONS 

SCM  FINAL  STATE  IN  LUNAR  ECLIPTIC  SYSTEM  ON 

THE  MULTI-CONIC 

SEC  SECONDS  OF  CALENDAR  DATE  OF  TLI 

STEP  MULTI-CONIC  STEP  SIZE  (SECONDS) 

STLI  ORIGINAL  VALUE  OF  TLI,  RESTORED  FOR 
SUCESSIVE  ITERATIONS 

TAE  TRUE  ANOMALY  OF  EARTH-ECLIPTIC  TARGETED 

PATCHED-CONIC  TRAJECTORY  „ 

TBR  OUMMY  VARIABLE  FOR  CALL  TO  IMPACT 

TBT  DUMMY  VARIABLE  FOR  CALL. TO  IMPACT 

TFP  TIME  OF  FLIGHT  FROM  PERIGEE  OF  THE 

EARTH-ECLIPTIC,  TARGETED  PATCHEO-CONIC  . 
TRAJECTORY  . . 

TIffMi  INJECTION  OATE  ON  K-i  ITERATION 

TIMM2  INFECTION  OATE  ON  K-2  ITERATION 
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TLI  INJECTION  JULIAN  DATE 

TTP  DUMMY  VARIABLE  FOR  CALL  TO  ELCAR 

VEMAG  DUMMY  VARIABLE  FOR  CALL  TO  ELCAR 

VX  HAGNITUOE  OF  THE  SCM  VELOCITY  VECTOR 

WE  ARGUMENT  OF  PERIAPSIS  OF  THE 

EARTH-ECLIPTIC,  TARGETED  PATCHED-CONIC 
TRAJECTORY 


WHE  DUMMY  ARGUMENT  FOR  CALL  TO  CAREL 


XIE  INCLINATION  OF  THE  EARTH-ECLIPTIC, 

TARGETED  PATCHEO-CONIC  TRAJECTORY 


XNE  LONGITUDE  OF  ASCENDING  NODE  OF  THE 

EARTH-ECLIPTIC,  TARGETEO  PATCHEO-CONIC 
' TRAJECTORY 


COMMON  COHPUTEO/USEDS  NO  RI 


COMMON  COMPUTED 8 

ICjpORD 

RIN 

TIN 

COMMON  USEpS 

ALNGTH 

CAI 

EMU 

F 

HALF 

KUR 

N80D 

NB 

ONE 

RCC 

SMA 

TAR 

TCA 

TEN 

TMU 

TM 

TSI 

TWO 

ZERO 
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MULTAR  Analysis 


Let  the  earth  equatorial  state  of  the  probe  at  the  LSI  as  computed  from 
the  patched  conic  targeting  be  denoted  ^LS*  Su^routine  CABEL  is 

called  to  compute  the  conic  elements  and  conic  time  from  perigee  At 
based  on  the  geocentric  conic»  The  time  of  injection  is  then  computed 
as 


fcTLI  " fcSI 


At 


<D 


The  position  and  velocity  of  the  probe  at  Is  given  by  the  state 


along  the  conic  at  perigee 
ELCAR  to  be  "r^,  v^. 


(true  anomaly  of  zero)  and  determined  by 
If  0£C£q  is  the  transformation  matrix  from 


the  EC  (earth  ecliptic)  to  the  EQ  (earth  equatorial)  system,  then  the 
patched  conic  injection  state  in  EC  coordinates  is 


0 r 

ECEQ  TLI 

£ ^ 

ECEQ  TLI 


<2) 


Since  the  earth  is  revolving  about  the  E-M  barycenter  in  time,  the  EC 
injection  state  must  be  rotated  if  an  earlier  or  later  injection  time  is 
to  be  used.  The  necessary  rotation  matrix  may  be  easily  computed  through 
the  introduction  of  the  R-T-W  coordinate  system.  Let  the  state  of  the 
earth  at  some  time  in  BC'  (barycentric  ecliptic)  coordinates  be 

denoted  Construct  the  R-TMtf  system  at  that  point  as 


A \ A \ X Vk 

R * ~ W,  « ■■ 

^ k K*\l 


A 

T, 


A A 


(3) 


AAA 

The  transformation  matrix  from  the  R^-T^-W^ 
to  the  ecliptic  system  is  then  given  by 


system  to  the  ecliptic  system 


0 


k 


(4) 


At  a time  t the  state  of  the  earth  in  BC  coordinates  is  given  by 

-A.  te+1  A A A 

R,  V,  , „ and  the  transformation  from  the  R,  - T - W.  system  to 
k+1  k+1  k+1  k+1  k+1 

ecliptic  coordinates  is  given  by  in  accordance  with  (4) . Injection 
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states  at  times 


t, will  be  called  "equivalent"  if  they  are 

J*  AAA 


identical  when  expressed  in  the  pertinent  R 


AAA 

R-T-W 


system.  Therefore  if 


( r^,  ) is  the  injection  state  in  EC  coordinates  at  time  t^,  the 

equivalent  state  in  EC  coordinates  at  t,+^  is  given  by 


k+1  ,k 


k+l,k 


where  the  rotation  matrix  is  defined  by 


k+l,k 


<6  d> 
k+1  vk 


The  targeting  algorithm  used  by  MULTAR  may  now  be  described.  Let  the 
injection  state  in  EC  coordinates  on  the  k*=th  iteration  be  denoted 
{tfc*  )•  This  state  is  propagated  forward  using  the  multi-conic 

propagator  MULC0N  to  determine  a final  state  r^,  Vjj  to  the  moon  in  ecliptic 
coordinates.  IMPACT  is  then  called  to  compute  the  B'T^,  an<*  k 

actually  achieved  on  the  trajectory  and  the  target  values  of  B *T  , B *R 

K.  K 

required  to  satisfy  the  i^  and  constraints.  The  semi-major  axis 

a^  of  the  k-th  iterate  is  computed  from  the  conic  formula 


rMVM 


Errors  in  the  four  target  conditions 


A a 
4b»t 

4b*r 


- 


* ^ 

B * Rj^ 


t - t 
CA,k  CA 


if  the  error  in  each  parameter  is  less  than  the  allowable  tolerance,  the 
process  stops. 
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If  convergence  has  not  been  achieved  a Newton- Raphe on  iteration  is  entered. 
The  four  controls  are  v^  , ’vv.  , "v^  , and  t . For  the  velocity  components 

x y 2 

a perturbation  ,Av  ie  added  to  the  pertinent  component  while  the  rest  of 
the  injection  state  is  held  constant  before  propagating  with  the  multi-conic. 
For  the  time  perturbation,  the  rotation  matrix  corresponding  to  the 
perturbed  time  t + At  (6)  ie  first  computed.  The  injection  state  used 

In  th«  perturbed  propagation  for  time  is  then  + At,  ^ . 

A sensitivity  matrix  is  computed  using  the  results  of  the  numerical 
differencing : 


*ax 

Aay 

Av 

Av 

X 

y 

4B  Tx 

Av 

# 

Ab  r 

X 

Av 

X 

Av 


(9) 


4tCAfc 
A t 


Acta 

where  in  the  term  — _ts  the  change  in  the  CL  target  parameter 

produced  by  the  variation  of  the  £ control  component  end  A0  is  the 
change  in  the  £ control  component.  The  k+1  iterate  controls  are  then 
given  by 


Ac 


6t 


« X'1  At 


do) 


The  k+1  injection  state  is  then  computed  by  first  determining  the  injection 
state  after  rotation  due  to  the  change  in  injection  time  and  then  adding 
the  Injection  velocity  corrections  ° 


Vi  - tk+  6 1 

*k+i  m (u) 

^k+i  = \ + 

The  iteration  process  is  repeated  until  tolerable  errors  are  met.  The  con 
verged  injection  state  is  then  integrated  in  the  virtual  mass  trajectory. 
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SUBROUTINE  MU NO 


PURPOSE*  TO  COMPUTE  THE  AUGMENTED  PORTION  OF  THE  STATE  TRANSITION 
MATRIX  WHEN  THE  GRAVITATIONAL  CONSTANT  OF  THE  SUN  OR  OF 
THE  TARGET  PLANET  HAS  BEEN  AUGMENTED  TO  THE  BASIC  STATE 
VECTOR, 

CALLING  SEQUENCE*  CALL  MUNO ( RI, RF, POSS) 


ARGUMENT*  RF 


POSITION  ANO  VELOCITY  OF  THE  VEHICLE  AT  THE 
END  OF  THE  TIME  INTERVAL 


RI  I POSITION  AND  VELOCITY  OF  THE  VEHICLE  AT  THE 

BEGINNING  OF  THE  TIME  INTERVAL 


POSS  I DISTANCE  OF  THE  VEHICLE  FROM  THE  TARGET 
PLANET  AT  THE  INITIAL' TIME 


SUBROUTINES  SUPPORTED*  PSIM 


SUBROUTINES  REQUIREO*  NTM 


LOCAL  SYMBOLS*  IC  COUNTER  FOR  VARIABLES  AUGMENTED  TO  STATE 

VECTOR 

RPER  ALTERED  POSITION  AND  VELOCITY  OF  VEHICLE 
AT  FINAL  TIME 


SAVE  TEMPORARY  STORAGE  LOCATION  FOR  GRAVITA- 
TIONAL CONSTANTS  OF  SUN  AND  TARGET  PLANET 


COMMON 

COMPUTED/USED* 

IPRINT 

PMASS 

COMMON 

COMPUTED* 

TXU 

TXXS 

TXW 

COMMON 

USED* 

ALNGTH 

IAUG 

DELMUP 

NTMC 

DELMUS 

NTP 

IAUGDC 

SPHERE 

IAUGIN 

TM 

IAUGW 
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MUND  Analysis 


The  nonlinear  equations  of  motion  of  the  spacecraft  can  be  written 
symbolically  as 


x « f (x,  p,  t)  (1) 

where  x is  the  spacecraft  position/velocity  state  and  y is  a vec- 
tor composed  of  the  gravitational  constants  of  the  sun  and  the 
target  planet . 


Suppose  we  wish  to  use  numerical  differencing  to  compute  those 

columns  of  0 ,0  , and  0 associated  with  gravitational  con- 

xx  xu  xw  a 

s 

stant  biases  included  in  the  augmented  state  vector  over  the  time 
interval  [t^^,  t^] . Let  0.  (t^*  represent  the  column  as- 

asociated  with  the  j-th  gravitational  constant  bias.  We  assume 
we  have  available  the  nominal  states  x*(t^  j)  and  x*(t^),  which,  of 
course,  were  obtained  by  numerically  solving  equation  (1)  using 
nominal  p.  To  obtain  0^(t^,  t^_^)  we  increment  the  j-th  gravita- 
tional constant  bias  by  the  pertinent  numerical  differencing  factor 
Ap.  and  numerically  integrated  equation  (1)  over  the  interval 

tfc]  to  obtain  the  new  spacecraft  state  x^Ct^),  where  the 

j-subscnpt  on  the  spacecraft  state  indicates  that  it  was  obtained 
by  incrementing  the  j-th  gravitational  constant  bias.  Then 


0 

J 


W 


ytk) 


(2) 
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Increment  ys  after  saving 
its  original  value 


Call  NTM  to  compute  the  state  at 
at  t^  resulting  from  the 

incrementation  of  y$  at  t^  ^ 


Reset  y$  to  its 
original  value 


IS  6jk  in  x 


MUND  Flow  Chart 


MUND-3 


Is  <$Pp  in  0 u,  or  w? 


| YES 


YES 


Increment  p^  after  saving 
its  original  value 


NO 


Is  spacecraft  within  six  times  \N0^ 
the  target  planet  sphere  of 
influence? 


.0 


Call  NTM  to  compute  the  state 
at  tk  resulting  from  incremen- 
tation of  Pp  at  t^_i 


NAVM-A 


SUBROUTINE  NAVM 

PURPOSE*  TO  PROPAGATE  COVARIANCE  MATRIX  PARTITIONS  P,  CXXS,  CXU, 
CX-V,  P-S-,  CX-SU,  CXSV  PROM  THE  TIME  OF  THE  LAST  MEASURE- 
MENT OR  EVENT  TO  THE  PRESENT  TIME  USING  A CONSIOER  RE- 
CURSIVE ALGORITHM. 

CALLING  SEQUENCE*  CALL  NAVM( NR, ICODE ) 

ARGUMENT*  ICOOE  I INTERNAL  CODE  HHICH  DETERMINES  IF  A 

MEASUREMENT  IS  BEING  PROCESSED 


NR  I 

NUMBER 

OF  ROWS  IN  THE 

OBSERVATION  MATRIX 

SUBROUTINES  SUPPORTED* 

SIMULl 

SETEVS  GUISIM 

PRESIM 

PRCBES 

SUBROUTINES  REQUIRED* 

MATIN 

GAIN!  GAIN2 

LOCAL  SYMBOLS  AJ 

MEASUREMENT  RESIDUAL 
ITS  INVERSE 

COVARIANCE 

MATRIX 

AKW 

INTERMEDIATE  ARRAY 

DUM 

INTERMEDIATE  VECTOR 

PSAVE 

INTERMEDIATE  ARRAY 

SUM 

INTERMEDIATE  VARIABLE 

SW 

INTERMEDIATE  ARRAY 

COMMON  COMPUTED/USEO* 

AK 

CXSUP  CXSU 

CXSVP 

CXSV 

CXUP 

CXU  CXVP 

CXV 

CXXSP 

CXXS 

S 

PP  PSP 

PS 

P 

COMMON  USED* 

AL 

AM  G 

H 

NCIMl 

NOIM2 

NDIM3  ONE 

PHI 

Q 

R 

ZERO 

TXU  TXXS 

UO 

VO 
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NAVM  Analysis 


The  augmented'  deviation  state  vector  is  defined  as 


"xA 


[x,  7tg,  Tf, 


where 


■jf  « poeition  and  velocity  state  (dimension  6) 

•x  » solve- for  parameter  state  (dimension  n. ) 

S J. 

if  **  dynamic  consider  parameter  state  (dimension  n^) 

"v  **  measurement  consider  parameter  state  (dimension  n ) 

d 

The  linearized  equations  of  motion  have  form 

x « Fj?  + F2  ? + F3Tf 

x « 0 

8 

if  « o 

*v  » 0 

and  solution 

^c+l  13  *Ck+l,k)^  + 9^  (k+l,kJ?Bk+ 


x. 


"k+l 


Vi 


V s*  v 

k+1  k 


where  dynamic  nofse  has  been  added  to  the  solution  of  "x^+^. 

solution  can  be  written  in  augmented  form 

Vi  -V&H.OV  + \A 

A 

where  the  augmented  state  transition  matrix  $ (k+l,k)  is  defined  as 


This 
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Henceforth  state  transition  matrix  partitions  will  be  written  without 
stating  the  associated  interval  of  time,  which  will  always  be  assumed  to 
be  [k,  k+lj  , 

The  measurement  deviation  vector  ~y‘  (dimension  m)  is  related  to  the 
augmented  deviation  state  vector  through  the  equation 


where  the  augmented  observation  matrix  is  defined  as 

K - [\  \ \ \] 


and  T)  is  measurement  noise, 
k 

A 

The  augmented  state  covariance  matrix  can  be  written  in  terms  of 

k 

its  partitions  as 
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Propagation  and  update  equations  for  the  partitions  appearing 
in  the  previous  equation  will  be  written  below.  Equations  need 
not  be  written  for  the  consider  parameter  covariances  U and 

since  these  do  not  change  with  time.  Also,  Cuv  will  be  set  to 

zero  because  of  the  assumption  that  no  cross- correlation  exists 
between  dynamic-  and  measurement-consider  parameters.  In  the 
equations  below,  Q and  R represent  the  covariances  of  the  dynamic 
and  measurement  noises,  respectively,  defined  previously.  A minus 
superscript  on  covariance  partitions  indicates  the  covariance 
partition  Immediately  prior  to  processing  a measurement;  a plus 
superscript,  immediately  after  processing  a measurement.  If  IC0DE 
indicates  that  a measurement  is  not  to  be  processed,  the  update 
equations  are  bypassed.  To  improve  numerical  accuracy  and  avoid 
nonpositive  definite  covariance  matrices,  P , Pg,  P+,  and  are 
always  symmetrized  after  their  computation. 


The  propagation  equation  are  given  by 


k+1 


«*  i *P,  + e C +9  C I <{>  + 

1 * V w W vi  1 Y11  I 


' k xx  xx„ 
s s. 


c+T  \ 

XU 


T 

0 + c 


0T...  + Qi, 


XX  XX  XU,  - XU  ^ 

S.  i d S K>  ' a 

K+1 


XX 


’k+1 


+ + 

= C +0  P +0  C 
v xx  xx  s.  xu  x u, 

s,  s k s K 


P - P+ 
Sk+1  Sk 


= <j>C+  + 0 C+  ..  + 0 U. 


XUk+l  * ‘ XUk  XXs  Xs\  XU  ° 


Xs\+1  \\ 


z = 4>c+  +0  c+ 

^k+l  " *V  XXs  xsVk 


, C*\  « C+ 

xsvk+l  XsVk 
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The  measurement  residual  covariance  matrix  is  given  by 

* 

Jk+1  " Hk+1  \+l  + \+l  Bk+1  + Gk+1  Dk+1  + Lk+1  Ek+1  + \+l 

where 

\+l  “ Vl  Hk+1  + °™Bk+i  Mk+1  + °xuk+l  Gk+1  + Cxvk+lLk+l 


"k+1  * s,_ , , \+l ,+  Cxxr  *^+1  + Cxs\+i  Gk+1  + Cx_v,_j  , ^+1 


B,..,  = P 


k+1 
T 


k+1 


sk+1 


D,  . , - C 


Tc+1  “xuk+1  “k+l  ■ -xsuk+1  “W-l  ' “k+1 


+ C 


Vi 


+ U G, 


"k+1  ~ Cxv,  . „ Vf-l-  + Cx  v,  . , \+l  + Vo  \+l‘ 


k+1 


sk+1 


The  covariance  matrix  partitions  immediately  after  processing  a 
measurement  are  given  by  the  following  update  equations: 

\+l  = Pk+1  “ \+l  \+l  ” \+l  \+l  + ^+1  Jk+1  ^+1 


C = C 

XX  XX 

Sk+1  Sk+1 


^+1  Bk+1  ~ \+l  Sk+1  + ^+1  Jk+1  Sk+1 


4*  - T T T 

P = p “ S,  j,  B.  . - - B-  S,  . - + S-  . - J-  , - S* 
s-  .1  si  .1  k+1  k+1  k+1  k+1  k+1  k+1  k+1 

k+1  k+1 


= C 


x\+i  xuk+i 


^+1°] 


k+1 


+ - T 

c = c - s,  ,,  Dr. - 

Vwa  SVi  k+1  ^ 


xv,_  , , xv,_,,  ^k+1  Ek+1 


C “ C 
"Vk+1  Xvk+1 


+ - T 

C = C - S.  ..  E 

x v.  , x v,  . k+1  k+1 

s k+1  s k+1 
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where  gain  matrices  and  are  computed  in  the  appropriate 

gain  subroutine — GAIN1,  if  Kalman-Schmldt,  GAIN2,  if  WLS. 
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( ENTER  ) 
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NDTM-A 


SUBROUTINE  NOTH 

PURPOSE*  TO  COMPUTE  THE  UNAUGMENTED  PORTION  OF  THE  STATE  TRANS- 
ITION MATRIX  USING  THE  NUMERICAL  DIFFERENCE  TECHNIQUE. 

CALLING  SEQUENCE*  CALL  NOTMCRI,RF) 

ARGUMENT*  RF  I POSITION  AND  VELOCITY  OF  THE  VEHICLE  AT  THE 

ENO  OF  THE  TIME  INTERVAL 

RI  I POSITION  AND  VELOCITY  OF  THE  VEHICLE  AT  THE 

BEGINNING  OF  THE  TIME  INTERVAL 

SUBROUTINES  SUPPORTED*  PSIM 

SUBROUTINES  REQUIRED*  NTM 

LOCAL  SYMBOLS  * FI  TEMPORARY  STORAGE  FOR  FACP 

F2  TEMPORARY  STORAGE  FOR  FACV, 

IPR  INTERMEDIATE  STORAGE  FOR  IPRIRT 

RP  POSITION  AND  VELOCITY  OF  VEHICLE  AT 

INITIAL  TIME 

SAVE  TEMPORARY  STORAGE  FOR  ACC 

T ‘ ALTEREO  POSITION  AND  VELOCITY  OF  VEHICLE 

AT  INITIAL  TIME 

U ALTERED  POSITION  AND  VELOCITY  OF  VEHICLE 

AT  FINAL  TIME 

COMMON  COMPUTEO/USED*  - ACC  FACP  FA.CV  . IPRINT 

COMMON  COMPUTED*  PHI 

COMMON  USED*  ACCND  DELTM  NDACC  ONE  ' ZERO 
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NDTM  Analysis 


The  nonlinear  equations  of  motion  of  the  spacecraft  can  be  written  symbol- 
lically  as 


x 


f < X , t ) 


(1) 


where  x is  the  spacecraft  position/velocity  state. 

Suppose  we  wish  to  use  numerical  differencing  to  compute  the  state  tran- 
sition matrix  ^Ct^,  ^et  ^(t^,  ^-1^  represent  the  j-th  column 

^Tc-1^'  asBume  we  have  available  the  nominal  states  ~x  *(t^ 
and  x (tj^)  • To  obtain  ^(t^,  t^_^)  we  increment  the  j-th  element  of 
x ky  the  numerical  differencing  factor  ^^x.  and  numerically  integrate 

equation  (1)  over  the  time  interval  t^J  to  °ktain  the  new  space- 

craft state  x^(fck)-  The  j-subscript  indicates  ~x  (t^)  was  obtained  by 
incrementing  the  j-th  element  of  ~x  *(1^  ).  ThenJ 


^(t  , t ) 
T 3 k*  k-1 


x . 


AV 


(2) 


j = 1,2, ... , 6 
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NDTM  tlav  Chart 


NDTM-3 


NEWPGE-A 


SUBROUTINE  NEWPGE 

PURPOSE*  PRINTS  APPROPRIATE  HEADING  AT  THE  TOP  OF  EACH  PAGE  WHEN 
PRINTOUT  OF  TRAJECTORY  INFORMATION  IS  DESIRED 

CALLING  SEQUENCE  OALL  NEWPGE 

SUBROUTINES  SUPPORTED  INPUTZ  PRINT  SPACE 

SUBROUTINES  REQUIRED*  NONE 

COMMON  COMPUTED /USED*  IPG 

COMMON  COMPUTED*  LINCT 

COMMON  USED*  KL 
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PROGRAM  NOMNAL 

PURPOSES  TO  CONTROL  THE  ENTIRE  GENERATION  OF  A NOMINAL  TRAJECTORY 
FROM  INJECTION  TARGETING  THROUGH  MIOCOURSE  CORRECTIONS 
AND  ORBIT  INSERTION. 

CALLING  SEQUENCES  NONE  (MAIN  PROGRAM) 

SUBROUTINES  SUPPORTED*  NONE  (MAIN  PROGRAM) • 

SUBROUTINES  REQUIRED®  GIDANS  PRELIM  TRJTRY 

COMMON  COMPUTED*  IPRE 

COMMON  USED*  KHIT 
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NOMNAL  Analysis 


NQMNAL  is  the  executive  program  controlling  the  entire  generation  of  a 
nominal  trajectory  from  injection  targeting  through  midcourse  corrections 
and  orbit  insertion. 

NOMNAL  begins  by  calling  PRELIM  for  the  preliminary  work  including 
initialization  of  variables,  reading  of  the  input  data,  and  computation 
of  zero  iterate  values  of  initial  time,  position,  and  velocity  if  required. 

NQMNAL  then  calls  TRJTRY*  TRJTRY  first  determines  the  time  of  the  next 
guidance  event.  It  then  integrates  and  records  the  nominal  trajectory  to 
that  time.  TRJTRY  then  returns  control  to  NOMNAL. 

NQMNAL  next  calls  GIDANS.  GIDANS .processes  the  computation  and  execution 
of  the  current  guidance  event.  NOMNAL  then  reenters  its  basic  cycle  by 
calling  TRJTRY  to  propagate  the  corrected  trajectory  to  its  next  guidance 
event. 

Two  flags  are  used  by  NQMNAL.  The  flag  IPRE  is  initialized  at  zero  in 
NOMNAL.  During  the  processing  of  the  first  data  case  PRELIM  sets  it  to 
unity.  PRELIM  uses  IPRE  to  determine  whether  to  preset  constants  to 
internally  stored  values  or  leave  them  at  their  previous  values  before 
reading  the  next  data  case. 

The  second  flag  KWIT  determines  whether  the  current  case  should  be  continued 
or  terminated  according  to  the  flag  value  zero  or  unity  respectively.  Ter- 
mination is  indicated  when  a fatal  error  occurs  during  trajectory  propagation 
or  guidance  event  computation  or  when  the- desired  end  time  is  reached. 
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SUBROUTINE  NONINS 

PURPOSE*  TO  DETERMINE  THE  TIME  ANO  CORRECTION  VECTOR  FOR  AN 

INSERTION  FROM  AN  APPROACH  HYPERBOLA  INTO  A SPECIFIED 
PLANE  AND  AS  NEAR  AS  POSSIBLE  TO  A PRESCRIBED  CLOSED 
ORBIT* 

CALLING  SEQUENCE*  CALL  NONINS CGM ,X , Z,OA, DE,DWTPtDI, DN,TMEX, VEL, 

IEX) 

ARGUMENT*  SM  I GRAVITATIONAL  CONSTANT 

X<3)  .1  POSITION  VECTOR  AT  DECISION 

Z(3>  I VELOCITY  VECTOR  AT  DECISION 

OA  I DESXREO  SEMIMAJOR  AXIS 

OE  I DESIREO  ECCENTRICITY 

QWTP  I DESIRED  ARGUMENT  OF  PRRIAPSIS 

DHTP  I DESIREO  ARGUMENT  OF  PERIAPSIS 

01  I DESIRED  INCLINATION 

ON  I OESXREO  LONGITUDE  OF  ASCENOING  NODE 

TNEX  0 TIME  FROM  DECISION  TO  EXECUTION  (SECONDS) 

VEt(3>  0 INSERTION  VELOCITY  VECTOR  . 

c 

IEX  0 EXECUTION  CODE 

=0  EXECUTABLE  SOLUTION  DETERMINED 
NO  EXECUTABLE  SOLUTION  FOUND 

SUBROUTINES  § UP  PORTEO#  XNS.ERS 

SUBROUTINES  REQUIRED*  CAREL  ELCAR 

LOCAL  SYMBOLS 8 AH  HYPERBOLIC  SEMIMAJOR  AXIS. 

ANG  TRUE  ANOMALY  OF  HYPERBOLIC  ASYMPTOTE 

ARC 2 360o 

ARC  180. 

A SEMXHAJOR  AXIS  OF  MODIFIED  ELLIPSE 

CEI  CpSINE  QF  01 

CEN  COSINE  OF  ON 
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CHI  COSINE  OF  HI 

CHN  COSINE  OF  HN 

CTAE  COSINE  OF  ETA 

CTASY  COSINE  OF  TASY 

CHTXE  COSINE  OF  WTXE 

CWTXH  COSINE  OF  WTXH 

OELV  VELOCITY  CORRECTIONS  OF  CANDIDATE  SOLUTION 

DRA  DESIRED  APOAPSIS  RADIUS 

DRP  DESIRED  PERIAPSIS  RADIUS 

DTA  DUMMY  VARIABLE  FOR  OUTPUT 

DVM  MAGNITUDES  OF  CANDIDATE  CORRECTIONS 

DV  MAGNITUDES  OF  CANDIDATE  CORRECTIONS 

EH  HYPERBOLIC  ECCENTRICITY 

ERRMAX  SCALAR  ERROR  ASSIGNED  TO  IMPOSSIBLE 
SOLUTION 

ERR  ARRAY  OF  SCALAR  ERRORS  OF  SOLUTIONS 

ETAX  TRUE  ANOMALIES  AT  INTERSECTION  POINTS  ON 
ELLIPSE 

E ECCENTRICITY  OF  MODIFIED  ELLIPSE 

HI  HYPERBOLIC  INCLINATION 

HN  HVPERBOLIC  LONGITUDE  OF  ASCENDING  NODE 

HRP  HYPERBOLIC  PERIAPSIS  RADIUS 

HTAX  TRUE  ANOMALIES  AT  INTERSECTION  POINTS  ON 
HYPERBOLA 

HTA  CANDIDATE  HYPERBOLIC  TRUE  ANOMALY  AT 

INTERSECTION 

MININ  INOEX  OF  OPTIMAL  INTERSECTION  POINT 
MIN  INDEX  OF  OPTIMAL  SOLUTION  {POINT  AND  MODI 
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NCPQS  FLAG  INDICATING  WHETHER  ANGLE  BETWEEN  NOOE 
AND  INTERSECTION  IS  GREATER  OR  LESS  THAN 
180 

NSOLS  NUMBER  OF  SOLUTIONS 

NT!  INDEX  OF  FIRST  SOLUTION 

NT 2 INOEX  OF  LAST  SOLUTION 

PH  HYPERBOLIC  SEMILATUS  RECTUM 

PI  THE  MATHEMATICAL  CONSTANT  PI 

PP  UNIT  VECTOR  TOWARD  PERIAPSIS 

QQ  UNIT  VECTOR  IN  ORBITAL  PLANE  NORMAL  TO  PP 

RAD  DEGREE  TO  RADIAN  FACTOR 

RA  APOARSIS  RADIUS 

RHYP  HYPERBOLIC  CANDIDATE  RADII  TO  INTERSECTION 
RMAG  RADIUS  TO  INTERSECTION  POINT 

RM  RADIUS  AT  DECISION 

RP  PERIAPSIS  RAOIUS 

RX  RADIUS  TO  INTERSECTION  POINT  QN  ELLIPSE 

* * * 

- ) 

Ri  RAOIUS  VECTOR  TO  HYPERBOLA. AT  INTERSECTION 

R RADIUS  VECTOR  TO  ELLIPSE  AT  INTERSECTION 

SEI  SINE  OF  DI 

SEN  SINE  OF  DM 

SGNZ  SIGN  OF  DECLINATION  OF  INTERSECTION  POINT 

s 

SHI  SINE  OF  HI 

SHN  SINE  OF  HN 

STA  TRUE  ANOMALY  ,AT  DECISION 

TAE  ARRAY  OF  ELLIPTIC  TRUE  ANOMALIES 

TASY  TRUE  ANOMALY  OF  ASYMPTOTE., 

TAKE  TRUE  ANOMALY  AT  INTERSECTION'  POINT  ON 
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ELLIPSE 

TRUE  ANOMALY  AT  INTERSECTION  POINT  ON 
HYPERBOLA 

TRUE  ANOMALY 

TIME  FROM  PERIAPSIS  AT  DECISION 

TIME  FROM  PERIAPSIS  AT  EXECUTION  ON  HYPER- 
BOLA 

ARRAY  OF  CANDIDATE  TIMES  FROM  DECISION  TO 
EXECUTION 

TIME  FROM  PERIAPSIS  AT  DECISION  ON  ELLIPSE 
SPEED  AT  DECISION 

VELOCITY  VECTOR  ON  HYPERBOLA  A1  EXECUTION 

VELOCITY  VECTOR  ON  ELLIPSE  AT  EXECUTION 

ARGUMENT  OF  PERIAPSIS  ON  ELLIPSE 

ARGUMENT  OF  PERIAPSIS  ON  HYPERBOLA 

ANGLE  BETWEEN  ASCENDING  NPDE  AND  INTER- 
SEpTIjON  POINT  ON  ELLIPSE  ' 

ANGLE  BETWEEN  ASCENDING  NODE  AND  INTER- 
SECTION POINT  ON  HYPERBOLA 

UNIT  NORMAL  TO  ORBITAL  PLANE 

ARGUMENT  OF  PERIAPSIS 

/ 

X COMPONENT  OF  INTERSECTION  POINT 
V COMPONENT  OF  INTERSECTION  POINT 
Z COMPONENT  OF  INTERSECTION  POINT 


384' 


NONINS- 1 


NONINS  Analysis 


NONINS  determines  the  time  and  correction  vector  for  an  impulsive  insertion 
from  an  approach  hyperbola  into  a specified  plane  and  as  near  as  possible 
to  a prescribed  closed  orbit.  The  approach  hyperbola  is  specified  by 
giving  the  plane tocen trie  equatorial  state  *r^  *v  at  the  time  of  decision 
The  final  orbit  is  defined  by  giving  its  desired  orbital  elements 

(ag,  again  in  plane tocentric  equatorial  coordinates. 

Subroutine  CABEL  is  first  called  to  convert  the  hyperbolic  state  at  decision 
v*  into  Kepler ian  conic  elements  (a^,  0)^9  t^)  where  t^ 

is  the  time  from  per laps  Is  at  decision  (negative  on  the  approach  ray). 


The  points  of  intersection  of  the  approach  orbital  plane  and  the  desired 
orbital  plane  are  then  determined.  The  elements  defining  the  two  planes 
are  therefore  given  by  iR,  4"^  and  i£,  42  E . Let  A denote  the  unit 

vector  toward  the  ascending  node  of  an  orbit  and  1b  denote  the  in-plane 


normal  to  A in  the  direction  of  motion.  Then 
Xcos  42  , sin  il  , 0) 


A 

A 


A 

B 


(-sin  42  cos  i,  cos  42  cos  i,  sin  i) 


Hence  the  normal  to  the  orbital  plane  C is  given  by  C *=  A x B or 


A 

C 


(sin  42  sin  i,  -cos  42  sin  i,  cos  i) 


(1) 

(2) 

'(3) 


The  direction  of  the  line  of  intersection  of  the  two  planes  is  therefore 

determined  by  X ==  U x U or 

H J£ 

£ 

X = (cos  ig  sin  ig  cos  42E  - sin  iH  cos  iE  cos£H, 

cos  ijg  sin  iE  sin42j,  - sin  iR  cos  ig  sin42R, 

® f o.  ijj  8 in  ig  (cos  42^  sin42E  — s in ^2 R cosj2e)) 

Then  the  unit  vector  along  the  line  of  intersection  toward  the  northern 
hemisphere' is  given  by 


(4) 


A 

<x 


3gn  ,X3  f 


(5) 


Therefore  the  true  anomaly  f^  along  the  hyperbola  at  the  northern  inter- 
section point  is  given  by 


‘cos  (<4h  +k  f^)  * X • A 


HX' 


H 


(6) 
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The  true  anomaly  on  the  hyperbola  at  the  southern  point  is  therefore 
f + 180  . Note  that  there  exists  a region  of  true  anomalies  lying  be- 
tween the  incoming  and  outgoing  asymptotes  for  -which  the  hyperbola  is  not 
defined.  Similar  equations  define  the  true  anomaly  on ’.the  .ellipse  at  the 
two  points  of  intersection.  Note  that  this  implies  that  the  modified 
ellipse  will  have  the  same  0)  as  the  desired  ellipse. 

For  the  intersection  true  anomaly  f^  the  radius  magnitude  on  the  hyper- 
bola may  be  determined 


aH^  ~ eH^ 
1 + cos 


<7> 


To  permit  an  impulsive  insertion,  a^,  and  must  be  modified  to  satisfy 


&g(l  “ 


E' 


1 + e cos  f 
E E 


(8) 


There  are  three  candidate  modifications  examined  to  determine  a "best" 

one:  (1)  Vary  r while  holding  r constant 

a p 

(2)  Vary  r while  holding  r constant 

P a 

(3)  Vary  a while  holding  e constant 

"Best"  is  defined  below  in  terms  of  a weighted  scalar  function  of  the 
changes  in  r and  r 


Rewriting  (8)  in  terms  of  r and 

cL 

the  useful  relation 


1 r +r 

, . a p 

rp  (using  a = — j-*. 


6 *= 


r -r 
a 


r r 
a p 


yields 


r (1  + cos  f ) + r (1  - cos  f ) 
a E P E 


2r  r 
a P 


(9) 


Equation  (9)  may  be  solved  for  r as 

a 


rIrp(1  ~ cos 
2 r - r (1  + cos  f ) 


(10) 


This  yields  the  which  defines  the  modified  orbit  holding  r at  its 

desired  value.  The  semi-major  axis  and  eccentricity  are  then  computed  from 


ra~*p 


r - r 

e - -a  T> 
ra±rp 
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Similarly  (9)  may  be  solved  for 


r 

P 


as 


r„r  (1  + cos  f) 
I a 


2 r 


r^(l  - cos  f) 


(ID 


This  determines  the  modification  is  required  to  achieve  an  inter- 

secting ellipse  having  the  desired  r 


a 


Finally  (8)  may  be  solved  trivially  for  the  a required  to  produce 

K 

intersection  for  the  desired  eccentricity. 


rl(1  * eE  COa  V 
(1  - e£) 


(12) 


An  error  Is  assigned  to  each  of  the  candidate  solutions  as 


W. 


A r + 

a 


|A, 


P'J 


where 
of 


Av 

and 


Z\r  are  the  errors  between  the  desired  and  modified  values 

- p 

The  weighting  factor  W.  is'  assigned  rather  arbitrarily . 


a p 

Currently  the  weighting  factor  is 


W. 


wli"2i  where 


w^  *=  1 if  the  true  anomaly  is  on  the  incoming  ray 

2 if  the  true  anomaly  is  on  the  outgoing  ray 

w2.  **  1 i'f  option  1 

2 if  option  2 

3 if  option  3 

Thus  a solution  on  the  incoming  asymptote  is  preferred  over  one  on  the 
outgoing  asymptote  and  one  subsequent  trim  is  preferred  over  two  subsequent 
trims . 

Having  determined  the  elements  of  an  intersecting  orbit  the  insertion  para- 
meters are  easily  computed.  The  velocity  on  the  hyperbola  at  the  intersection 

point  may  be  computed  from  ELCAR  as  . The  velocity  on  the  ellipse  following 

H 

the  insertion  is  computed  by  calling  ELCAR  with  the  modified  elliptical  ele- 
ment to  get  ~v  . The  impulsive  Av  is  then  given  by 
E 


The  time  interval  from  the  decision  to  the  execution  is  given  by  the  hyper- 
bolic time  from  the  initial  point  to  the  relevant  intersection  point. 
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NONLIN-A 


SUBROUTINE  NONLIN 

PURPOSES  TO  CONTROL  EXECUTION  OF  NON~LINEAR  GUIOANCE  EVENTS, 

CALLING  SEQUENCES  CALL  NONLXN 

SUBROUTINES  SUPPORTED 8 GUISIM  GUIOM 

SUBROUTINES  REQUIRED8  CAREL  ELCAR  GIDANS 

LOCAL  SYMBOLS 8 AA  ARGUMENT  FOR  SUBROUTINE  CAREL 

01  JULIAN  DATE  OF  EVENT 

4 

EE  ARGUMENT  FOR  SUBROUTINE  CAREL 

ISNPR  SAVE  INPR  VALUE 

XSPRNY  SAVE  IPRINT  VALUE 

KEY  INTERMEDIATE  VARIABLE  IN  SETTING  UP  TARGET 

ARRAY 

KXCL2  SAVE  ICL2  VALUE 

KICL  SAVE  ICL  VALUE 

' KXSPH  SAVE  XSPH  VALUE 

KISP2  SAVE  ISP2  VALUE 
ODELT  SAV£  ORIGINAL  Q.ELTP  VALUE 
OSPH  SAVE  ORIGINAL  SPHERE  OF  INFLUENCE  OF 

target  planet 

PP  ARGUMENT  RETURNED  FROM  CAREL 

QQ  ARGUMENT  RETURNED  FROM  CAREL 

RMAG  ARGUMENT  FOR  SUBROUTINE  ELCAR 

TAA  TRUE  ANOMALY 

TFFP  TIME  OF  FLIGHT  FROM  PERXAPSIS 

TFP  TIME  FROM  PERI APS IS 

TRTIME  TRAJECTORY  TIME  OF  THE  GUIOANCE  EVENT 
VMAG  ARGUMENT  FOR  SUBROUTINE  ELCAR 

MM  ARGUMENT  FOR  SUBROUTINE  CAREL 
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XXI  ARGUMENT  FOR  SUBROUTINE  CAREL 

XXN  ARGUMENT  FOR  SUBROUTINE  CAREL 

XYZTAA  ZERO  TRUE  ANOMALY  ARGUMENT  FOR  SUBROUTINE 
EL  CAR 


COMMON  COMPUTED/USED*  DEI.TP 

ICL2 

ISP2 

KTP 

NO  IT 

TGT3 

XDC 

COMMON  COMPUTED!  ACKT 

OG 

KTYP 

NPAR 

TIMG 

COMMON  USED!  ACX 

JX 

LNPAR 

XBOR 

XIN 

XVSI 


DELV 

OSI 

OT 

IBAOS 

ICL 

INPR 

IPRINT 

ISPH 

KLP 

KMXQ 

KTAR 

KTIM 

KWIT 

MAT 

MAXB 

HDL 

NTP 

RSI 

SPHERE 

TAR 

TIN 

TMU 

TOL 

VSI 

XDELV 

XRC 

ZOAT 

AC 

BDR 

BDT 

DC 

OVMAX 

01 

ISTART 

IZERO 

KUR 

LVLS 

NLP 

NOGYO 

PERV 

TRTM 

RC 

RIN 

SPHFAC 

ALNGTH 

DATEJ 

DELTAV 

IX 

LKLP 

LKTAR 

LKTP 

LLVLS 

PMASS 

TM 

T3 

XAC 

XBOT 

XDSI 

XDVMAX 

XFAC 

XPERV 

ZERO 

XRSI 

X TAR 

XTOL 

l 
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N0NLIN  Analysis 


N0NLIN  is  the  interface  subroutine  between  the  non-linear  guidance  sub- 
routines of  N0MNAL  and  subroutine  GUIDM  of  ERRAN  and  subroutine  GUISIM 
of  SIMUL.  N0NLIN  selects  the  necessary  data  from  the  ERRAN  and  SIMUL 
common  blocks  and  stores  into  the  common^blocks  of  N0MNAL  the  information 
needed  to  compute  and/or  execute  the  AV  required  in  order  to  meet 
specified  target  conditions. 

The  most  important  task  performed  by  N0NLIN  is  the  selection  of  the  desired 
guidance  scheme.  The  variable  IX  is  tested  and  control  is  transformed 
according  to  the  following: 

IX  * 1,  retargeting  to  specified  target  parameters 
2,  orbit  insertion  to  specified  orbit 
= 3,  AV  execution  by  a series  of  specified  pulses 

For  each  type  of  event,  N0NLIN  then  sets  up  values  controlling  the  type  of 
guidance  event  (KTYP) 9 implementation  code  (KMXQ) , and  execution  model 
code  (MDL) . For  retargeting  only,  N0NLIN  stores  the  remaining  values 
needed  for  AV  calculation  and  prints  the  zero  iterate  conditions. 

N0MNAL  calls  GIDANS  to  perform  the  guidance  event  and  restores  parameters 
necessary  for  the  basic  cycles  of  ERRAN  and  SIMUL.  For  retargeting  only, 
N0MNAL  then  stores  the  conditions  at  sphere  of  influence  and  closest 
approach  of  the  target  planet  which  were  calculated  by  subroutine  TARGET. 


' 392 


N0NLIN  Flow  Chart 


NTM-A 


SUBROUTINE  NTH 

PURPOSES  CONTROL  COMPUTATION  OF  NOMINAL  TRAJECTORY  IN  THE  ERROR 
ANALYSIS  PROGRAM 

CALLING  SEQUENCES  CALL  NTM (RI,RF fNTMCsICOpE) 

ARGUMENTS  ICODE  I INTERNAL  CODE  THAT  DETERMINES  WHICH 

TRAJECTORY  IS  BEING  RUN  ANO  WHAT 
INFORMATION  IS  DESIRED 

NTMC  I NOMINAL  TRAJECTORY  NOOULE  COOE  THAT 

DETERMINES  WHICH  TYPE  OF  TRAJECTORY  PROGRAM 
IS  TO  BE  USED  (NOTE  ONLY  THE  VIRTUAL  MASS 
TECHNIQUE  IS  SUPPLIED  WITH  THIS  PROGRAM. 
HOWEVER?  WITH  LITTLE  EFFORT  ANY  TRAJECTORY 
PROGRAM  MAY  BE  ADDED  AS  AN  EXTRA  OPTION.) 

RF  0 POSITION  AND  VELOCITY  OF  THE  VEHICLE  AT  THE 

ENO  OF' THE  TINE  INTERVAL 

RI  I POSITION  AND  VELOCITY  OF  THE  VEHICLE  AT  THE 

BEGINNING  OF  THE  TIME  INTERVAL 

' SUBROUTINES  SUPPORTED 8 ERR ANN  HUND  NOTH  PLNO  PSIM 

SETEVN  GUID  VARADA  PRED 

SUBROUTINES  REQUIRED S VMP 

> ' 'c 

LOCAL  SYMBOLS 8 D1  JULIAN  DATE*  EPOCH  JAN.Q,  1900?  OF  INITIAL 

TRAJECTORY  TIME 

RMP  DISTANCE  OF  VEHICLE  FROM  TARGET  PLANET  AT 

SPHERE  OF  INFLUENCE  OR  CLOSEST  APPROACH 

VMM  MAGNITUDE,  OF  THE  VELOCITY  VECTOR 


COMMON  COMPUTED/USED8  BORSIt  BDRSI2  BDRSI3  BDTSI1  BDTSI2 

B0TSI3  BSII  BSI2  0SI3  ICA1 

ICA2-  ICA3  ICL  ISOI1  IS0I2 

XS0I3  ISPH  RCAi  RCA2  RCA3 

RSOIi  RSOI2  RS0I3  TCAi  TCA2 

TCA3  TSOIi  TS0I2  TS0I3  VSOIi 

VS0I2  VSOI3 


‘ COMMON  USED 8 ACC  BDR  BDT  B QATEJ 

DC  DELTM  DSI  IPROB  ISP2 

ITR  NQE  RC  RSI  TRTHi 
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NXM  Analysis 


Subroutine  NXM  Is  used  to  generate  the  (most  recent)  targeted  nominal 
trajectory  In  the  error  analysis  mode.  Subroutine  NXM  is  equivalent  to 
a subroutine  NTMS  from  which  all  loops  associated  with  ICODE  “ -3,  -2,  2,  3 
have  been  removed.  For  this  reason  no  further  analysis  and  no  flow  chart 
will  be  presented  for  subroutine  NXM.  Refer  to  subroutine  NXMS. 
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SUBROUTINE  NTHS 

PURPOSES  CONTROL  COMPUTATION  OF  TARGETED  NOMINAL,  MOST  RECENT 
NOMINAL,  ANO  ACTUAL  TRAJECTORIES  IN  THE  SIMULATION 
PROGRAM 

CALLING  SEQUENCES  CALL  NT MS {RI,RF , NTMC,ICOOE) 

ARGUMENT 8 ICOOE  I INTERNAL  CODE  THAT  DETERMINES  WHICH 

TRAJECTORY  XS  BEING  RUN  AND  WHAT 
INFORMATION  IS  OESIRED 

WTMC  I NOMINAL  TRAJECTORY  MODULE  CODE  THAT 

DETERMINES  WHICH  TYPE  OF  TRAJECTORY  PROGRAM 
IS  TO  BE  USED  CNOTE  ONLY  THE  VIRTUAL  MASS 
TECHNIQUE  IS  SUPPLIED  WITH  THIS  PROGRAM* 
HOWEVER,  WITH  LITTLE  EFFORT  ANY  TRAJECTORY 
PROGRAM  MAY  BE  ADDED  AS  AN  EXTRA  OPTION®) 

RF  0 POSITION  ANO  VELOCITY  OF  THE  VEHICLE  AT  THE 

END  OF  THE  TIME  INTERVAL 

RI  I POSITION  AND  VELOCITY  OF  THE  VEHICLE  AT  THE 

BEGINNING  OF  THE  TIME  INTERVAL 

SUBROUTINES  SUPPORTED*  SXMULL  MUNO  NDTM  PLND  PSIM 

SETEVS  GUISS  VARSIM  PRESIM. 

SUBROUTINES  REQUIRED S VMP 

LOCAL  SYMBOLS  8 ACCS  INTERMEDIATE  STORAGE  FOR  ACCURACY 

Di  JULIAN  DATE,  EPOCH  JAN., 1900,  OF  INITIAL 

TRAJECTORY  TIME 

K1  INDEX  FOR  SEMIMAJOR  AXIS  ELEMENT 

K2  INDEX  FOR  ECCENTRICITY  ELEMENT 

K3  INOEX  FOR  INCLINATION  ELEMENT 

K4  INDEX  FOR  ASCENDING  NODE  ELEMENT 

K5  INDEX  FOR  PERIAPSIS  ELEMENT 

K6  INDEX  FOR  MEAN  ANOMALY-  ELEMENT 

' \ 

NBODS  INTERMEDIATE  STORAGE  FOR  NBOO 

MBS  INTERMEDIATE  STORAGE  FOR  NB  ARRAY 

RHP  OISTANCE  OF  VEHICLE  FROM  TARGET  PLANET 
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SAVEiQ 

INTERMEDIATE 

STORAGE 

SAVEi 

INTERMEDIATE 

STORAGE 

SAVE2 

INTERMEDIATE 

STORAGE 

SAVE3 

INTERMEDIATE 

STORAGE 

SAVE4 

INTERMEDIATE 

STORAGE 

SAVES 

INTERMEDIATE 

STORAGE 

SAVE6 

INTERMEDIATE 

STORAGE 

SAVE7 

INTERMEDIATE 

STORAGE 

SAVE  8 

INTERMEDIATE 

STORAGE 

VMM 

MAGNITUDE  OF 

THE  VELOCITY  VECTOR 

COMMON  COMPtyTED/USEO  * 

ACC 

BDRSIl 

B0RSI2 

RDRSI3 

BDTSIi 

BDTSI2 

BDTSI3 

BSI1 

BSI2 

„ BSI3 

CN 

EMN 

ICA1 

ICA2 

ICA3 

ICL 

ISOIi 

IS0I2 

IS0I3 

ISPH 

N80D 

NB 

PHASS 

RCA1 

RCA2 

RCA3 

RSOI1 

RS0I2 

RSOI3 

SMJR 

ST 

TCAi 

TCA2 

TCA3 

TSOIi 

TS0I2 

TSOI3 

VSOI1 

VS0I2 

VSOI3 

COMMON  USEOt 

ACC1 

ALNGTH 

BDR 

BDT  , 

B 

DAB 

OATEJ 

OC 

DEB 

OELTM 

DIB 

DMAB, 

DMUPB 

QMU.SB 

DN*B 

OS  I 

DW8 

IPROB 

ISP2 

ITR 

NBODl 

N31 

NGE 

NQE  ‘ 

NTP 

RC 

RSI 

TM 

TRTMi 

VSI 
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NTMS  Analysis 


Subroutine  NTMS  is  used  to  generate  any  of  the  three  trajectories  required 
in  the  simulation  mode  — the  (most  recent)  targeted  nominal  trajectory, 
the  most  recent  nominal  trajectory,  and  the  actual  trajectory. 

The  input  variable  ICODE  is  used  to  distinguish  between  these  trajectories. 

It  is  unimportant  to  the  virtual  mass  technique  which  trajectory  is  being 
computed.  However,  it  is  important  to  keep  them  separated  so  that  the 
proper  codes  are  set  that  check  for  approaching  the  sphere  of  influence  of 
the  target  planet  and  reaching  closest  approach.  It  is  also  Important  to 
keep  separate  the  conditions  at  which  these  occur  for  each  trajectory.  The 
following  list  describes  ICODE  completely, 

ICODE  **  3,  NTMS  will  check  to  see  if  the  sphere  of  influence  and/or 
closest  approach  'has  been  reached  on  the  actual  trajectory. 

If  not,  VMP  will  check  for  these  conditions  and  on  encountering 
either,  NTMS  places  the  conditions  in  special  storage  locations 
so  they  will  be  saved  for  future  reference. 

ICODE  -*= 2 , NTMS  performs  the  same  operations  as  described  above  for  the 
most  recent  nominal  trajectory. 

S 1 

'ICODE  = 1,  NTMS  again  checks  for  sphere  of  influence  and  closest  approach 
as  above  for  the  targeted  nominal  trajectory. 

ICODE  >=  0,  the  only  important  information  in  this  situation  is  the  state 
vector  at  the  end  of  the  time  interval.  Therefore,  NUBS  does 
not  check  to  see  if  closest  approach  or  sphere  of  influence  is 
encountered.  This  might  occur  in  numerical  differencing,  for 
example. 

ICODE  = -1,  it  is  important  to  know  if  sphere  of  influence  or  closest 

approach  is  reached  on  the  targeted  nominal  trajectory.  However, 
it  is  not  desired  that  the  information  be  stored  for  future  use. 
This  situation  occurs  in  the  guidance  event. 

ICODE  = -2,  the  same  comments  may  be  made  as  if  ICODE  = -1,  except  this 
is  on  the  most  recent  nominal  trajectory. 

ICODE  = -3,  again,  this  value  of  ICODE  is  treated  the  same  as  is  ICODE  = 
-1,  for  the  actual  trajectory. 

Physical  constants,  planetary  ephemerides,  and  other  information  relating 
to  the  dynamic  model  are  the  same  for  the  targeted  and  most  recent  nominal 
trajectories.  This  is  not  true  for  the  actual  trajectory^  There  may  be 
biases  in  the  target  planet  ephemerides  and  the  gravitational  constants  of 
the  Sun  and  target  planet.  The  numerical  accuracy  and  the  number  of  celes- 
tial bodies  employed  in  the  generation  of  the  actual  trajectory  may  also 
differ© 


398 


NTMS-  2 


Ephemeris  biases  are  specified  as  bi'a6e6  in  orbital  elements  a,  e, 
CO , and  M . . However,  within  the  program  are  stored  the  ephemeris 
of  a,  e,  i,  G,  co,  and  M for  the  planets  and  a,  e,  i,  fl, co,  and 
the  moon,  where 

a; 

co  b co  + !l 


and 


L m M + co  + 12  . 

Incrementation  of  to  and  L requires  addition  of  biases  in  ft  , go 
H as  indicated  by  the  above  equations . 


i,  12, 
constants 
L for 


and 
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NTMS  Flow  Chart 
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22 


( 


Has  targeted  nominal 
pierced  sphere  of  influence? 


NO 


x 


Has  most  recent  nominal  ' 
pierced  sphere  of  influence? 


YES 


NO 


IS  PH 


ISPH 


JL 


Has  actual  trajectory 
pierced  sphere  of  influence? 


YES 


NO 


ISPH 


ISPH 


ISPH  « 0 


> 


YES 


ISPH 


« 


Has  targeted  nominal  en- 
countered closest  approach? 


NO 


X 


Jl 


Has  most  recent  nominal  en 
countered  closest  approach? 


D< 


Has  actual  trajectory  en- 
countered closest  approach? 


YES  NO 

L 

YES  NO 

L " U 

t V 

ICL  **  0 

ICL  « 1 

ICL  = 0 

ICL  - 0 

ICL  - 1 

> 


YSS 


* i 

M 2 

L S 

L J 

L 3 

l !r 

g 

Call  VMP  to  compute  the 
specified  trajectory 
at  . 
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SUBROUTINE  NT  RY 

PURPOSE"*  TO  COMPUTE  ENTRY  PARAMETERS,  ENTRY  COVARIANCE  AND 
COMMUNICATION  ANGLE 

CALLING  SEQUENCE*  CALL  NTRY  ( TE»  XPS  ,P  ,MODEI 

ARGUMENTS*  TE  I ENTRY  TIME  (TRAJECTORY  TIME) 

XPS  I PLANETOCENTRIC  ECLIPTIC  STATE  AT  PROBE 

SPHERE 

p I STATE  COVARIANCE  MATRIX 

M ODE  I NOT  FUNCTIONAL  CURRENTLY 

SUBROUTINES  SUPPORTED*  PROBE  PROBES 

SUBROUTINES  REQUIRED*  ORB  EPHEM  TIME  SUBSOL  MATPY 

LOCAL  SYMBOLS*  A TRANSFORMATION  FROM  STEAP  CARTESIAN  STATE 

VARIABLES  TO  LTR  ENTRY  PARAMETER  STATE 
VARIABLES 

B INTERMEDIATE  VARIABLE 

H VEHICLE  ALTITUDE 

T TRANSFORMATION  FROM  PLANETOCENTRIC  TO  SUB- 

SOLAR COORDINATES 

V VEHICLE  VELOCITY  RELATIVE  TO  PLANET  AT 

PROBE  SPHERE 


AA 

INTERMEDIATE  VARIABLE 

ER 

UNIT  VECTOR  ALIGNED  WITH  SUBSOLAR 
VECTOR 

RADIUS 

EN 

VECTOR  NORMAL  TO  ENTRY  PLANE 

HI 

ENTRY  ORBIT  ANGULAR  MOMENTUM/UNIT 

MASS 

MO 

MONTH 

TZ 

JULIAN  DATE  CORRESPONDING  TO  TE 

UP 

INTERMEDIATE  VARIABLE 

I HR 

HOUR 

IYR 

year' 
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PPP  COMMUNICATION  ANGLE  IN  DEGREES 
SEC  SECONDS 

SUM  INTERMEDIATE  VARIABLE  ' 

XIS  INCLINATION  OF  ENTRY  PLANE  TO  SUBSOLAR 
PLANE 

XRE  POSITION  OF  EARTH  AT  TE 

XVE  VELOCITY  OF  EARTH  AT  TE 

XRP  POSITION  OF  TARGET  PLANET  AT  TE 

XVP  VELOCITY  OF  TARGET  PLANET  AT  TE 

COSP  COS (COMMUNICATION  ANGLE! 

FACl  INTERMEDIATE  VARIABLE 

FAC2  INTERMEDIATE  V ARIA8LE 

FAC3  INTERMEDIATE  VARIABLE 

GAMA  FLIGHT  PATH  ANGLE 

IDAY  DAY 

I MIN  MINUTE 

OMEGS  REFERENCE  LONGITUDE  OF  ASCENDING  NCOE  OF 
ENTRY  PLANE  RELATIVE  TO  SU8S0LAR  COORDI- 
NATE SYSTEM 

PHIPS  ANGLE  BETWEEN  ASCENOING  NODE  AND  THE  PHI 
REFERENCE  LINE 

PHIX  PHI  REFERENCE  (SET  EQUAL  TO  ZERO) 

PLTR  COVARIANCE  MATRIX  FOR  LTR 

PSAV  INTERMEDIATE  ARRAY 

ROOT  INTERMEDIATE  VARIABLE 

RSIS  SUBSOLAR  POSITION  COORDINATES  OF  SPACE 
CRAFT  AT  THE  PROBE  SPHERE 

SUM1  INTERMEDIATE  VARIABLE 

SUM 2 INTERMEDIATE  VARIABLE 


/ / 
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NTRY-C 


SUM3 
SUM  4 
SUMS 
SUM6 
VSIS 

BR 

COMMON  COMPUT ED/ USE 0 1 
COMMON  USED* 


INTERMEDIATE  VARIABLE 

intermediate  VARIABLE 

INTERMEDIATE  VARIABLE 

INTERMEDIATE  VARIABLE 

SU3SOLAR  VELOCITY  COORDINATES  OF 
CRAFT  AT  THE  PROBE  SPHERE 

INTERMEDIATE  VARIABLE 

NO  XP 

DATEJ  OSI  NTP  PI 

RPS  TRTMB 


SPACE 


RAO 
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NTRY  Analysis 

Subroutine  NTRY  transforms  the  heliocentric  ecliptic  spacecraft 
state  and  covariance  matrix  to  entry  parameter  coordinates . This 
information  is  useful  in  defining  initial  data  for  the  Lander 
Trajectory  Reconstruction  (LTR)  program.  Subroutine  NTRY  also 
computes  the  communication  angle  at  entry. 

The  entry  parameter  state  is  defined  by  altitude  h,  velocity  v 
relative  to  the  planet,  flightpath  angle  y,  longitude  of  the 
ascending  node  , inclination  ig  of  the  entry  plane,  and  the 

angle  <J>  between  the  ascending  node  and  the  <|>  reference  line, 
s 

These  latter  angles  are  all  defined  relative  to  the  subsolar 
orbital-plane  coordinate  system  xg  yg  which  is  defined  in 

subroutine  SUBS0L.  All  entry  parameters « are  shown  in  the  follow- 
ing figure,  as  is  the  communication  angle 
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The  transformation  of  the  heliocentric  ecliptic  spacecraft  state 
to  the  entry  parameter  state  requires  first  that  the  target  planet 
heliocentric  .ecliptic  state  be  subtracted  to  obtain  the  relative 
spacecraft  position  r and  velocity  v.  The  equations  for  trans- 
forming r = (rx,  ry,  rj  and  v = Jvx>  vy,  v \ to  ^h,  v,  v,  $s> 

i , J2  ] are  summarized  below. 
a si 


Define  e = — and  e = , where  e is  a unit  vector  aligned 

r r n i-*"  „ -*‘i  r 

^ |r  x vj 

with  r and  e is  a unit  vector  normal  to  the  entry  plane.  Let  e 
n z 

denote  a unit  vector  aligned  with  the  z^-axis.  The  Cartesian 

subsolar  orbital-plane  components  of  these  three  unit  vectors 
will  be  denoted  as  follows} 


ez  = (0,  0,  1)  . 


Altitude  h and  velocity  v are  readily  obtained : 

h = |r|  - Rp  (1) 

v = |v|  (2) 


where  R is  the  target  planet  radius.  Flightpath  angle  y is 
1 . 

computed  from 


y 


sin-1 


(3) 


where 


r = v 


e . 
r 
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Longitude  of  the  ascending  node  £2  is  given  by 

s 


while  inclination  i is  obtained  from 

s 


S - cos  Je\. 


The  angle  <j  is  given  by 
s 


(sin  d> 
— 
cos  <j> 


where 


sin  (j> 


s sin  x 


Ye  e + e e \ 

<(  n r n r h 

cos  * = - i— 2 s 5 m 

Y c r-  ml?  * 


i n 

y x 


is  " 0 or  180  degrees,  the  following  equation  for  $ is  used 
instead: 


<t>_  ~ tan  1 ^ I-  ft  . 

\\  / s 


The  desired  entry  parameter  covariance  matrix  is  defined  by 


P = E 


[;?] 
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where  x = (fib,  <W,  6y  6^^) . Given  the  covariance  matrix 

P'  - E x"  x'T]  (9) 

where  x'  = (dr  , 6r  , 6r  , <$v  , <5v  , 6v  \ , the  desired  covariance 
\ x’  y z x y z)  * 

matrix  can  be  obtained  from 

P - A P"  AT  (10) 

where  transformation  matrix  A is  defined  by 

x = A x'.  (11) 

The  elements  a^  of  the  4x6  matrix  A are  found  by  computing  the 

differentials  of  equations  (1) , (2) , (3) , and  (6) . The  results 
of  this  process  are  summarized  as : 
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Communication  angle  *\>  is  computed  from 


cos 


(12) 


where 


r =*  spacecraft  position  relative  to  planet 
* Earth  position  relative  to  sun 


= planet  position  relative  to  sun. 
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SUBROUTINE  ORB 

PURPOSE!  TO  COMPUTE  THE  ORBITAL  ELEMENTS  — INCLINATION, 

LONGITUOE  OF  ASCENOING  NODE,  LONGITUDE  OF  PERIHELION, 
ECCENTRICITY,  ANO  LENGTH  OF  SEMIMAJOR  AXIS  — FOR  A 
SPECIFIED  PLANET  AT  A GIVEN  TIME. 

CALLING  SEQUENCE!  CALL  ORB(IP,D) 

ARGUMENT!  0 I JULIAN  DATE,  EPOCH  1900,  OF  THE  TIME  AT 

WHICH  THE  ELEMENTS  ARE  TO  BE  CALCULATED 

IP  I CODE  NUMBER  OF  PLANET 

= 1 SUN 
=2  MERCURY 
=3  VENUS 
= 4 EARTH 
=5  MARS 
=6  JUPITER 
=7  SATURN 
=8  URANUS 
=10  PLUTO 
=11  MOON 


SUBROUTINES 

SUPPORTED* 

DATA 

PSIM 

GUIOM 

HELIO 

PECEQ 

PRNTS4 

QATAS 

TRAKM 

GUID 

LAUNCH 

SAOCS 

TRAPAR 

PCTM 

TRAKS 

GUISIM 

LUNTAR 

SUBSOL. 

PRINT3 

TRAPAR 

GUISS 

MULCON 

PROBE 

PRINT4 

VMP 

PRNTS3 

MULTAR 

PROBES 

SUBROUTINES 

REQUIRED! 

NONE 

LOCAL  SYMBOLS!  FN1  STATEMENT  FUNCTION  DEFINING  A THIRD  ORDER 

POLYNOMIAL 

FN2  STATEMENT  FUNCTION  DEFINING  A FIRST  OROER 

POLYNOMIAL 

ITEMP  INTERMEDIATE  VARIABLE 

PI2  TWICE  THE  MATHEMATICAL  CONSTANT  PI 


COMMON  COMPUTED/ USED!  ELMNT  T 

COMMON  USED!  CN  EMN  SMJR  ST  TWOPI 
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ORB  Analysis 


ORB  determines  the  mean  orbital  elements  for  any  gravitational  body  at 
a specified  time* 

The  elements  used  are  semi-major  axis  a , eccentricity  e , inclination  i , 
longitude  of  the  ascending  node  ft  , and  longitude  of  periapsis  63.  These 
elements  are  referenced  to  heliocentric  ecliptic  for  the  planets  or  geo- 
centric ecliptic  for  the  moon. 

The  mean  elements  are  computed  from  time  expansions  as  follows.  Let  a be 
any  of  the  elements . Then  the  value  of  or  at  any  time  t is  given  by 

2 3 

* or(t)  & a + a_t  + a t 4-  t 
o i 2 3 

tfhere  the  constants  a are  stored  by  BIKDAT.  These  constants  are  stored 

k < I 

into  the  arrays  CN,  ST,  and  EMN  for  inner  planets,  outer  planets,  and 
the  moon  respectively.  The  definitions  of  these  arrays  and  the  values 
stored  are  provided  in  the  analysis  of  the  previous  subroutine  B1KSAT.  The 
element  value  as  computed  from  the  above  equation  is  then  returned  in  the 
EIMNT  array  according  to  the  gravitational  body  code  k as 


EIMNT(8k-15)  = i 

k = 1 

Sun 

= 1 

Saturn 

EIMNT(8k-14)  « G 

2 

Mercury 

8 

Uranus 

EIMNT(8k-13)  *=  S 

-3 

Venus 

9 

Neptune 

ElMNT(8k-l2)  <=  e 

4 

Earth 

10 

Pluto 

EEMNT(8k-10)  = a 

5 

Mars 

11 

Moon 

EIMNT(8k-9)  = cu 

6 

Jupiter 
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PARTL-A 


SUBROUTINE  PARTL 

PURPOSE  COMPUTE  PARTIALS  OF  B DOT  T AND  8 DOT  R WITH  RESPECT  TO 
SPACECRAFT  POSITION  AND  VELOCITY 

CALLING  SEQUENCES  CALL  PARTL(R,V»8,0DT,BDR,PBT,PBR) 

ARGUMENTS  8 0 IMPACT  PLANE  PARAMETER 

* 

BDR  0 B OOT  R 

BDT  0 B OOT  T 

PBR  0 PARTIAL  OF  B DOT  R WITH  RESPECT  TO  R AND  V 

PBT  0 PARTIAL  OF  B DOT  T WITH  RESPECT  TO  R AND  V 

R I POSITION  OF  VEHICLE  RELATIVE  TO  PLANET 

V I VELOCITY  OF  VEHICLE  RELATIVE  TO  PLANET 

SUBROUTINES  SUPPORTED  8 GUISS  GUIO 


' LOCAL  SYMBOLS 8 H3 

RU 

S 

U 

U2 

U2PV2 

UV 

UV3 

MZ 

COMMON  USED 8 


INTERMEDIATE  VARIABLE 
INTERMEDIATE  VARIABLE 
MAGNITUDE  OF  VELOCITY 
INTERMEDIATE  VARIABLE 
SQUARE  OF  U 
INTERMEDIATE  VARIABLE 
INTERMEDIATE  VARIABLE 
CUBE  OF  UV 

SQUARE  OF  MAGNITUDE  OF  VELOCITY 
ZERO 
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PARTL  Analysis 


PARTL  is  responsible  for  the  computation  of  the  partials  of  B*T  and 
B*R  with  respect  to  the  cartesian  components  of  position  and  velocity* 

Let  the  state  of  the  spacecraft  with  respect  to  the  target  body  at  inter- 
section with  its  sphere  of  influence  be  denoted 


of  Vi 


*r  * J 

x,  y,  z ] 

T 

r = V 4 

(i) 

“v  « 

1 1 

X* 

S* 

N' 

< 

T 

v 

(2) 

the  approach  asymptote 

/\ 

S and  approximate  it  by 

the  direction 

4 - 

— t 

V 

(3) 

The  B-plane  is  the  plane  normal  to  X containing  the  center  of  the  target 
body.  Any  vector  within  the  B-plane  must  satisfy  therefore 


3 ' /f  = 0 


(4) 


The  impact  parameter  vector  B is  determined  by  the  intersection  of  the 
B-plane  and  the  incoming  asymptote.  The  incoming  asymptote  is  given  par- 
ametrically by  * 


r + v t 


(5) 


The  time  at  which  the  asymptote  Intersects  the  B-plane  may  be  determined 
by  applying  the  B-plane  condition  (4) 


A . 

S • r + S • v t :F  0 


r*  v 

2 


(6) 


Therefore  the  B- vector  is  given  by 

•A 

B 


B = 


t- 

! 2 • 
v 


[ x - ax,  y - ay,  z - a z j 


(7) 


where  Ct  . « xx  + yy  + zz 

2 .2.2.2 

v x + y + z 
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Now  assuming  that  the  T axis  is  to  lie  in  the  x-y  reference  plane  and 
the  B- plane,  it  is  defined  as 


A 

T 


✓s 

T » 


A -A 

S x K 

A A 

S x K 


* , , 0 

u u 

where  u2  •»  x2  + y2  . The  ll  axis  is  defined  by 


(8) 


A A 

R » S x T 


o i r- • ••  2 ~i 

R *=  -=-  xz,  yz,  -u 

uv  L J 


(9) 


Now  combining  (7),  (8),  (9)  B*T  and  B*R  may  be  computed  in  terms  of 
the  state  components 


B»T  = -1 

(xy  - xy) 

u 

B»R  « i- 

[ (xx  + yy)z  - u2 

z] 

UV  L J 

where  u2  = x2  + y2 

2 2 . *2 
, v - u + z. 

The  partials  may  now 

be  computed  from 
* 

differentiation 

5B.  T _ y 

aB'R 

• • 

0X  U 

$ 

aB*T  „ _ x 

ax’ 

uv 

aB*R 

« ii 

ay  u 

ay 

uv 

sb*t  „ 0 

aB.R 

*=  - H 

dz 

02 

V 

(10) 


dB>T 
Q x 


gB»T 

ay 

<?B>T 

d z 


= “ (xx  + yy) 
u 


*“ T (xx  + yy) 
u J 


5b»r  z r 

0X  *33 

u v L 


d* 

QB.R  __z 
ay  m 3 

U V 


^(v2x  - xzz)-x(u2  + v2) (xx  + yy) 


~ u2(v2y  ~ yzz)-y(u2  + v2)  (xx  + yy) 


m It  U / • i ♦ . • \ 

__  m (xx  + yy  + zz) 
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PCDt-A 


SUBROUTINE  PCTH 

PURPOSE*  CONTROL  COMPUTATION  OF  STATE  TRANSITION  MATRIX  USING  THE 
ANALYTICAL  PATCHED  CONIC  TECHNIQUE 

CALLING  SEQUENCE*  CALL  PCTM(RI> 

ARGUMENT*  RI  I POSITION  AND  VELOCITY  OF  THE  VEHICLE  AT  THE 

BEGINNING  OF  THE  TIME  INTERVAL 

subroutines  SUPPORTED*  PSIM 

SUBROUTINES  REQUIRED*  CORC2  EPHEM'  . ORB 

LOCAL  SYMBOLS*  0 JULIAN  DATE,  EPOCH  JAN.O,  1900,  SF  INITIAL 

TIME 

DELT  LENGTH  OF  TIME  INCREMENT  IN  PROPER  UNITS 

DUM  TEMPORARY  STORAGE  FOR  STATE  TRANSITION 

MATRIX 

GMS  GRAVITATIONAL  CONSTANT  OF  GOVERNING  BODY 

IP  CODE  OF  PLANET 

RM  DISTANCE  FROM  SPECIFIED  PLANET 

1 

RS  POSITION  OF  VEHICLE  RELATIVE  TO  SPECIFIES 

PLANET 

VS  VELOCITY  OF  VEHICLE  RELATIVE  TO  SPECIFIED 

PLANET 

COMMON  COMPUTED/USED*  XP 

COMMON  COMPUTED*  NO  PHI  ... 

COMMON  USED*  ALNGTH  DATE J DELTM  F IBARY 

NBOD  NB  PMASS  SPHERE  TM 

TRTM1 
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PCTM  Analysis 


Subroutine  PCTM  does  not  actually  compute  the  state  transition  matrix 


*<V  VP  fteelf; 


this  is  accomplished  by  calling  C0NC2  from  within 


PC1M.  The  primary  function  of  PCTM  is  to  determine  the  dominant  body  at 
time  tk_1  to  be  used  in  the  computation  of  0^,  by  means  of  the 


analytical  patched  conic  technique. 


On  interplanetary  trajectories  we  compute  the  distance  separating  the 
spacecraft  from  each  of  the  celestial  bodies  Included  in  the  analysis. 

If  the  distance  between  the  spacecraft  and  the  i-th  body  Is  less  than  or 
equal  to  1.1  times  the  sphere  of  influence  of  the  i-th  body,  the  i-th 
body  is  selected  as  the  dominant  body.  Otherwise,  the  Sun  is  selected  as 
the  dominant  body. 


On  lunar  trajectories  we  compute  the  distance  separating  the  spacecraft 
from  the  Moon.  If  this  distance  is  less  than  or  equal  to  1.1  times  the 
sphere  of  influence  of  the  Moon,  the  moon  is  selected  as  the  dominant  body. 
If  not,  the  Earth  is  selected  as  the  dominant  body. 
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PCTM  Flow  Chart 


ENTER 


\ 

f 

Compute  Julian 

date  at  t^_^. 

Is  reference  coordinate  system 
heliocentric  or  barycentnc 
^ecliptic? 

^helio  - 
I « 1 


PCTM- 2 


I + 1 


Compute  position  and  velocity  of  I-th 
body.  Compute  position,  velocity, 
and  position  magnitude  of  spacecraft 
relative  to  I-th  body. 


Is  spacecraft  within  1.1  times  the 
sphere  of  influence  of  the  I-th  body? 


Have  all  celestial  bodies 
been  treated? 


Select  Sun  as  dominant  body. 


Compute  gravitational  constant  of 
dominant  body . 


Call  C0NC2  to  compute  0 
analytically  over  the  time 
interval  tj. 


Select  I-th  body  as 
dominant  body. 


RETURN1 


PCTM-3 
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PECEQ-A 


SUBROUTINE  PECEQ 

PURPOSE!  TO  COMPUTE  THE  MATRIX  DEFINING  THE  TRANSFORMATION  FROM 
PLANET  CENTEREO  ECLIPTIC  COORDINATES  TO  PLANET  CENTERED 
EQUATORIAL  COORDINATES  AS  A FUNCTION  OF  THE  PARTICULAR 
PLANET  AND  TIME. 

CALLING  SEQUENCE!  CALL  PECEQ (NP ,0, ECEQ) 

ARGUMENT  NP  I CODE  OF  PLANET 

D I JULIAN  DATE,  EPOCH  1900,  OF  REFERENCE  TIME 

ECEQ ( 3, 3)  0 COORDINATE  TRANSFORMATION  MATRIX  FROM 

PLANETOCENTRIC  ECLIPTIC  TO  PL ANETOCENTRIC 
EQUATORIAL  COORDINATES 

SUBROUTINES  SUPPORTED!  TARGET  HELIO  LAUNCH  LUNTAR  MULTAR 

INSERS  TRAPAR  VMP  DATAS  GUISIM 

OATA  GUIOM  EXCUTE  SOIPS  TPRTRG 

SUBROUTINES  REQUIRED!  EULMX  ORB 

LOCAL  SYMBOLS!  AGCAC  COORDINATE  TRANSFORMATION  MATRIX  FROM 

ORBITAL  PLANE  TO  EQUATORIAL  COORDINATES 
FOR  MOON 

AHCGC  COORDINATE  TRANSFORMATION  MATRIX  FROM 
GEOCENTRIC  ECLIPTIC  TO  GEOCENTRIC 
EQUATORIAL  COORDINATES  FOR  EARTH  - fROM 
ECLIPTIC  TO  ORBITAL  PLANE  COORDINATES  FOR 
MOON 

CSDECL  COSINE  OF  OECL 
CSEOBL  COSINE  OF  EOBL 
CSINM  COSINE  OF  INM 
CSNOM  COSINE  OF  NOOEM 
CSRASC  COSINE  OF  RASC 

DECL  DECLINATION  OF  TARGET  PLANET  POLE 

DGTR  CONVERSION  FACTOR  FROM  DEGREES  TO  RADIANS 

ED  JULIAN  DATE  , EPOCH  4713  B.C. 

EOBL  OBLIQUITY  OF  ECLIPTIC 


INM 


INOEX 
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PECEQ-B 


NODEM  INDEX 

NORM  UNIT  VECTOR  NORMAL  TO  TARGET  PLANET 
ORBITAL  PLANE 

\ 

P BAR  CROSS  PRODUCT  OF  POLE  AND  NORM 
PMAG  MAGNITUDE  OF  P8AR 

POLE  UNIT  VECTOR  ALIGNED  WITH  TARGET  PLANET 
POLAR  AXIS 

POLMAG  MAGNITUDE  OF  POLE 

QBARP  CROSS  PRODUCT  OF  POLE  ,.AND  PBAR 

QMAG  MAGNITUDE  OF  QBARP 

RASC  RIGHT  ASCENSION  OF  TARGET  PLANET  POLE 

SNDECL  SINE  OF  OECL 

* %.  11 

SNEOBL  SINE  OF  E03L 
SNINM  SINE  OF  INCLINATION  INM 
SNNOM  SINE  OF  NODE  NDM 
SNRASC  SINE  OF  RASC 
TPRIM  BESSELI AN  DATE 
XI  INTERMEDIATE  VALUE 

XIO  INTERMEDIATE  VALUE 

XL  INTERMEDIATE  VALUE 

XLQ  INTERMEDIATE  VALUE 

COMMON  USEO  * EMN  ONE  T ZERO 
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PECEQ  Analysis 


Subroutine  PECEQ  computes  the  coordinate  transformation  maxtrix 
A from  planetocentric  ecliptic  to  planetocentric  equatorial  co- 
ordinates for  an  arbitrary  planet. 


The  derivation  of  A for  a planet  other  than  the  earth  or  moon 
will  be  summarized.  Matrix  A is  defined  by 


A 


[ 


X 


(1) 


where  X,  Y,  and  Z are  unit  vectors  aligned  with  the  planetocentric 
equatorial  coordinate  axes  and  referenced  to  the  planetocentric 
ecliptic  coordinate  system.  Unit  vector  Z is  aligned  with  the 
planet  pole.  Unit  vector  X lies  along  the  intersection  of  the 
of  the  planet  equatorial  and  orbital jd lanes  and  points  at  the 
planet  vernal  equinox.  Unit  vector  Y completes  the  orthogonal 
triad  and  is  given  by 

A A A 

Y = Z x X.  (2) 

A A A 

It  remains  to  obtain  expressions  for  X and  Z.  Let  N denote  the 
unit  vector  normal  to  the  planet  orbital  plane,  and  let  P denote 
the  unit  vector  aligned  with  the  planet  pole.  Then 

Z = P • (3) 


and 


x - P.  * N 

'li.sf  «> 

The  unit  vector  N,  referred  to  the  ecliptic  coordinate  system,  is 
given  by 


sin  i sin  ft 
N = | -sin  i cos  ft 
cos  i 


(5) 


where  i and  ft  are  the  inclination  and  longitude  of  the  ascending 
node,  respectively,  of  the  planet  orbital  plane.  The  unit  vector 
P,  referred  to  the  ecliptic  system  is  given  by 
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PECEQ-2 


p 


cos  a cos  6 

cos  c sin  a cos  6 + sin  e sin  <$ 


j^-  sin  £ sin  a cos  6 + cos  e sin  6 


(6) 


where  a and  5 are  the  right  ascension  and  declination,  respec- 
tively, of  the  planet  pole  relative  to  the  geocentric  equatorial 
coordinate  system,  and  e is  the  obliquity  of  the  ecliptic-  Ex- 
pressions for  u and  6 for  each  planet  were  obtained  from  JPL  TR 
32-1306,  Constants  and  Related  Information  for  Astrodyrumia  Cal- 
culations, 1968,  by  Melbourne,  et  al . 


For  the  earth  and  the  moon,  the  transformation  matrix  A is  writ- 
ten as  the  produce  of  two  transformation  matrices 


A A2  A^. 


(7) 


For  the  earth  A^  is  the  identity  matrix  and  A^  is  given  by 


Al  = 


1 0 
0 cos  e 

0 sin  e 


0 1 

-sin  e 
cos  e‘ 


XYZ 

X Y Z 
o o o 

Vqzq 


6 

e 


(8) 


The  following  figure  defines  the  transformations  A..  and  A~, 
using  the  definitions  given.  1 


Ecliptic  coordinate  axes 
Orbital  plane  coordinate  axes 

MoonTs  equatorial  coordinate  axes 

Inclination  of  moon's  orbital  plane  to  ecliptic 
plane 

i 

Right  ascension  of  moon's  orbital  plane  to 
ecliptic  plane 

Inclination  of  moon's  equatorial  to  orbital 
plane 

Right  ascension  of  moon's  equatorial  to  orbital 
Plane 
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Z ' " 


fXo 


The  transformation  from  ecliptic  to  orbital  plane  coordinates 

is  performed  by  rotating  about  the  z-axis  through  an  angle  0.  and 
then  about  the  resulting  x-axis  through  an  angle  i.  Symbolically, 

® (ft  about  3,  i about  1).  (9) 

The  transformation  A^  from  orbital  plane  to  equatorial  coordinates 
can  be  written  similarly  as 

A^  - (9  about  -3,  6 about  -1)  . (10) 
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PECEQ  Flow  Chart 
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PERHEL-A 


SUBROUTINE  PERHEL 

PURPOSE#  TO  PROPAGATE  A HELIOCENTRIC  TRAJECTORY  CONSIDERING  THE 
PERTUBATIONS  PRODUCED  BY  BOTH  THE  LAUNCH  AND  TARGET 
BODIES* 

CALLING  SEQUENCE*  CALL  PERHEL(6M»HSI,HLTI ,HLTF ,QELT»HSF) 

ARGUMENTS  GM(3>  I GRAVITATIONAL  CONSTANTS  OF  SUN,LAUNCH  AND 

TARGET  PLANETS 

MSI (6)  I HELIOCENTRIC  ECLIPTIC  SPACECRAFT  STATE 
(INITIAL) 

HLYKZtfS)  I INITIAL  HELIOCENTRIC  STATES  QF  LAUNCH  AND 
TARGET  BODIES 

HLTF<2®3)  I FINAL  HELIOCENTRIC  STATES  OF  LAUNCH  AND 
TARGET  BOOTES 

DELT  I TXHE  INTERVAL  OF  PROPAGATION 

HSF(6>  0 HELIOCENTRIC  F.CLtPTIC  SPACECRAFT  STATE 
(FINAL) 


SUBROUTINES  SUPPORTED  8 
SUBROUTINES  REQUIRED 8 
LOCAL  SYMBOLS  8 CON 

OELR 

PER 

PSF 

PSI 

RSV  ( 

RA 

RF 

RH 

RI 


PULCOV  PULSEX 

i 

8ATC0N 

INTERMEDIATE  VARIABLE 
RF-RX 

PERTURBATION  IN  FINAL  STATE 

SPACECRAFT  POSITION  RELATIVE  TO  PLANET 
(FINAL) 

SPACECRAFT  POSITION  RELATIVE  TO  PLANET 
(INITIAL) 

AVERAGE  OF  RI  AND  RF 
INTERMEDIATE  VARIABLE 
MAGNITUDE  OF  PSF 
INTERMEDIATE  VARIABLE 
MAGNITUDE  OF  PSI 

t i 
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PEBCEDWG  PAGE  blank  NOT  ITU®* 

PERHEL  Analysis 


PERHEL  is  responsible  for  propagating  a heliocentric  trajectory  considering 
the  perturbations  produced  by  both  the  launch  and  target  bodies.  The  equa- 
tions of  motion  of  a body  moving  under  the  influence  of  the  sun  while  per- 
turbed by  a smaller  mass  are 

f m _ /v  iCr  - ^m  > 


where  r is  the  vector  radius  from  the  sun  to  the  spacecraft 

*r>  is  the  vector  radius  from  the  sun  to  the  perturbative  mass 
in 

fX  , fi  are  the  gravitational  constants  of  the  sun  and  mass  respectively. 


Zir 
^ m 

r 3 


XD 


Assuming  that  the  indirect  term  is  small,  attention  may  be  directed  to  the 
first  two  terms  only.  Suppose  that  (T?0(t),  v^(t))  satisfy 


(2) 


Then  (rQ(t),  vQ(t))  are  given  by  the  familar  equations  of  conic  motion. 

A first  order  corrected  solution  necessary  to  account  for  the  direct  term 
force  must  then  satisfy 


t + it 

o 

■v  + Ov 


A*  or< 


- fi 


( - rj 


m 


r - r 
o m 


(3) 


Applying  the  conditions  (2)  leads  to  the  equations  defining  the  corrections 


£r 


Tv 


9 .. 

^ 4 
r 


(4) 


where  R ■ rQ(t)  ~ rm(t)  is  the  position  vector  of  the  spacecraft  with  respect 
to  ‘the  perturbing  mass. 

One  further  assumption  enables  one  to  solve  in  closed  form  the  perturbations 
produced  by  the  third  mass.  Generally  "R  (t)  and  R (t)  are  nearly  linear 
functions  of  time.  Therefore  supgose^that  the  initial  and  final  values  of 
these  variables  are  known  to  be  Tl  > over  the  interval  At. 
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Introduce  the  definitions 

Ar 

Ar 


R2“  R1 


R2  " R1 


(not  Jar  ) 


<R>  « \ (Rx  + R2) 


A 

Ar 


2 _ 


h 

R„ 


(5^ 


Then  the  equation  defining  the  velocity  perturbation  would  be 

a i b t 


- ft 


(c  + d t)' 


R1 

AR 

At 


c = R. 


d - 4R 


1 

R 
At 


(6) 


It, is  more  convenient  however  to  transform  from  time  t to  position 
magnitude  p as  the  independent  variable.  This  may  be  done  since  the 
position  magnitude  is  assumed  to  be  linear  in  time  with  p = AR  , 

_ At 

According  to  the  assumptions,  the  position  vector  R is  a linear  function 
of  p also 


R **  A + B p 

t 

Since  R ( p^)  «*  R^  and  R ( p^)  *=  R2>  the  constants  are 

— k A r Ri  R9  A 

A " Ri  AR  Ri  ^R 


(7) 


AR 


B = 


Ar 

AR 


(8) 


In  terms  of  p the  equations  defining  the  perturbations  may  be  written 
(with  primes  indicating  differentiation  with  respect  to  p ) 


Sv' 


Sv 

AR 

- ~A  +ltp 

AR  „3 


(9) 


These  equations  are  easily  integrated  _to  determine  the  perturbations  caused 
as  the  spacecraft  moves  from  R^  to  R relative  to  the  perturbative  body: 
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8 v 


#A  t 
AR 


A + B p 
<1 3 


dp 


3r 


fiAt 

AR 


(X  At 
r^Ar 


A 

<r>  Ar 


#At 

Ar 


1 Ar  + Ar 
1 ri  AR2 


Ar\ 

V 


dp 


(10) 


(11) 


PERHEL  calls  BATCON  for  the  generation  of  the  uqcorrected  heliocentric 
conic,  computes  the  initial  and  final  positions  of  the  spacecraft  relative 
to  each  of  the  launch  and  target  planets,  and  computes  the  perturbations 
based  on  equations  (10)  and  (11)  above. 
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PERHEL  Flow  Chart 


i 

Compute  initial  and  final  relative 
position  of  S/C  to  body  IB 


PLND-A 


SUBROUTINE  PINO 

PURPOSE  t TO  COMPUTE  COLUMNS  OF  THE  STATE  TRANSITION  MATRIX 

PARTITIONS  TXXS,  TXW  ANO  TXU  ASSOCIATED  WITH  TARGET  PLANET 
PLANET  EPHEMERIS  BIASES  INCLUOEO  IN  THE  AUGMENTED  STATE 
VECTOR  8Y  A NUMERICAL  DIFFERENCING  TECHNIQUE. 

CALLING  SEQUENCE * CALL  PLNO(RI,RF> 

ARGUMENT*  RF  I POSITION  ANO  VELOCITY  OF  THE  VEHICLE  AT  THE 

ENO  OF  THE  TIME  INTERVAL 

RI  I POSITION  ANO  VELOCITY  OF  THE  VEHICLE  AT  THE 

BEGINNING  OF  THE  TIME  INTERVAL 

SUBROUTINES  SUPPORTEO*  PSIM 


SUBROUTINES  REQUIRED*  NTH 

LOCAL  SYMBOLS*  DEL  TEMPORARY  STORAGE  FOR  TARGET  PLANET  SEMI- 
MAJOR AXIS  FACTOR  USED  IN  NUMERICAL 
DIFFERENCING 


IC  COUNTER  FOR  VARIABLES  AUGMENTED  TO  STATE 

VECTOR 


I EMN  VECTOR  OF  INDICES  FOR  ORBITAL  ELEMENTS  OF 
THE 'MOON 

I ENO  FLAG  FOR  VARIABLES  AUGMENTEO  TO  STATE 

VECTOR 

NEW  VECTOR  OF  INDICES  FOR  ORBITAL  ELEMENTS  OF 

INNER  ANO  OUTER  PLANETS 


RPER  ALTERED  FINAL  POSITION  AND  VELOCITY  OF 
VEHICLE 


SAVE1  TEMPORARY  STORAGE  FOR  CONSTANTS  OF 

AUGUMENTED  ELEMENTS  OF  TARGET  PLANET 

SAVE 2 SAME  COMMENTS  AS  SAVE1 

SAVE3  SAME  COMMENTS  AS  SAVE! 


COMMON 

COMPUTED/USED* 

CN 

EMN 

IPRINT 

SMJR 

ST 

COMMON 

COMPUTED* 

TXU 

TXXS 

TXW 

COMMON 

USED* 

ALNGTH 
I AUG 

DELAXS 

NTMC 

DELX 

NTP 

IAUGOC 

IAUGW 
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PLND-1 


PLND  Analysis 

The  nonlinear  equations  of  motion  of  the  spacecraft  can  be  written 
symbolically  as 

x = ?(x,  e(t)  , t)  (1) 

where  x is  the  spacecraft  position/velocity  state  and  e(t)  is  a 
vector  composed  of  the  six  orbital  elements  a,  e,  i,  £5,  w,  and  M 
of  the  target  planet.  The  motion  of  the  spacecraft  is,  of  course, 
dependent  on  the  positions  of  other  celestial  bodies,  but  this 
dependency  need  not  be  explicitly  stated  for  the  purposes  of  this 
analysis . 


Suppose  we  wish  to  use  numerical  differencing  to  compute  those 
columns  of  0 ,6  , and  0 associated  with  target  planet  ephem- 

XX  XU  XW 

s 

eris  biases  included  in  the  augmented  state  vector  over  the  time 
interval  [t^^,  • bet  rePresent  the  column  associ- 

ated with  the  j-th  ephermeris  bias.  We  assume  we  have  available 
the  nominal  states  x*(t^  and  x*(t^),  which,  of  course,  were  ob- 
tained  by  numerically  solving  equation  (1)  using  nominal  e(t) . To 
obtain  ^(tR,  t^) , we  increment  the  j-th  orbital  element  by  the 
pertinent  numerical  differencing  factor  Ae^  and  numerically  inte- 
grate equation  (1)  over  the  interval  [y_^,  to  obtain  the  new 
spacecraft  state  x^Cy,  where  the  j-subscript  on  the  spacecraft 

state  indicates  that  it  was  obtained  by  incrementing  the  j-th  or- 
bital element.  Then 


+ , 
e.(t, , 

3 k 


- x*(y 

Ae"! 

3 


(2) 


Ephemeris  biases  are  defined  as  biases  of  the  basic  set  of  orbital 
elements  a,  e,  i,  £2,  ou,  and  M.  However  the  ephemeris  constants  of 
a,  e,  i,  £2,  m,  and  M for  the  planets  and  a,  e,  i,  £2,  Si,  and  L for 
the  moon  are  stored  in  the  program.  Thus  to  increment  certain  of 
the  basic  elements,  we  must  increment  certain  combinations  of  the 
stored  ephemeris  constants. 


422 


PLND-2 


The  elements  w and  M are  related  to  the  longitude  of  perihelion  S 
and  the  mean  longitude  L as  follows: 


w =■  w - ft 


M “ L - oi 


Thus,  to  Increment  ft  by  Aft  without  changing  the  other  five  basic 
elements  requires  that  we  also  increment  to  by  Aft  for  the  case  of  a 
planet,  and  both  & and  L by  Aft  for  the  case  of  the  moon.  To  in- 
crement w by  Aw  we  simply  increment  5>  by  Ato  for  a planet,  while 
for  the  moon  we  must  increment  both  & and  L by  Aw.  To  increment 
M by  AM  for  the  moon  we  simply  increment  L by  AM. 

In  the  PLND  flow  chart  we  employ  the  following  definition: 

a 3 = 1 
e 2 

i 3 

ft  4 

to  5 

M 6 
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PLND-3 
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PLND  Flow  Chart 


PLND-4 
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POICCM-A 


SUBROUTINE  POICOH 

PURPOSE  COMPUTE  PROBABILITY  OF  IMPACT 
CALLING  SEQUENCES  CALL  POICOMtXXXX ,OET> 

ARGUMENTS  XXXX  I AIMPOINT  IN  THE  IMPACT  PLANE  VECTOR 

DET  I DETERMINANT  OF  LAMBOA  MATRIX 

SUBROUTINES  SUPPORTED S 8IAIM 
SUBROUTINES  REQUIREOS  HATIN 
LOCAL  SYMBOLS S PMQM  P+  MQM  TRANSPOSE 

SAVE  INTERMEDIATE  VARIABLE 

SUM  INTERMEDIATE  VARIABLE 

W ADA*  PMQM*  ADA  TRANSPOSE 


COHMON 

COHPUTED/USEOS 

IEND 

POI 

PSTAR 

XLAM 

COMMON 

USEDS 

ADA 

A 

CR 

EXEC 

IIGP 

ONE 

ZERO 

PI 

PP 

TWO 

XLAMI 
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POICCM-1 


POICOM  Analysis 


Subroutine  POICOM  computes  the  target  condition  covariance  W.  after  a guidance 

J 

correction,  the  projection  of  into  the  Impact  plane,  and  the  probabilty  of 
Impact  of  the  spacecraft  with  the  target  planet. 

+ 

The  target  condition  covariance  matrix  Wj  is  defined  as 

»;  - Oj  + MgjMT) 

where  is  the  variation  matrix  for  the  appropriate  guidance  policy, 

A J 

is  the  knowledge  covariance  prior  to  the  guidance  correction,  is  the 
execution  error  covariance,  and  M is  defined  as  the  following  6x3  matrix: 

M ■ [°  i X1 1 


i 


Before  the  probability^of  impact  can  be  computed,  it  is  necessary  to  compute 
the  projections^  of  into  the  impact  plane.  The  covarianceTVj  is  computed 

as  follows  for  each  of  the  three  available  midcourse  guidance  policies. 


a. 


b. 


Fixed-time -of -arrival : 

A, 


uj 


+ T 
A WT  A 
J 


where  transformation  A is  defined  in  the  subroutine  BIAIM  analysis. 
Two-variable  B-plane: 

Aj  “ WJ  ‘ 1 • 

Three-variable  B-plane: 


"l 

0 

~1 

0 

0 

4- 

W3 

0 

1 

1 

0_ 

1 

\ 

0 

0_ 
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POICOM-2 


Assuming  the  probability  density  function  associated  with,/\,j  Gaussian 

and  nearly  constant  over  the  target  planet  capture  area  permits  us  to 
compute  the  probability  of  impact  using  the  equation 


POI  = 7TR  p 
c 


where  R Is  the  target  planet  capture  radius  and  p is  the  Gaussian  probability 
density  function  evaluated  at  the  target  planet  center  and  given  by 


where  fj.  is  the  aimpoint  in  the  impact  plane. 
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POICDM-3 


POICOM  Flow  Chart 
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PRED-A 


PROGRAM  PREG 

PURPOSE  CONTROL  EXECUTION  OF  A PREDICTION  EVENT  IN  THE  ERROR 
ANALYSIS  PROGRAM 

SUBROUTINES  SUPPORTED  t ERRANN 


SUBROUTINES  REQUIRED* 

CORREL 

DYNO 

HYELS 

JACOBI 

GNAVM 

NTM 

PSIM 

STMPR 

SAVMAT 

EIGHY 

. 

MEAN 

GPRINT 

ORB 

EpHEM 

BEPS 

LOCAL  SYMBOLS*  BLAB  LABEL 


BPS  B-PLANE  PARAMETER  COVARIANCE 

CXSU1  STORAGE  FOR  CXSU  COVARIANCE  ARRAY 

CXSV1  STORAGE  FOR  CXSV  COVARIANCE  ARRAY 

CXU1  STORAGE  FOR  CXU  COVARIANCE  ARRAY 

CXV1  STORAGE  FOR  CXV  COVARIANCE  ARRAY 

CXXSi  STORAGE  FOR  CXXS  COVARIANCE  ARRAY 

0 JULIAN  OATE  PREDICTED  TO 

DUMM  INTERMEDIATE  VARIABLE 

DUM2  ARRAY  OF  EIGENVECTORS 

0UM3  ARRAY  OF  EIGENVALUES 

DUM  8 DOT  T AND  8 DOT  R COVARIANCE  MATRIX 

EGVCT  ARRAY  OF  EIGENVECTORS 

EGVL  ARRAY  OF  EIGENVALUES, 

t 

EXSTS  TEMPORARY  STORAGE  FOR  EXST 

EXTS  TEMPORARY  STORAGE  FOR  EXT 

EXTIJ  INTERMEDIATE  STORAGE 

ICODE  INTERNAL  CONTROL  FLAG 

IGO  INTERNAL  FLAG 

IPR  STORAGE  FOR  IPRINT 

OUT  ARRAY  OF  STANDARD  DEVIATIONS  AND 

430  CORRELATION  COEFFICIENTS 


PRED-B 


PEIG  MATRIX  WHOSE  HYPERELLIPSOID  IS  TO  BE 
COMPUTED 

PSAVE  TEMPORARY  STORAGE  FOR  P 

PSUB8  B-PLANE  PARAMETER  UNCERTAINTIES 

PS1  STORAGE  FOR  PS  COVARIANCE  ARRAY 

PI  STORAGE  FOR  P COVARIANCE  .ARRAY 

RF  NOMINAL  SPACECRAFT  STATE  AT  TIME  TPT 

RFMAG  VELOCITY  MAGNITUDE 

ROW  INTERMEDIATE  VARIA8LE 

RPC  PLANETOCENTRIC  STATE 

RPCSV  TEMPORARY  STORAGE  FOR  RPC 

SQP  INTERMEDIATE  VARIABLE 

SUM  INTERMEDIATE  VARIABLE 

THETA  ANGLE 

TPT  TIME  TO  WHICH  PREDICTION  IS  TO  BE  MADE 

TRANSG  STATE  TRANSITION  MATRIX  RELATING  CHANGE  IN 
POSITION/VELOCITY  TO  B-PLANE  PARAMETERS 

VEIG  , INTERMEDIATE  VECTOR 


COMMON 

COMPUTED/USED* 

CXSU 

CXSV 

CXU 

CXV 

cxxs 

IPRINT 

NPE 

PS 

P 

GCXSW 

GCXW 

COMMON 

COMPUTED* 

OELTM 

TRTM1 

XI 

COMMON 

USED* 

EM 

FOP 

FOV 

IEIG 

IHYP1 

1ST  MC 

NOIMl 

NOIM2 

N0IM3 

NGE 

NTMC 

ONE 

Q 

TPT  2 

TSOI  i 

GP, 

EXT 

EXST 

UO 

VO 

XF 
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PRED-1 


PRED  Analysis 

Subroutine  PRED  executes  a prediction  event  in  the  error  analysis/ 
generalized  covariance  analysis  program.  Subroutine  PRED  differs 
from  subroutine  PRESIM  in  three  respects.  First,  the  propagated 
knowledge  covariance  matrix  partitions  are  based  on  the  (most 
recent)  targeted  nominal,  rather  than  on  the  most  recent,  nominal 
as  in  PRESIM.  Second,  estimated  position/ velocity  deviations  are 
not  propagated  in  PRED  since  estimates  are  processed  only  in  the 
simulation  program  and  not  in  the  error  analysis  program.  And 
third,  subroutine  PRED  treats  both  assumed  and  actual  knowledge  co- 
variance  matrix  partitions,  whereas  subroutine  PRESIM  treats  only 
assumed  knowledge  covariance  matrix  partitions.  Subroutine  PRED 
uses  the  propagation  equations  in  subroutine  GNAVM  to  propagate 
both  assumed  and  actual  covariances. 

A flow  chart  for  PRED  is  not  presented  here  because  of  its  simi- 
larity to  the  PRESIM  flow  chart  (see  PRESIM  for  further  details) . 
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PRELIM-A 


SUBROUTINE  PRELIM 

PURPOSE  TO  PERFORM  THE  PRELIMINARY  WORK  ASSOCIATED  WITH  THE 

NOMNAL  PROGRAM  INCLUDING  THE  READING  OF  THE  INPUT  DATA, 
INITIALIZATION  OF  CONSTANTS,  AND  THE  COMPUTATION  OF  A 
ZERO  ITERATE  IF  REQUIRED 

CALLING  SEQUENCES  -CALL  PRELIM 

SUBROUTINES  SUPPORTED t NOMNAL 

SUBROUTINES  REQUIRED*  CPNMS  TIME  ZERIT 

LOCAL  SYMBOLS*'  OF  JULIAN  DATE  CORRESPONDING.  TO  KALF  ARRAY 

DI  JULIAN  DATE  CORRESPONDING  TO  KALI  ARRAY 

GS  ARRAY  OF  VALUES  OF  SECONDS  CORRESPONDING 

TO  KALG  ARRAY 

I INDEX 


J INDEX 

KALF  CALENDAR  DATE  OF  FINAL  TRAJECTORY  TIME 

KALG  ARRAY  OF  CALENDAR  DATES  OF  GUIDANCE  EVENTS 

KALI  CALENDAR  DATE  O^  INITIAL  TRAJECTORY  TIME 

KALT  ARRAY  OF  CALENDAR  DATES  OF  TARGET  TIMES 

KEY  LOCAL  VARIABLE  USED  TO  COMPLETE 
INFORMATION  IN  THE  ARRAY 

SF  SECONDS  OF  FINAL  TRAJECTORY  TIME 

SI  SECONDS  OF  INITIAL  TRAJECTORY  TIME 

TS  SECONDS  OF  TARGET  TIMES  CORRESPONDING  TO 

KALT  ARRAY 


COMMON  CpMBUTED/USEOS  AC 

I BADS 

ISTART 

KTIM 

MAXB 

NOGYO 

PHILS 

RP 

THEDOT 

TIN 


ALNGTH 

OG 

PI 

PI 

IBARY 

I COORD 

IFINT 

IPRE 

IZERO 

KGYD 

KMXQ 

KOAST 

KTYP 

LTARG 

LVLS 

MAT 

MDL 

N80D 

NB 

NCPR 

NOIT 

NPAR 

ONE 

PERV 

PSI1 

PSI2 

RIN 

RPRAT 

SIGMAL 

SPHFAC 

SSS 

TAR 

THELS 

TIMG 

TIM1 

TIM2 

TMPR 

TM 

ZOAT 
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PRELIM- B 


COMMON 

COMPUTED  8 

DINTG 

IEPHEM 

NINETY 

T-RTH 

EIGHT 

IPRINT 

RAO 

TWO 

FIVE 

KSICA 

TEN 

ZERO 

FOUR 

KUR 

THREE 

HALF 

NBOOYI 

THU 

COMMON 

USED* 

ACKT 

KTAR 

NTP 

DELV 

LEVELS 

PHI 

OT 

MAXBAD 

PMASS 

DVMAX 

NITS 

TIMS 

IBAST 

NLP 

TOL 

.434 


PRELIM- 1 


PRELIM  Analysis 


PRELIM  is  responsible  for  the  preliminary  work  required  by  NGMNAL  including 
the  initialization  of  variables,  the  reading  of  input,  and  the  computation 
of  zero  iterate  values  for  initial  time,  position,  and  velocity  if  necessary. 

On  the  first  call  to  PRELIM,  PRELIM  presets  constants  to  be  used  on  the 
entire  series  of  runs.  These  constants  include  the  double  precision  numbers 
and  the  launch  profile  parameters.  On  subsequent  calls  these  variables 
are  not  reset. 

PRELIM  then  presets  constants  for  individual  runs.  These  constants  presently 
include  most  of  the  guidance  event  parameters.  The  user  may  easily  change 
the  two  sets  of  constants  for  his  particular  needs. 

PRELIM  then  accepts  the  input  data.  It  reads  data  in  the  NAMELIST  format. 

Target  times  must  be  read  in  as  calendar  dates.  PRELIM  next  converts  these 
to  Julian  date  referenced  1900  and  stores  the  converted  values  in  the  TAR 
array. 

If  the  flag  ZZERO  is  nonzero,  ZERIT  is  called  for  the  computation  of  the 
zero  iterate  values  of  initial  time,  position,  and  velocity.  ZERIT  in  turn 
calls  HELIO  for  interplanetary  trajectories  and  LUNA  for  lunar  trajectories. 

PRELIM  then  converts  guidance  event  times  referenced  to  initial  time  to 
calendar  data  and  converts  times  read  in  as  calendar  dates  to  times  ref- 
erenced to  the  initial  time.  When  the  latter  is  done,  it  sets-KTIM  to 
acknowledge  that  conversion. 

Finally  PRELIM  records  all  pertinent  data. 
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PRELIM  Flow  Chart 


PRELIM- 2 


RETURN  j 


PREPUL-A 


SUBROUTINE  PREPUL 

PURPOSE  * TO  PERFORM  THE  PRELIMINARY  COMPUTATIONS  REQUIRED  FOR  THE 
PULSING  ARC  MODEL. 

CALLING  SEQUENCE!  CALL  PREPULtRIN, DELTAV , Dl) 

ARGUMENTS!  RIN<6)  I INERTIAL  STATE  OF  SPACECRAFT  AT  NOMINAL 

TIME  OF  CORRECTION 

DELTA V (3)  I TOTAL  VELOCITY  INCREMENT  TO  BE  ADDED 

Di  I JULIAN  DATE  OF  NOMINAL  TIME  OF  CORRECTION 

SUBROUTINES  SUPPORTED!  EXCUTE  EXCUTS 

SUBROUTINES  REQUIRED!  TIME 

LOCAL  SYMBOLS!  A SEMIMAJOR  AXIS 

C INTERMEDIATE  VARIABLE  IN  F AND  G SERIES 

D8  JULIAN  DATE  AT  BEGINNING  OF  PULSING  ARC 

DEL VM  MAGNITUDE  OF  TOTAL  IMPULSIVE  CORRECTION 

DE  JULIAN  DATE  AT  END  OF  PULSING  ARC 

DVFM  MAGNITUDE  OF  FINAL  PULSE  OF-SEQUENCE 

DVIM  MAGNITUDE  OF  TYPICAL  PULSE  OF  SEQUENCE 

0 INTERMEDIATE  VARIABLE  IN  F AND  G'  SERIES 

G GRAVITATIONAL  CONSTANT  OF  BODY  UNDER 

CONSIDERATION 

10  CALENDAR  DATE  OF  CRITICAL  TIMES  FOR  OUTPUT 

MAXP  MAXIMUM  NUMBER  OF  PULSES  ALLOWED 

NDX  ARRAY  OF  CODES  OF  LAUNCH  AND  TARGET  BODIES 

NX  INDEX  OF  GIVEN  PLANET  COORDINATES  IN 

F- ARRAY 

RD  TIME  DERIVATIVE  OF  RADIUS  MAGNITUDE  OF 

PLANET 

RR  MAGNITUDE  OF  RADIUS 

SD  SECONDS  OF  CRITICAL  TIMES  FOR  OUTPUT 
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PREPUL-B 


VV  SPEED  OF  PLANET 


COMMON 

COMPUTED/USEDt 

B 

GS 

DVF 

NPUL 

DV.I 

PULT 

FS 

RK 

GG 

VK 

COMMON 

USED! 

ALNGTH 

F 

NTP 

TH 

DTI 

N90D 

PMASS 

TWO 

DUR 

N8 

PULHAG 

V 

FIVE 

NINETY 

PULHAS 

FOUR 

NLP 

THREE 
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PREPUL-1 


PREPUL  Analysis 


PREEUL  is  responsible  for  performing  the  preliminary  computations  required 
for  the  pulsing  arc  model. 

PREPUL  first  determines  the  nominal  pulsing  arc.  Let  the  following  defin- 
itions be  made: 

T magnitude  of  pulsing  engine  thrust 

m .nominal  mass  of  spacecraft 
At  duration  of  single  pulse 

At^  time  interval  between  pulses 

Av  total  velocity  increment  to  be  added 

The  velocity  increment  imparted  by  a single  pulse  is 


Av  = A.t. 

i m 

The  number  of  pulses  required  is  then 


(1) 


N - 
P 


1 


(2) 


where  denotes  the  greatest  integer  function.  The  magnitude  of  the 

final  pulse  must  be  set  to 


Avf  ■=  Av  - (Np  - 1)'  Ava  - (3) 

The  vector  nominal  pulse  and  final  pulse  are  therefore  given  by 


Av.  ■ 

Av  -&Z 

i 

1 Av 

5. 

(4) 

Av*f  - 

Av  -AX 

f Av 

The  duration 

of  the  pulsing  arc  is  then  given  by 

AT  «* 

<KP  - » At± 

(5) 

Later  computations  require  time  histories  of  the  position  vectors  of  the 
launch  and  target  bodies.  An  efficient  means  of  obtaining  this  involves 
the  f and  g series.  Given  the  state  rQ,  v*o  of  body  moving  in  a conic 

section  about  a central  body  of  gravitational  constant  n , the  position 
vector  as  a function  of  t measured  from  the  initial  time  is  given  by 

"r(t)  = f<t)  ~rQ  + g(t)  v^  (6) 
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PREPUL- ? 


where 


f(t) 


E £k  1 


n 


g<t) 


k*0 


E % 

k=l 


(7) 


The  constants  f , g are  computed  in  PREPUL  as 
k k 

f “ 1 

o 

f » 0 


“M 

2r  ' 
o 

2r  4 


24r 


r r * 
(4  - 15  -2 — — 


r„ 

3 -2.  ) 
a 


- M2 r. 


8r 


•7  « Z 

7r  r r 

(4  . - 3 f ) 


720  r 


r ’ r r 2 

- 70  + 114  + 840  -2-2- 

a M 


r2f  2 /r  r 2\2  r 2 

630  irr  • 450  v^)  • 45  ^ 


8, 


8, 


Se 


— f 
3 *2 

— f 

2 3 

If  - JL  f 2 

5 4 15  2 


2 f -iff 

3 5 6 2 3 


Reference:  Baker,  R.  M.  L.  and  Makemson,  M.  W.,  An  Introduction  to 

As trodynamics . Academic  Press,  New  York,  1967. 
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PREPUL- 3 


PREPUL  Plow  Chart 


PRESIM-A 


PROGRAM  PRESIM 

PURPOSE  CONTROL  EXECUTION  OF  A PREDICTION  EVENT  IN  THE 
SIMULATION  PROGRAM 

SUBROUTINES  SUPPORTEO*  SIMULL 

SUBROUTINES  REQUIPED*  CORREL  DYNOS  HYELS  JACOBI  NAVM 

NTMS  PSIM  STMPR  EIGHY  ORB 

EPHEM  BEPS 

LOCAL  SYMBOLS*  BLAB  LAREL 

BPS  B-PLANE  PARAMETER  COVARIANCE 

CXSUi  STORAGE  FOR  CXSU  COVARIANCE  ARRAY 

CXSVl  STORAGE  FOR  CXSV  COVARIANCE  ARRAY 

CXU1  STORAGE  FOR  CXU  COVARIANCE  ARRAY 

CXV1  STORAGE  FOR  CXV  COVARIANCE  ARRAY 

CXXSi  STORAGE  FOR  CXXS  COVARIANCE  ARRAY 

0 JULIAN  OATE  PREDICTED  TO 

DM  B DOT  T ANO  B OOT.R  COVARIANCE  MATRIX 

0M2  ARRAY  OF  EIGENVECTORS 

DM3  ARRAY  OF  EIGENVALUES 

DUMM  INTERMEDIATE  VARIABLE 

EGVCT  ARRAY  OF  EIGENVECTORS 

EGVL  ARRAY  OF  EIGENVALUES 

GMU  GRAVITATIONAL  CONSTANT  OF  TARGET  PLANET 

IPR  STORAGE  FOR  IPRINT 

OUT  ARRAY  OF  STANDARD  DEVIATIONS  ANO 

CORRELATION  COEFFICIENTS 

PEIG  MATRIX  WHOSE  HYPERELLIPSOID  IS  TO  BE 
COMPUTED 

PSUB8  B-PLANE  PARAMETER  UNCERTAINTIES 

PS1  STORAGE  FOR  PS  COVARIANCE  ARRAY 
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PRESIM-B 


PI  STORAGE  FOR  P COVARIANCE  ARRAY 

RFMAG  VELOCITY  MAGNITUDE 

RF1  MOST  RECENT  NOMINAL  SPACECRAFT  STATE  AT 

TIME  TPT2 

ROW  INTERMEDIATE  VARIABLE 

RPC  PLANETOCENTRIC  STATE 

SOP  INTERMEDIATE  VARIABLE 


SUM  INTERMEDIATE  VARIABLE 

THETA  ANGLE 

TPT  TIME  TO  WHICH  PREDICTION  IS  TO  8£  MAOE 

TRANSG  STATE  TRANSITION  MATRIX  RELATING  CHANGE  IN 
POSITION/VELOCITY  TO  B-»LANE  PARAMETERS 

VEIG  MATRIX  TO  BE  DIAGONALIZED 


i 


COMMON 

COMPUT  EO/USEO  * 

CXSU 

ICODE 

RI1 

CXSV 
. IPRINT 

CXU 

NPE 

CXV 

PS 

CXXS 

P 

COMMON 

COMPUTED* 

QELTM 

RI 

TRTM1 

Xli 

XI 

COMMON  USEO  * 

ADEVXS 

ADEVX 

EDEVXS 

EDEVX 

EM 

FOP 

FOV 

IEIG 

IHYP1 

ISTMC 

NOIM1 

N0IM2 

N0IM3 

NGE 

NTMC 

ONE 

PHI 

Q 

TEVN 

TPT2 

TSOIl 

TXXS 

uo 

VO 

W 

XF1 

XF 

XSL 

ZERO 
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PRESIM 


PRESIM  Analysis 

Subroutine  PRESIM  executes  a prediction  event  In  the  simulation 
program  SIMUL.  At  a prediction  event,  the  knowledge  covariance 
partitions,  and  the  estimated  position/velocity  deviations  from 
the  most  recent  nominal  trajectory  are  propagated  forward  to  tp» 

the  time  to  which  the  prediction  is  to  be  made.  The  knowledge  co- 
variance  partitions  are  propagated  using  the  prediction  equations 
found  in  the  NAVM  Analysis  section.  The  estimate  is  propagated 
using  the  equation 

6X  = *>  (t  , t)  6X,  + 0 (t  , t.)  SX 
P p-  3 xx  p j s. 

b J 


where  $ and  0 ^ are  the  state  transition  matrix  partitions  over 

XX 

s 

the  time  interval  [t.,  t ]* 

J P 

The  position  and  velocity  partitions  of  the  propagated  knowledge 
covariance  matrix  are  diagonalized  at  time  t^  and  the  eigenvalues, 

eigenvectors,  and  hyperellipsoids  are  computed. 


If  t occurs  within  the  target  planet  sphere  of  influence,  the 

Cartesian  position/velocity  covariance  matrix  is  transformed  to 
a B-plane  parameter  covariance  matrix.  The  B-plane  parameters  are 
B*T,  B#R,  time-of-f light,  S-R,  S*T,  and  C . 
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PRESIMJF1  owJLhart 
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PRESIM-3 
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PRINT-A 


SUBROUTINE  PRINT 

PURPOSE?  TO  PRINT  THE  VIRTUAL  MASS  INFORMATION  SPECIFIED.. 

CALLING  SEQUENCE*  CALL  PRINT 

SUBROUTINES  SUPPORTED  % VMP 

SUBROUTINES  REQUIRED*  TIME  TRAPAR  NEWPGE  SPACE 

LOCAL  SYMBOLS*  D INTERMEDIATE  VARIABLE  USED  FOR  PRINTOUT 

IDAY  BAY  OF  CALENDAR  DATE  OF  CURRENT  TIME 

I HR  HOUR  OF  CALENDAR  DATE  OF  CURRENT  TIME 

INCMNT  CURRENT  TOTAL  INCREMENTS  FOR  PRINTOUT 

IP  CODE  OF  I-TH  PLANET  FOR  PRINTOUT  PURPOSES 

IYR  YEAR  OF  CALENDAR  DATE  OF  CURRENT  TIME 

MIN'  MINUTES  OF  CALENDAR  DATE  OF  CURRENT  TIME 

MO  MONTH  IF  CALENOAR  DATE  OF  CURRENT  TIME 

RP  RADIUS  OF  I-TH  PLANET  RELATIVE  TO  INERTIAL 

FRAME 

RS  RAOIUS  OF  VEHICLE  RELATIVE  TO  INERTIAL 

FRAME 

RV  RADIUS  OF  VIRTUAL' MASS  RELATIVE  TO 

INERTIAL  FRAME 

SEC  SECONOS  OF  CALENOAR  DATE  OF  CURRENT  TIME 

TMP  POSITION  AND  VELOCITY  OF  VIRTUAL  HASS 
RELATIVE  TO  PLANETS 

VMR  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  RELATIVE 
TO  VIRTUAL  MASS 

VP  MAGNITUDE  OF  VELOCITY  OF  I-TH  PLANET  FOR 

PRINTOUT  PURPOSES 

VS  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  RELATIVE 

TO  INERTIAL  FRAME 

VSP  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  RELATIVE 
TO  I-TH  PLANET  FOR  PRINTOUT  PURPOSES 

VV  MAGNITUDE  OF  VELOCITY  OF  VIRTUAL  HASS 

I ( 
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RELATIVE  TO  INERTIAL  FRAME 


COMMON 

COMPUTED /US ED 8 

F 

V 

COMMON 

USED* 

INCMNT 

PLANET 

IPRT 

ZERO 

NBODYI  NBOOY 

NO 
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PRINT3-A 


SUBROUTINE  PRINT3 

PURPOSE  t TO  PRINT  THE  PERTINENT  INFORMATION  AT  THE  END  OF  EACH 
MEASUREMENT. 

CALLING  SEQUENCE  I CALL  PRINT  3 
SUBROUTINES  SUPPORTED*  ERRANN  PR08E 

SUBROUTINES  REQUIREO*  CORREL  EPHEM  ORB  STMPR  TRAPAR 


LOCAL  SYMBOLS*  0 

IA 

03 

04 
IDAY 
I HR 
IMIN 
I MO 
ITEMP 
IYR 
LOAY 
LHR 
LMIN 
LMO 
LYR 

M 

RME 

RMP 

SECI 

SECL 

TRTM2 


INTERMEDIATE  DATE 

STATION  NUMBER 

JULIAN  DATE  OF  INITIAL  TIME 

JULIAN  DATE  OF  FINAL  TIME 

CALENDAR  OAY  OF  FINAL  TIME 

CALENDAR  HOUR  OF  FINAL  TIME 

CALENDAR  MINUTE  OF  FINAL  TIME 

CALENOAR  MONTH  OF  FINAL  TIME 

INTERMEDIATE  VARIABLE 

CALENDAR  YEAR  OF  FINAL  TIME 

CALENDAR  DAY  OF  INITIAL  TIME 

CALENDAR  HOUR  OF  INITIAL  TIME 

CALENDAR  MINUTES  OF  INITIAL  TIME 

CALENDAR  MONTH  OF  INITIAL  TIME 

CALENDAR  YEAR  OF  INITIAL  TIME 

NUMBER  OF  MEASUREMENT 

GEOCENTRIC  RADIUS  OF  VEHICLE 

DISTANCE  OF  VEHICLE  FROM  TARGET  PLANET 

CALENOAR  SECONDS  OF  FINAL  TIME 

CALENDAR  SECONDS  OF  INITIAL  TIME 

TRAJECTORY  TIME  AT  END  OF  INTERVAL 
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V ME 

MAGNITUDE  OF 

VELOCITY 

OF  VEHICLE 

RELATIVE 

TO 

TO  EARTH 

VMP 

MAGNITUDE  OF 

VELOCITY 

OF  VEHICLE 

' RELATIVE 

TO 

TO  TARGET  PLANET 

COMMON  COMPUTED/ USED  1 

NO 

RE 

RTP 

XP 

COMMON  USED* 

AK 

ALNGTH  AL 

AM 

CXSUP 

cxsu 

CXSVP 

CXSV 

CXUP 

CXU 

cxvp 

CXV 

CXXSP 

CXXS 

DATEJ 

DELTM 

F 

G 

H 

I GARY 

IPROB 

IPRT 

MCNTR 

N80  0 

NB 

N0IM1 

NDIM2 

NDIM3 

NTP 

PP 

PSP 

PS 

P 

G 

R 

S 

TM 

TRTMi 

UO 

VO 

XF 

XI 

XLAB 

XSL 

XU 

XV 

ALPHA 

BETA 

ND1M4 

XIG 

AN 
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PRINT4-A 


SUBROUTINE  PRINT* 

PURPOSE#  THIS  SUBROUTINE  PRINTS  RELEVANT  DATA  AT  THE  END  OP  EACH 
MEASUREMENT  IN  THE  SIMULATION  MOOE 

CALLING  SEQUENCE#  CALL  PRINT* (MM CODE 9 NR) 

ARGUMENT*  HMCOOE  I MEASUREMENT  CODE 

NR  I NUMBER  OF  ROWS  IN  THE  OBSERVATION  MATRIX 

SUBROUTINES  SUPPORTED*  SINULL 

SUBROUTINES  REQUIRED*  CORREL  EPHEM  ORB  STMPR  SUBi 

TRAPAR 

LOCAL  SYMBOLS*  ADON  ACTUAL  STATE  DEVIATION  FROM  TARGETED 

NOMINAL  TRAJECTORY 

AODI  ACTUAL  ORBIT  ESTIMATION  ERROR 

D INTERMEDIATE  DATE 

EDON  ESTIMATED  STATE  DEVIATION  FROM  TARGETED 
NOMINAL  TRAJECTORY 

IA  STATION  NUMBER 

IB  STAR*PLANET  ANGLE  NUMBER 

M MEASURMENT  NUMBER 

ROM  ARRAY  OF  CORRELATION  COEFFICIENTS 

SQP  VECTOR  OF  STANDARO  DEVIATIONS 

TRTM2  TRAJECTORY  TIME  AT  ERO  OF  INTERVAL 

XE1  POSITION  AND  VELOCITY  OF  EARTH  hi  TRTHi 

XE2  POSITION  AND  VELOCITY  QF  EARTH  &?  YRTH2 

XPi  POSITION  AND  VELOCITY  OF  TARGE?  PLANET  AT 
TRTM1 

XP2  POSITION  AND  VELOCITY  OF  TARGET  PLANET  AT 
TRTM2 

COMMON  COMPUTED/USED#  NO 

COMMON  USEOt  AOEVXS  AOEV*  AK  ALNGTH  At 

AH  ANOIS  AR  AY  CXSUP 
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cxsu 

CXSVP 

cxsv 

CXUP 

CXU 

CXVP 

C XV 

CXXSP 

CXXS 

OATEJ 

DELTM 

EDEVXS 

EOEVX 

EY 

F 

6 

HPHR 

H 

IBARY 

IPR08 

IPRT 

MCNTR 

NBOD 

NB 

NDIM1 

N0IM2 

NDIM3 

NTP 

PP 

PSP 

PS 

P 

Q 

RES 

R 

s 

TN 

TRTM1 

UO 

VO 

w 

XF1 

XF 

xii 

XI 

XL  AB 

XP 

XSL 

XU 

XV 

ZF 

zz 
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PROGRAM  PRNTS3 

PURPOSE*  TO  PRINT  A SUMMARY  OF  THE  ERROR  ANALYSIS  MOOE 

SUBROUTINES  SUPPORTED*  ERRON 

SUBROUTINES  REQUIRED*  CORREL  TIME 

LOCAL  SYMBOLS*  D6  HOLLERITH  LABEL  INITIAL 

09  HOLLERITH  LABEL  FINAL 

01  JULIAN  DATE,  EPOCH  JAN. €,1900,  OF  INITIAL 
TIME 

02  JULIAN  DATE,  EPOCH  JAN.  0 ,1900,  OF  FINAL 
TIME 

03  JULIAN  OATE  OF  INITIAL  TINE 

D4  JULIAN  DATE  OF  FINAL  TIME 

F FUNCT  ION=  SQUARE  ROOT  OF  SUM  OF  3 SQUARES 

I DAY  CALENDAR  OAY  OF  FINAL  TIME 

I HR  CALENDAR  HOUR  OF  FINAL  TIME 

I MIN  CALENOAR  MINUTES  OF  FINAL  TIME 

IMO  CALENDAR  MONTH  OF  FINAL  TIME 

IYR  CALENOAR  YEAR  OF  FINAL  TIME 

LOAY  CALENDAR  DAY  OF  INITIAL  TIME 

LHR  CALENDAR  HOUR  OF  INITIAL  TIME 

L MIN  CALENDAR  MINUTES  OF  INITIAL  TIME 

LMO  CALENDAR  MONTH  OF  INITIAL  TIME 

LYR  CALENOAR  YEAR  OF  INITIAL  TIME 

R I POSITION  ANO  VELOCITY  OF  VEHICLE  AT 

INITIAL  TIME 

RMF  HELIOCENTRIC  RADIUS  OF  VEHICLE  AT  FINAL 

TIME 

RMI  HELIOCENTRIC  RADIUS  OF  VEHICLE  AT  INITIAL 

TIME 
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SECI  CALENOAR  SECONOS  OF  FINAL  TIME 

SECL  CALENOAR  SECOM)S  OF  INITIAL  TIME 

TRTM2  TRAJECTORY  TIME  AT  ENO  OF  TRAJECTORY 

VE  POSITION  ANO  VELOCITY  OF  VEHICLE  RELATIVE 

TO  EARTH  AT  FINAL  TIME 

VMF  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  AT  FINAL 

TIME 

VMI  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  AT 

INITIAL  TIME 

VT  POSITION  AND  VELOCITY  OF  VEHICLE  RELATIVE  TO 

TARGET  PLANET  AT  FINAL  TIME 


COMMON 

COMPUT  ED /USED* 

DC 

DSI 

COMMON 

COMPUTED » 

TRTMi 

COMMON 

USED* 

ACCND 

ACC 

ALNGTH 

BDRSIl 

BDTSI1 

BSIl 

B 

CXSU 

CXSV 

CXU 

cxv 

CXXS 

DATEJ 

DELTH 

DELX 

ONCN 

DTMAX 

FACP 

FAC  V 

FNTM 

IAUGIN 

IONF 

IEPHEM 

IMNF 

I PROS 

ISPH 

ISTMC 

I ST  Ml 

MNCN 

MNNAME 

NDACC 

NQIM1 

NDIM2 

NDIM3 

NEV1 

NEV2 

NEV3 

NEV 

NMN 

NST 

NTMC 

NTP 

PB 

PLANET 

PSB 

PS 

P 

RCA1 

RE 

RSOI1 

RTP 

SAL 

SIGALP 

SIGBET 

SIGPRO 

SIGRES 

SLAT 

SLON 

TCA  1 

TM 

TRTM8 

TSOI1 

UST 

UO 

VSOI1 

VST 

VO 

WST 

XB 

XNM 
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PROGRAM  PRNTS4 

PURPOSES  TO  PRINT  OUT 
SUBROUTINES  SUPPORTED* 
SUBROUTINES  REQUIRED* 

LOCAL  SYMBOLS*  ADON 

AOOI 

BLANK 

Di 

02 

03 

D4 

EDON 

IDAY 
I HR 
I MIN 
IMO 
IYR 

LDAY 

LHR 

LMIN 

LMO 

LYR 

RE1 


A SUMMARY  OF  THE  SIMULATION  MODE 
SIMULL 

CORREL  EPHEH  ORB  TIME 
NOM.INAL 

ACTUAL  STATE  DEVIATION  FROM  TARGETED 
NOMINAL  TRAJECTORY  AT  FINAL  TIME 

ACTUAL  ORBIT  ESTIMATION  ERROR  AT  FINAL 
TIME 

BLANK  HOLLERITH  CHARACTER 

JULIAN  DATE?  EPOCH  JAN. 0,1900,  OF  INITIAL 
TIME 

JULIAN  DATE,  EPOCH  JAN. 0,1900,  OF  FINAL 
TIME 

JULIAN  DATE  Of  INITIAL  TIME 

JULIAN  DATE  OF  FINAL  TIME 

ESTIMATED  STATE  DEVIATION  FROM  TARGETED 
NOMINAL  TRAJECTORY 

CALENDAR  DAY  OF  FINAL  TIME 

CALENDAR  HOUR  OF  FINAL  TIME 

CALENDAR  MINUTES  OF  FINAL  TIME 

•CALENDAR  MONTH  OF  FINAL  TIME 

CALENDAR  YEAR  OF  FINAL  TIME 

CALENDAR  DAY  OF  INITIAL  TIME 

CALENDAR  HOURS  OF  INITIAL  TIME 

CALENDAR  MINUTES  OF  INITIAL  TIME 

CALENDAR  MONTH  OF  INITIAL  TIME 

CALENDAR  YEAR  OF  INITIAL  -TIME 

POSITION  AND  VELOCITY  OF  VEHICLE  RELATIVE  TO 
TO  EARTH  ON  TARGETED  NOMINAL 
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RE2  POSITION  AND  VELOCITY  OF  VEHICLE  RELATIVE  TO 

TO  EARTH  ON  MOST  RECENT  NOMINAL 

RE3  POSITION  AND  VELOCITY  OF  VEHICLE  RELATIVE  TO 

TO  EARTH  ON  ACTUAL  TRAJECtORY 

RMEi  GEOCENTRIC  RADIUS  OF  VEHICLE  ON  TARGETEO 

NOMINAL  AT  FINAL  TIME 

RME2  GEOCENTRIC  RADIUS  OF  VEHICLE  ON  HOST 

RECENT  NOMINAL  AT  FINAL  TIME 

RME3  GEOCENTRIC  RADIUS  OF  VEHICLE  ON  ACTUAL 
TRAJECTORY  AT  FINAL  TIME 

RME  , GEOCENTRIC  RADIUS  QF  VEHICLE  AT  INITIAL 
TIME 

RMpi  DISTANCE  OF  VEHICLE  FROM  TARGET  PLANET  ON 
TARGETED  NOMINAL  AT  FINAL  TIME 

RMP2  DISTANCE  OF  VEHICLE  FROM  TARGET  PLANET  ON 
MOST  RECENT  NOMINAL  AT  FIN/^L  TIME 

RHP 3 DISTANCE  OF  VEHICLE  FROM  TARGET  PLANET  ON 

ACTUAL  TRAJECTORY  AT  FINAL  TIME 

RHP  DISTANCE  OF  VEHICLE  FROM  TARGET-PLANET  AT 
INITIAL  TIME 

RMSi  HELIOCENTRIC  RADIUS  OF  VEHICLE  AT  FINAL 
TIME  O'!  TARGETED  NOMINAL 

RMS 2 HELIOCENTRIC  RADIUS  OF  VEHICLE  AT  FINAL 

TIME  ON  MOST  RECENT  NOMINAL 

RHS3  HELIOCENTRIC  RADIUS  OF  VEHICLE  AT  FINAL 
TIME  ON  ACTUAL  TRAJECTORY 

RMS  HELIOCENTRIC  RADIUS  OF  VEHICLE  AT  INITIAL 
TIME  . 

RPi  STATE  3F  VEHICLE  RELATIVE  TO  TARGET  PLANET 
AT  FINAL  TIME  ON  TARGETED  NOMINAL 

RP2  STATE.  OF  VEHICLE  RELATIVE  TO  TARGET  PLANET 
AT  FINAL  TIME  ON  MOST  RECENT  NOMINAL 

RP3  STATE  OF  VEHICLE  RELATIVE  TO  TARGET  PLANET 
AT.  FINAL  TIME  ON  ACTUAL  TRAJECTORY 

SECI  CALENDAR  SECONDS  AT  FINAL  TIME 


PRNTS4-C 


SECL  CALENDAR  SECONDS  AT  INITIAL  TIME 

VME  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  RELATIVE 

TO  EARTH  AT  INITIAL  TIME 

VME1  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  RELATIVE 
TO  EARTH  ON  TARGETED  NOMINAL  AT  FltjAL  TIME 

VME2  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  RELATIVE 
TO  EARTH  ON  MOST  RECENT  NOMINAL  AT  FINAL 
TIME 

VME3  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  RELATIVE 
TO  EARTH  ON  ACTUAL  TRAJECTORY  AT  FINAL 
TIME  I 

VMP  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  RELATIVE 
TO  TARGET  PLANET  AT  INITIAL  TIME 

VMP1  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  RELATIVE 
TO  TARGET  PLANET  ON  TARGETED  NOMINAL  AT 
FINAL  TIME 

VMP2  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  RELATIVE 
TO  TARGET  PLANET  ON  MOST  RECENT  NOMINAL  AT 
FINAL  TIME 
TIME 

VMP3  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  RELATIVE 
TO  TARGET  PLANET  ON  ACTUAL  TRAJECTORY  AT 
FINAL  TIME 

VMS  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  AT 
INITIAL  TIME 

VMS!  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  AT  FINAL 
TIME  ON  TARGETED  NOMINAL 

VMS2  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  AT  FINAL 
TIME  ON  MOST  RECENT  NOMINAL  TRAJECTORY 

VMS3  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  AT  FINAL 
TIME  ON  ACTUAL  TRAJECTORY 


COMMON 

DOMPUT ED/USED* 

NO 

RE 

RTP 

XP 

ZI 

COMMON 

USED) 

AALP 

ABET 

ACCND 

ACC1 

ACC 

ADEVXB 

ADEVXS 

ADEVX 

ALNGTH 

APRO 

ARES 

AVARM 

BORSI1 

B0RSI2 

B0RSI3 

8DTSI1 

B0TSI2 

BDTSI3 

as  11 

BSI2 
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9SX3 

CXSV 

CXXSB 

OELHUP 

OHUPB 

DHB 

FNTM 

IB  ARY 

IS0I2 

MNNAME 

NOACC 

NEV2 

NTHC 

PS 

RSOI1 

SIGBET 

TCAI 

TSOIi 

UNMAC 

VS0I3 

XF1 


B 

CXUB 

CXXS 

DELMUS 

DMUSB 

EOEVXS 

F 

IONF 

ISOI3 

N8001 

NOIMi 

NEV3 

NTP 

P 

RS0I2 

SIGPRO 

TCA2 

TSOI2 

UST 

VST 

XF 


CXSUB 

CXU 

DAB 

DELX 

DNCN 

EOEVX 

H 

IMNF 

ISTMC 

NBOD 

NOIM2 

NEV5 

PB 

RCAi 

RS0I3 

SIGRES 

TCA3 

TS0I3 

UO 

VO 

XLA8 


CXSU 

CXV8 

DATEJ 

OIB 

ONOB 

FACP 

IAMNF 

IPR08 

ISTH1 

NBi 

NDIM3 

NEV 

PLANET 

RCA2 

SAL 

SLAT 

TH 

TTIMi 

VSOIi 

HST 

XNM 


CXSV8 

CXV 

DEB 

DMAS 

DTMAX 

FACV 

IAUGIN 

ISOI1 

MNCN 

NB 

NEV1 

NMN 

PSB 

RCA  3 

SIGALP 

SLON 

TRTMB 

TTIH2 

VS0I2 

XB 

ZF 


SUBROUTINE 


PROBE 


prober 


PURPOSE*  TO  CONTROL  THE  EXECUTION  OF  ALL  PROBE  RELEASE  EVENTS  IN 
ERR  AN 

CALLING  SEQUENCE  * CALL  PROBE 
SUBROUTINES  SUPPORTED*  ERRANN 


SUBROUTINES  REQUIREO* 

NTM 

PSIM 

DYNO 

GNAVM 

MEAN 

ORB 

EPHEM 

STMPR 

CORREL 

NTRY 

SCHED 

MINIQ 

TRAKM 

MENO 

PRINT  3 

TPRTRG 

LOCAL  SYMBOLS?  AI 

MINI- 

PROBE ROLL 

RELEASE 

angle 

AY 

DUMMY 

ARGUMENT 

FOR  TRAKM 

COSA  COS  (ALFA) 

COS A I COS(AI) 

COSO  COS(DELT) 

ICL2S  TEMPORARY  STORAGE  FOR  ICL2 

IPRN  PRINT  COUNTER  FOR  MEASUREMENT  PROCESSING 

ISP2S  TEMPORARY  STORAGE  FOR  ISP2 

MAMI  =1  IF  MAIN  PROBE  BEING  PROCESSED 
= 2 IF  MINI—  PR£BE  BEING  PROCESSED 

MAMIP  =MAMI  + 1 (INPUT  TO  SCHEO,  POINTS  TO  PROPER 

SCHEDULE  OF  MEASUREMENTS) 

MCNTRS  TEMPORARY  STORAGE  FOR  MCNTR 

NMNS  TEMPORARY  STORAGE  FOR  NMN 

NMP  NUMBER  OF  MINI-PROBE  BEING  PROCESSED 

PI  MATHEMATICAL  CONSTANT 

RF  STATE  VECTOR  .AT  END  OF  TIME  INTERVAL 

SINA  SIN{ ALFA) 

SINAI  SIN(AI) 

SIND  SIN(DELT) 

SMNCN  TEMOPRARY  STORAGE  FOR  MNCN  ARRAY 
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SPHERS  TEMOPRARY  STORAGE  FOR  SPHERE (NTP) 

TE  TIME  AT  THE  PROBE  SPHERE 

TEVNS  TEMPORARY  STORAGE  FOR  TEVN 

VT  TANGENTIAL  VELOCITY  OF  MINI-PROBE 

XFP  HELIOCENTRIC  STATE  AT  PROBE  SPHERE 

XPS  PLANET OCENTRIC  STATE  AT  PROBE  SPHERE 

XSAVE  HELIOCENTRIC  STATE  AT  BEGINNING  OF  PROBE" 
EVENT  ' 


COMMON 

COMPUTED/USED* 

cxsu 

CXSUG 

CXSV 

CXSVG 

CXU 

CXUG 

CXV 

CXVG 

CXXS 

CXXSG 

OELTM 

EXI 

EX  SI 

EX  ST 

EXT 

GCXSW 

. GCXM 

GCXUG 

GCXVG 

GCXM 

GCXWG 

GCXXSG 

GU 

GV 

GPG 

GPSG 

ICL2 

MCNTR 

MMCOOE 

NMN 

NO 

NR 

P 

PG 

PMN 

PS 

PSG 

Q 

QPR 

R 

RI 

RPR 

RSI 

TIMPCT 

TRTM1 

TRTM2 

XG 

XI 

COMMON 

USED! 

ABW 

ALFA 

ALNGTH 

DATE  J 

DELT 

I PRINT 

IS  PH 

•ISP2 

ISTMC 

IUTC 

MNCN 

NDIM1 

NDIM2 

N0IM3 

NTMC 

NTP 

QT 

RPS 

RTF 

SMN 

SPHERE 

TEVN 

TG 

TM 

TRTMB 

T7 

uo 

VO 
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PR0BE  Analysis 


Subroutine  PR0BE  controls  the  execution  of  both  main  probe 
and  miniprobe  release  events.  When  a probe  release  event  occurs, 
PR0BE  saves  all  states,  covariance  matrices,  etc  relating  to  the 
bus  and  initializes  all  states,  covariance  matrices,  etc  for  the 
probe  under  consideration.  The  probe  state  at  release  is  then 
propagated  forward  to  entry,  along  with  the  probe  control  covar- 
iance matrix  partitions  to  obtain  the  probe  state  and  control 
dispersions  at  entry.  Next,  the  probe  is  tracked  from  release 
to  entry  and  probe  knowledge  covariance  matrix  partitions  are  pro- 
pagated and  updated  accordingly. 


Let  t.  be  the  time  of  probe  release  and  let  X.  denote  the 

J j 

nominal  bus  state  at  release.  Denote  all  main  probe  quantities 

with  a superscript  zero,  and  all  miniprobe  quantities  with  a 
superscript  a (for  the  ith  miniprobe  where  i = 1,  2,  3).  Then, 
following  release,  the  probe  states  are  given  by 


_0  _ 
X.  = X. 
3 3 


—x 

X. 

3 


X.  + 

3 


a__ 


av; 

3 


(i) 


(1) 


(2) 


,(i) 


where  A IP  is  the  velocity  increment  imparted  to  the  ith  mini - 


T(i) 


and 


probe  by  the  spin  release  at  t..  The  velocity  increment  AVV 

J 3 

the  minlprobe  release  controls  are  used  in  subroutine  MINIQ  to 

~(i) 

compute  the  execution  error  covariance  matrix  Qj  associated  with 

the  spin  release  of  the  ith  miniprobe.  Denote  the  bus  position/ 
velocity  knowledge  and  control  covariance  matrices  at  release  by 
P,  and  P , respectively.  Then,  immediately  following  release, 

i cj 

the  probe  position/velocity  knowledge  and  control  covariance  matrices 
are  given  by  — - * ' — 

P,°  = P. 

•k. 

J 


P0 

c 


'J 

(i) 


k 


i 


► 

k, 

3 

(3) 

c.  * 

3 

(4) 

h.  + 

3 

■_o!  0_1 

(5) 

_° ! SjJ 
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P^)  „ p^1) 

kj 


(6) 


The  above  probe  control  matrices,  along  with  all  related 

partitions,  are  propagated  forward  to  entry  time  t using  the  pro- 

E 

pagation  equations  appearing  in  subroutine  GNAVM  to  obtain  the 
probe  entry  dispersions.  Beginning  with  the  above  knowledge 
covariance  matrix  of  the  probe  under  consideration  and  all  re- 
lated partitions,  the  probe  knowledge  covariance  matrix  partitions 
are  propagated  and  updated  as  each  probe  measurement  is  processed 
using  the  update  equations  appearing  in  subroutine  GNAVM. 
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PR0BE  Flow  Chart 
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PR0BE-5 
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PR0BE-6 
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PR0BE-7 
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'l 

Update  the  mini  probe  knowledge 
and  control  covariance  matrix 
partitions  immediately  after 
release 


458-10 


PROBS-A 


SUBROUTINE  PROOFS 

PURPOSE*  TO  CONTROL  THE  EXECUTION  OF  ALL  PROBE  RELEASE  EVENTS  IN 
SIMUL 

CALLING  SEQUENCE*  CALL  PROBES 
SUBROUTINES  SUPPORTED*  SIMULL 


SUBROUTINES  REQUIRED*  NT MS 

PSIN 

OY  NOS 

NAVM 

MEAN 

ORB 

EPHEM 

STMPR 

CORREL 

NTRY 

SCHED 

TRAKS 

MENOS 

PRINT  4 

TPRTRG 

MINIQ 

LOCAL  SYMBOLS*  AI  MINI-PROBE  ROLL  RELEASE  ANGLE 

BVAL  BIAS  VALUE  VECTOR 
COSA  COS (ALFA) 

COS  A I COS(AI) 

COSO  COS(DELT) 

DTSUNS  TEMPORARY  STORAGE  FOR  DTSUN 

,DUM  INTERMEDIATE  VECTOR 

OUMM  INTERMEDIATE  VARIABLE 

ICL2S  TEMPORARY  STORAGE  FOR  ICL2 

IPRN  PRINT  COUNTER  FOR  MEASUREMENT  PROCESSING 

IQL  QUASI-LINEAR  EVENT  COUNTER 

ISP2S  TEMPORARY  STORAGE  FOR  ISP2  / 

MAMI  =1  IF  MAIN  PROBE  BEING  PROCESSED 
=2  IF  MINI-PROBE  BEING  PROCESSED 

MAMIP  =M AMI  + 1 (INPUT  TO  SCHED,  POINTS  TO  PROPER 

SCHEDULE  OF  MEASUREMENTS) 

MCNTRS  TEMPORARY  STORAGE  FOR  MCNTR 

t 

MMCODE  MEASUREMENT  CODE 

NEVENT  EVENT  COUNTER 

NMNS  TEMPORARY  STORAGE  FOR  NMN 

NMP  NUMBER  OF  MINI-PROBE  BEING  PROCESSED 
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OLOX  TEMPORARY  STORAGE  FOR  XF 

PI  MATHEMATICAL  CONSTANT 

PVS  PLANETOCENTRIC  STATE  AT  PROBE  SPHERE 

SAOVX  TEMPORARY  STORAGE  FOR  ADEVX 

SEQVX  TEMPORARY  STORAGE  FOR  EOEVX 

SAVRM  TEMPORARY  STORAGE  FOR  AVARM 

SINA  SIN(ALFA) 

SINAI  SIN ( AX ) 

SINO  SIN(OELT) 

SMNCN  TEMOPRARY  STORAGE  FOR  MNCN  ARRAY 

SPHERS  TEMOPRARY  STORAGE  FOR  SPHERE <NTP> 

SXF1  TEMPORARY  STORAGE  FOR  XFl 

SZF  TEMPORARY  STORAGE  FOR  ZF 

TE  TIME  AT  THE  PROSE  SPHERE 

TEVNS  TEMPORARY  STORAGE  FOR  TE VN 

TRTM2  TIME  OF  NEXT  MEASUREMENT  OR  EVENT 

VT  TANGENTIAL  VELGCITY  OF  MINI-PROBE 

XFP  HELIOCENTRIC  STATE  AT  PROBE  SPHERE 

XPS  PLANETOCENTRIC  STATE  AT  PROBE  SPHERE 

XSAVE  HELIOCENTRIC  STATE  AT  BEGINNING  OF  PROBE 
EVENT 


COMMON 

COMPUTED/ USED* 

CXSU 

CXSUG 

CXSV 

CXSVG 

CXU 

CXUG 

CXV 

CXVG 

CXXS 

CXXSG 

OELTM 

ICL2 

MCNTR 

NMN 

NO 

NR 

P 

PG 

PMN 

PS 

PSG 

Q 

R 

RI 

RSI 

TIMPCT 

TRTM1 

TRTM2 

XG 

XI 

COMMON 

USED* 

ABH 

ALFA 

ALNGTH 

DATE  J 

DELT 

IPRINT 

ISPH 

ISP2 

ISTMC 

IUTC 

MNCN 

NDIM1 

NDIM2 

N0IM3 

NTMC 
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NT  P 

QT 

RPS 

RTP 

SMN 

SPHERE 

TEVN 

TG 

TM 

TRTH8 

T 6 

T7 

UO 

VO 
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PR0BS  Analysis 

Subroutine  PR0BS  controls  the  execution  of  both  main  probe  and 
minlprobe  release  events  in  the  simulation  program  SIMUL,  When  a 
probe  release  event  occurs,  PR0BS  saves  all  nominal  and  actual 
states,  deviation  estimates,  covariance  matrices,  etc  relating  to 
the  bus  and  initializes  all  nominal  and  actual  states,  deviation 
estimates,  covariance  matrices,  etc  for  the  probe  under,  considera- 
tion. The  probe  state  at  release  is  the  propagated  forward  to  en- 
try, along  with  the  probe  control  covariance  matrix  partitions,  to 
obtain  the  probe  state  and  control  dispersions  at  entry.  Next  the 
probe  is  tracked  from  release  to  entry  and  probe  knowledge  covari- 
ance matrix  partitions  and  deviation  estimates  are  propagated  and 
updated  accordingly. 


Let  t^  denote  the  time  of  probe  release. 


Denote  the  bus  tar- 


geted nominal  and  most'  recent  nominal  states  at  release  by  X_.  and 
X ^ , respectively.  Denote  actual  and  estimated  deviations  of  the 
bus  state  from  the  most  recent  nominal  by  6X.  and  6X. , respectively. 


All  main  probe  quantities  will  be  denoted  with  a superscript  zero 
and  all  miniprobe  quantities  with  a superscript  i (for  the  ith 

miniprobe,  where  i **  1,2,3).  Then  following  release,  the  probe 
nominal  states  are  given  by 


5i°  = x.  (1) 

x?  = 5L  (2) 

j 3 


X1 

Xj 


•V  _ A 

X.  + 6X.  + 
3 3 


(3) 

(A) 


where  AV*  i§  the  velocity  increment  imparted  to  the  ith  miniprobe 

by  the  spin-release  at  t ^ . The  velocity  increment  AV.  and  the 

miniprobe  release  controls  are  used  in  subroutine  MINIQ  to  compute 

the  execution  error  covariance  matrix  Q1  and  the  actual  execution 
i 3 

“V 
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The  actual  and  estimated  deviations  of  the  probe  states  from  the 
most  recent  nominals  are  given  by 


aO  a 

6Xj  - 6X. 
J J 

(5) 

(6) 

6Xa  = 0 

j 

(7) 

SX*  = SX.  - si.  + 
3 1 3 

0 

SAV1  * 

L 3 J 

(8) 

Denote  the  bus  position/ velocity  knowledge  and  control  covariance 
matrices  at  release  by  and  , respectively.  Then,  immediately 

J Cj 

following  release,  the  probe  position/velocity  knowledge  and  con- 
trol covariance  matrices  ar$  given  by 

p°  = p 

Kj  Kj 

(9) 

p°  = p 

cj 

(10) 

P1  « P + — 0—  ! — 

KJ  K3  lo  IqJ 

- 

(11) 

' PK 

Pj  Kd 

(12) 

The  above  probe  control  covariance  matrices,  along  with  all  re- 
lated partitions,  are  propagated  forward  to  entry  time  tg  using  the 

propagation  equations  appearing  in  subroutine  NAVM  to  obtain  the 
probe  entry  dispersions.  Beginning  with  the  above  knowledge  co- 
variance  matrix  of  the  probe  under  consideration  and  all  related 

partitions,  the  probe  knowledge  covariance  matrix  partitions  are 

i 
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propagated  and  updated  as  each,  probe  measurement  is  processed  using 
the  equations  appearing  in  subroutine  NATO.  The  probe  estimates 
are  propagated  and  updated  using  the  equations  appearing  in  sub- 
routine SIMUL. 

A flow  chart  for  subroutine  PR0BS  is  not  presented  since  it  would 
be  quite  similar  to  the  flow  chart  for  subroutine  PR0BE  (see  sub- 
routine PR0BE  for  details) . 
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SUBROUTINE  PSIM 


PURPOSE*  TO  COMPUTE  THE  STATE  TRANSITION  MATRIX  PARTITIONS  PHI, 

TXXS,  TXW, AND  TXU  OVER  AN  ARBITRARY  INTERVAL  OF  TIME  (TK 
, TK+1)  . 

CALLING  SEQUENCE*  CALL  PSIM(RI,RF,  ISO 


ARGUMENT*  ISC  I CODE  SPECIFYING  WHICH  TECHNIQUE  IS  TO  BE 

USED  TO  COMPUTE  THE  STATE  TRANSITION  MATRIX 
PARTITION  PHI 


RF  I POSITION  ANO  VELOCITY  OF  THE  VEHICLE  AT  THE 

END  OF  THE  TIME  INTERVAL 

RI  I POSITION  ANO  VELOCITY  OF  THE  VEHICLE  AT  THE 

BEGINNING  OF  THE  TIME  INTERVAL 


SUBROUTINES 

SUPPORTED! 

SIMULL 

PRESIM 

PRED 

SETEVS 

ERRANN 

PROBE 

BIAIM 

SETEVN 

PROBES 

GUISIM 

GUIOM 

GUISS 

GUID 

SUBROUTINES 

REQUIRED  I 

CASCAD 

ORB 

C0NC2 

PCTM 

EPHEM 

PLND 

MUNO 

NOTH 

LOCAL  SYMBOLS*  0 INTERMEDIATE  JULIAN  DATE 


OELT  TIME  INTERVAL  IN  CORRECT  UNITS 

DUM  TEMPORARY  STORAGE  FOR  STATE  TRANSITION 

MATRIX 


IANS  VARIABLE  USED  IN  EXAMINING  IAUG  ,IAUGIN 
ICLC  TEMPORARY  STORAGE  FOR  ICL 

ISPHC  TEMPORARY  STORAGE  FOR  ISPH 


IPX  TEMPORARY  STORAGE  FOR  IPRINT 

POSS  DISTANCE  OF  THE  VEHICLE  FROM  THE  TARGET 

PLANET  AT  INITIAL  TIME 

RP  STATE  VECTOR’ 

RS  POSITION  OF  VEHICLE  RELATIVE  TO  GOVERNING 

800 Y AT  INITIAL  TIME 

SAVE  TEMPORARY  STORAGE  FOR  ACC 

i 

THSP  CONSTANT  EQUAL  TO  SIX  TIMES  THE  SPHERE  OF 
INFLUENCE  OF  TARGET  PLANET 
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VFC  POSITION  AND  VELOCITY  OF  VEHICLE  RELATIVE  TO 

TARGET  PLANET  AT  INITIAL  TIME 

VS  VELOCITY  OF  VEHICLE  RELATIVE  TO  GOVERNING 

BODY  AT  INITIAL  TIME 


COMMON 

COMPUTEO/USED* 

NO 

XP 

COMMON 

COMPUTED* 

PHI 

TXU 

TXXS 

TXW 

COMMON 

USEOt 

ALNGTH 

IAUGDC 

NB 

SPHERE 

DATEJ 
I AUG 
NDIM1 
TM 

DELTM 

I8ARY 

NDIM2 

TRTMi 

OTMAX 

ISTM1 

NTP 

VMU 

F 

NBOD 

RMS 

ZERO 
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PSIM  Analysis 


Subroutine  PSIM  controls  the  computation  of  each  partition  appearing 
in  the  augmented  state  transition  matrix 


<i>(k+l,k)  = 


$(k-KL,k) 

0 

0 

0 

0 


0 (k+l,k) 

xx 

s 

I 

0 

0 

0 


6 (k+l,k) 

xu 


0 

I 

0 

0 


0 

0 

I 

0 


6 (k+l,k) 

xw 


0 

0 

0 

I 


The  first  part  of  the  subroutine  deals  solely  with  the  computation 
of  $(k+l,k)  by  one  of  the  three  techniques  — analytical  patched 
conic,  analytical  virtual  mass,  or  numerical  differencing.  If  an 
analytical  technique  is  selected  for  computing  $(k+l,k)  over  an 
interval  of  time  greater  than  the  maximum  time  interval  for  which 
the  analytical  technique  is  considered  valid,  we  compute  $(k+l,k) 
using  numerical  differencing  or  by  cascading  Danby  matnzants. 

The  remaining  partitions,  0 , 9 , and  9 , are  always  computed 

s 

by  numerical  differencing.  Columns  in  these  partitions  associated 
with  target  planet  gravitational  constant  or  orbital  elements  are 
computed  only  if  the  spacecraft  is  within  six  times  the  sphere  of 
influence  of  the  target  planet  at  t^+^.  Otherwise,  these  columns 
are  set  to  zero. 
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PSIM  Flow  Chart 


PSIM-3 
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SUBROUTINE  PULCOV 

PURPOSE  COMPUTE  EFFECTIVE  EXECUTION  ERROR  COVARIANCE  MATRIX  FOP 
A VELOCITY  CORRECTION  MODELED  AS  AN  IMPULSE  SERIES 

CALLING  SEQUENCE*  CALL  PULCOV (RIN, DELTAV, TM, QK> 

ARGUMENTS*  RIN (6)  I INERTIAL  STATE  OF  SPACECRAFT  AT  NOMINAL 

TIME  OF  CORRECTION 

DELTAVC3)  I TOTAL  VELOCITY  INCREMENT  TO  BE  ADDED 

TM  I TIME  UNITS  PER  DAY 

QK(6,6>  0 DEVIATION  MATRIX  RESULTING  FROM  EXECUTION 

ERRORS 

SUBROUTINES  SUPPORTED*  EXCUT  EXCUTS 

SUBROUTINES  REQUIRED*  PERHEL  QCOHP 

LOCAL  SYMBOLS*  OELR  PERTURBATION  IN  POSITION 

DELV  PERTURBATION  IN  VELOCITY 

OVFM  MAGNITUDE  OF  FINAL  PULSE 

DVIM  MAGNITUDE  OF  TYPICAL  PULSE 

FSER  F-* SERIES  CONSTANT  FOR  PLANET 

GSER  G- SERIES  CONSTANT  FOR  PLANET 

HLTF  STATES  OF  LAUNCH  AND  TARGET  BODIES  AT  END 
OF  PROPAGATION  INTERVAL 

PERT  CURRENT  PERTURBATION 

PHI  STATE  TRANSITION  MATRIX  OVER  TYPICAL 

INTERVAL 

QQ  DEVIATION  MATRIX  OURING  PROPAGATION 

THROUGH  PULSES 

Q TYPICAL  VELOCITY  EXECUTION  ERROR 

COVARIANCE 

RF  NOMINAL  INERTIAL  STATE  OF  SPACECRAFT  AT 

END  OF  TYPICAL  INTERVAL 

RPF  PERTURBED  INERTIAL  STATE  OF  SPACECRAFT  AT 

END  OF  TYPICAL  INTERVAL 

R INERTIAL  STATE  OF  SPACECRAFT  AT  BEGINNING 
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OF  TYPICAL  INTERVAL 
Ti  TIME  INTERVAL  BETWEEN  PULSES 

T2  TI**2 

T3  Ti**3 

T%  TI»*4 

T5  Ti**5 

T6  Ti**6 


COMMON  USED* 

OTI 

OVF 

OVI 

FS 

GG 

GS 

NPUL 

ONE 

PSIGA 

PSIGB 

PSIGK 

PSIGS 

RK 

TWO 

VK 

ZERO 
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PULC0V  Analysis 


PULC0V  processes  the  control  covariance  through  the  pulsing  arc  to 
determine  a measure  of  the  probabilistic  deviation  of  the  corrected 
trajectory  from  the  desired  trajectory  resulting  from  execution  errors. 

The  pulsing  arc  itself  is  computed  in  PREPUL.  It  consists  of  N -1  pulses 
Av  and  a final  pulse  Av  satisfying 

X I 

(N  -1)  Av  + Avf  = Av  (1) 

p i f 


where  Av  is  the  equivalent  single  impulse.  The  pulses  are  separated  by 

a time  interval  At  * The  duration  of  the  entire  sequence  of  pulses  is 

i 

given  by  AT  *=  (N^-l)  At^  . 

PULC0V  must  compute  the  execution  error  matrices  Q,  corresponding  to 
the  nominal  pulse  Av^  and  the  final  pulse  Av^  respectively*  The  error 
model  for  the  engine  is  defined  by  the  input  specifications 


proportionality  error 
resolution  error 
first  pointing  error 
second  pointing  error 


The  execution  error  matrix  measuring  the  probabilistic  deviation  of  the 
actual  velocity  increment  from  the  desired  velocity  increment  is  computed 
by  QCJ5MP  * 

The  exact  equations  defining  the  propagation  of  the  covariance  matrix  are 
recursive  in  nature*  If  P^  ‘is  the  control  covariance  immediately  after 

the  pulse,  the  covariance  will  propagate  to  the  time  of  the  next  pulse 

t by  the  formula 
k+1 

Pk+1  = $k+l,k  Pk  "^k+ljk  ^ 

where  $ is  the  6x6  state  transition  matrix  relating  perturbations  at 

KT  -L  y K, 

t , to  perturbations  at  t . Adding  the  pulse  at  t expands  the 
k+1  k k+1 

covariance  by 
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P + 

k+1 


where  Q is  set  equal  either  to  the  nominal  or  final  form  of  Q . 

To  start  the  process  the  control  covariance  following  the  first  pulse  is 
given  by 


For  efficiency  one  simplification  is  made  in  the  process.  Instead  of 
recomputing  the  state  transition  matrix  over  each  interval,  the  value  of 
that  matrix  is  held  constant  at  the  value  corresponding  to  the  "average 
interval".  To  explain  this , let  the  state  of  the  spacecraft  at  the  time 
tQ  of  the  impulsive  Av  computation  be  denoted  r^,  v^.  Then  the 

"average  interval"  is  defined  to  be  the  perturbed  heliocentric  trajectory 

(PERHEL)  resulting  from  the  propagation  of  the  state  ( r*  , + \ 5v  ) 

o o 

over  the  interval  ( t . t + At  ) . 

o’  o ±' 

The  constant  state  transition  matrix  $ i3  computed  by  numerical  differ- 
encing. The  initial  state  ( "rQ,  "v  + % Av  ) is  first  propagated  over 

the  At  time  interval  (using  PERHEL)  resulting  m the  state  (~r  , ~v  ) 
1 f f 

Then  the  x-component  of  Initial  position  is  perturbed  by  Ax,  leading  to 

a final  state  of  ( ‘rJ)f , "v  ) upon  propagation.  \The  first  column  of  the 
matrix  is  then  computed  by 


r - r 
Pf  f 


v - v 
Pf  f 


The  other  columns  of  are  computed  by  similar  computations  using  the 
remaining  components  of  position  and  velocity  (y,  z,  x,  y,  z). 
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SUBROUTINE  PUL SEX 

PURPOSES  TO  CONTROL  EXECUTION  OF  THE  PULSING  ARC  MODEL* 

CALLING  SEQUENCES  CALL  PULSEX(RIN»D£LTAV,REf TM, IRE) 

ARGUMENTS 8 RIN(6)  I INERTIAL  STATE  OF  SPACECRAFT  AT  NOMINAL 

TIME  OF  CORRECTION 

OELTAVC3)  I TOTAL  VELOCITY  INCREMENT  TO  BE  AOOEO 

RE(6>  0 FINAL  INERTIAL  STATE  OF  SPACECRAFT  (IRE) 

TM  I TIME  UNITS  PER  DAY 

IRE  I FLAG  DETERMINING  FINAL  STATE 

=0  RETURN  FINAL  STATE  AT  END  OF  PULSE  ARC 
si  RETURN  FINAL  STATJE  AT  ARC  MIDPOINT 

SUBROUTINES  SUPPORTED  8 jEXCUTE  EXCUTS  EXCUT 

SUBROUTINES  REQUIRED S QAREL  PERHEL 

LOCAL  SYMBOLS 8 A SEMIMAJOR  AXIS 

DTS  TIME  INTERVAL  IN  TIME  UNITS 

DT  OUMMY  VARIABLE  FOR  OUTPUT 

E ECCENTRICITY 

FSER  F-SERIES  CONSTANT 

GSER  G-SERIES  CONSTANT 

HLTF  STATES  OF  LAUNCH  AND  TARGET  BODIES  AT  END 
OF  PROPAGATION  INTERVAL 

HLTI  STATES  OF  LAUNCH  AND  TARGET  BODIES  AT 
BEGINNING  OF  PROPAGATION  INTERVAL 

I PUL  PULSE  COUNTER 

PP  UNIT  VECTOR  TO  PERIAPSIS 

QQ  UNIT  VECTOR  IN  ORBITAL  PLANE  NORMAL  TO  PP 

RB  INERTIAL  STATE  OF  SPACECRAFT  AT  BEGINNING 

OF  PROPAGATION  INTERVAL 

TA  TRUE  ANOMALY 

TFP  TIME  FROM  PERIAPSIS 
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TK  TIME  FROM  START  OF  PULSING  ARC 

TS  INTERMEDIATE  VARIABLE 

T1  TIME  INTERVAL  FROM  MIDPOINT  QF  ARC 

T2  Tl**2 

T3  Ti**3 

T4  Tl*»4 

T5  Ti**5 

T6  Ti**6 

H ARGUMENT  OF  PERIAPSIS 

HH  UNIT  NORMAL  TO  ORBITAL  PLANE 

XI  INCLINATION 

XN  LONGITUDE  OF  ASCENDING  NODE 


COMMON  USED! 

DTI 

OVF 

DVI 

FS 

GG 

- ' 

GS 

NPUL 

ONE 

PULT 

RK 

THO  ' 

VK 

ZERO 
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PULSEX  Analysis 


PULSEX  is  responsible  for  the  actual  execution  of  the  pulsing  arc.  Exper- 
iments have  shown  that  adding  an  impulsive  Av  at  time  may  be  approx- 

imated quite  closely  by  centering  an  equivalent  sequence  of  smaller  impulses 
about  the  nominal  time  t 

o 

This  equivalent  sequence  of  thrusts  is  computed  by  PREPUL.  It  consists  of  ' 

N - 1 pulses  Av  and  a final  pulse  Av  satisfying 
Pi  f 

(N  - 1)  Av.  + Av  = Av  (1) 

p 1 f 


The  pulses  are  separated  by  a time  interval 
entire  sequence  of  pulses  is  given  by  AT  - 


The  duration  of  the 
1)  At^ 


Por  efficiency  the  perturbed  heliocentric  conic  propagator  PERHEL  is  used 
to  propagate  the  trajectory  between  pulses.  PERHEL  requires  the  positions 
of  the  launch  and  target  bodies  at  the  beginning  and  end  of  each  propagation 
interval.  PREPUL  stores  the  position  and  velocity  of  the  launch  and  target 
bodies  at  the  reference  time  tQ  : (Ir^,  ^LO  ^ and  ( ^TO  ^ and 

stores  the  constants  of  the  f and  g series  for  those  states  (f  , g 

Lit’  *Lk 

f , g , k=l*6).  The  position  of  the  launch  body  at  some  time  t relative 

IK  IK 

to  the  reference  time  tQ  is  then  given  by 


rT  (t) 
L 


fT  r~  + 6,  (O  * 

L LO  L LO 


where  f (t) 
L 


g (t> 

L 


V f tb 
; “ Lk 

k=0 


6 

£ 


g t 


k=l  Lk 

with  similar  equations  holding  for  the  target  body. 


(2) 


(3) 


The  procedure  of  PULSEX  is  straightforward.  The  positions  of  the  launch 
and  target  bodies  are  computed  at  the  time  the  pulsing  arc  should  begin: 
tg  m tQ  - AT/2.  PERHEL  is  then  called  to  propagate  the  spacecraft  from  t 

backwards  to  tg  . The  actual  pulsing  arc  cycle  is  now  entered.  The  nominal 

velocity  increment  Av^  is  added  to  the  current  velocity  impulsively 


v + Av. 


(4) 
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and  the  resulting  state  ( r,  v ) is  propagated  forward  over  the  time 
interval  At^  by  PERHEL.  Another  pulse  is  added  and  the  process  repeated 

until  - 1 pulses  have  been  added.  Finally  a pulse  of  Av^  is  added. 

Two  options  are  now  permitted.  If  IRE  ■=  0 , the  final  state  is  not 

altered  (NCMNAL) . If  IRE  = 1,  the  final  state  is  propagated  backwards 

back  to  t for  use  in  ERRAN  and  SIMUL. 
o 

Finally  CAREL  is  called  to  compute  the  conic  elements  of  the  final  state. 
For  comparison  purposes,  the  impulsive  Av  is  added  to  the  state  at  tQ  , 

propagated  to  the  final  time  tg  “ t + AT/2  by  PERHEL,  and  those  elements 
computed . 
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PULSEX  Flow  Chart 


PULS EX- 3 


ENTER 


Propagate  launch  and  target  bodies 

to  start  of  pulsing  arc  r*  , r , 

Lf  Tf 


Propagate  state  of  S/C  back  to  start 

of  pulsing  arc  to  get  "r”  , v 

Sf  S f 


IPUL  = IPUL  + 1 


I PUL  : NPUL 


A. 


< 


Add  final  pulse  v„-  = + Av,. 

op  ox  x 


Propagate  rgf,fgf  back  to  tQ  : rgf,vg£ 


Prepare  for  impulsive  comparison  by 
setting  = r0,  "v  >=  *v0  + Av 


Propagated,  "v  to  tQ  + : "r , ~v 


Compute  conic  els  pf  (r^dg^.)  and  (r,v) 


Update  variables  from  previous 
step: 


t = t. 


At 

k 2 


Li  Lf  Ti  Tf 

r *»  r , v «=  v + Av 
Si  Sf  Si  | Sf  i 


\ 

/ 

Compute  final  positions  of 

launch  and  target  bodies  "r  3 
^ hf 

r 

Tf 

^ 

! 

Propagate  S/C  forward  to  time 

of  next  pulse:  “v  , t = 

Sf’  Sf’  k 

\ + Ati 


RETURN 


QCGMP-A 


SUBROUTINE  QCOHP 

PURPOSES  TO  COMPUTE  THE  EXECUTION  ERROR  COVARIANCE  MATRIX  FOR  A 
VELOCITY  CORRECTION. 

CALLING  SEQUENCES  CALL  QCOMP«VpEM,Q) 

ARGUMENTS  V I VELOCITY  CORRECTION 

Q 0 EXECUTION  ERROR  MATRIX 

EH  I ERROR  MODEL  (SIGRES»SIGPRO?SIGALP,SIGBET> 

SUBROUTINES  SUPPORTED*  BIAIM  GUISIM  PULCOV  GUIOM 


LOCAL  SYMBOLS! 


AU  SIGALP/U2 

BRK  SIGPRO+  SI6RES/R2 
BU  SIGBET/U2 

R2  U2+Z2 

U2  X2+Y2 

X2  V(l)  SQUARED 

Y2  V (2)  SQUARED 

Z2  VI3)  SQUARED 


474 


QCOMP-1 


QC0MP  Analysis 


Subroutine  QC0MP  computes  the  execution  error  covariance  matrix  for 

a velocity  correction  /\V  = (Av  , Av  ,/\V  ) occurring  at  time  £4  . If 

x y z J 

the  execution  error  is  assumed  to  have  form 


d Av  - kAv  + 


Av 

Av 


+ <JAv 


pointing 


where  k is  the  proportionality  error  and  s is  the  resolution  error, 

2h  A ^ * A 2 A „ 2 _2 


then  the  elements  of  the  matrix  are  given  by 


rv  - t- 

Qn  ‘ Avx 


<x  + 2a_ 
. k P2 


+ Avv  p , Avx  AV 

A A i V r. 


AJ  ^ A 

Q = Q = Av  Av 

12  21  y 


Av 


a + 


2 2 


P‘ 


Q.„  = o'  - Av  Av 

13  31  x z 


t*  2 

Q » Av 

22  ° y 


k 

2 n 


+ ~- 

k o2 


5 

/> 


T - a 


2 V 2 2 2 2 

Av>  0-~  AVv  Av,2  cr^ 


Hr 


Q23  * %2  ‘ 


2 

^k  + 


a 2 

_ er 


<5/3  J 


Q = Av 

33  2 


2 


a + 


2 2 

+ % 


2 2 2 2 2 2 

where  U = &V  + Av  , P = M + £v  , and  (T2,  £T  2 a-2  and 

2 x y z s k Oct’ 

?6oc  are  the  variances  associated  with  the  resolution,  proportionality,  and 

two  pointing  errors,  respectively. 
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QUASI-A 


PROGRAM  QUASI 

PURPOSE8  PERFORM  QUASI-LINEAR  FILTERING  EVENT  IN  THE  SIMULATION 
PROGRAM 

CALLING  SEQUENCE*  CALL  QUASI 
SUBROUTINES  SUPPORTED*  SIMULL 

LOCAL  SYMBOLS* 


COMMON 

COKPUTEO/USED* 

ADEVX 

EDEVX 

NQE 

XFi 

COMMON 

COMPUTED 8 

TRTHi 

Xli 

XI 

COMMON 

USEDS 

AOEVXS 

XF 

EDEVXS 

XSL 

NOIMi 

ZERO 

TEVN 

QUASI- 1 


QUASI  Analysis 


At  a quasi- linear  filtering  event  the  most  recent  nominal  trajectory  is 

— 

updated  by  using  the  most  recent  state  deviation  estimate.  If  X^  is  the 

most  recent  nominal  position/velocity  state  immediately  preceding  the  event 

at  time  t and  if  hi  is  the  position/velocity  deviation  estimate, 

J J 

then  immediately  following  the  quasi-linear  filtering  event,  the  most  recent 
nominal  position/velocity  state  is  given  by 

/v 

^ 4*  •»  .A  — 

X.  « X.  + 5X 
J J j 

The  estimated  and  actual  deviations  from  the  most  recent  nominal  trajectory 
must  also  be  updated: 


— Ti- 

bi.. - SI 
J j 


A quasi-linear  filtering  event  in  no  way  alters  the  knowledge  and  control 
uncertainties  at  time  t . . Thus  knowledge  covariance  P,  and  control 

3 j 

covariance  Pc  remain  constant  across  a quasi-linear  filtering  event. 

j 

Furthermore,  since_nc  velocity  correction  is  performed,  the  (most  recent) 
targeted  nominal  X^  is  unchanged.  Neither  is  the  solve- for  parameter 

state  updated  at  a quasi-linear  filtering  event. 
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QUASI- 2 


QUASI  Flow  Chart 
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RNUM-A 


FUNCTION  RNUM 

. PURPOSE8  TO  RETURN  RANDOM  NUM8ERS  ON  A NORMAL  DISTRIBUTION  WITH 
MEAN  ZERO  AND  STANDARD  DEVIATION  SIGMA. 

CALLING  SEQUENCES  Z=RNUM (SIGMA) 

ARGUMENTS  SIGMA  I STANOARD  DEVIATION 

SUBROUTINES  SUPPORTED*  SIMULL 


LOCAL  SYMBOLS*  A 

NX 

N 

Q 

RNUM 

RR 

SS 

MW 

Wi 

YY 

Y1 

ZZ 

Z1 


SUM  OF  TWELVE  RANDOM  NUMBERS  BETWEEN  ZERO 
AND  ONE 

CONTROLLING  INTEGER 
INTERMEDIATE  INTEGER 
INTERMEDIATE  VARIABLE 

RANDOM  NUMBER  FROM  NORMAL  DISTRIBUTION 
WITH  MEAN  ZERO  AND  STANDARD  DEVIATION 
SIGMA 

INTERMEDIATE  VARIABLE 
INTERMEDIATE  VARIABLE 
INTERMEDIATE  VARIABLE 
INTERMEDIATE  VARIABLE 
INTERMEDIATE  VARIABLE 
INTERMEDIATE  VARIABLE 
INTERMEDIATE  VARIABLE 
INTERMEDIATE  VARIABLE 
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RNUM-1 


RNUM  Analysis 


Function  subprogram  RNUM  supplies  random  numbers  on  a normal  distribution 
with  near  zero  and  standard  deviation  o • 

Twelve  random  numbers  between  0 and  1 are  computed,  which  are  then 

used  to  compute  the  returned  random  number  RNUM  using  the  following 
equation: 


RNUM 


I 


i=l 
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SAOCS-A 


SUBROUTINE  SAOCs 

PURPOSE*  TO  COMPUTE  SINES  AND  COSINES  OF  SPIN-AXIS  RIGHT 

ASCENSION  AND  DECLINATION  GIVEN  SPIN-AXIS  ORIENTATION 
MODE 

ARGUMENT*  CSOCSA  0 COSINE  OF  ECLIPTIC  OECLINATION  OF  SPIN 

AXIS 

CSRASA  0 COSINE  OF  ECLIPTIC  RIGHT  ASCENSION  OF 

SPIN  AXIS 

0 JR  I JULIAN  OATE  EPOCH19GO  OF  MINIPR08E  RELEASE 

isao  i spin  Axis  orientation  node  indicator 

NP  I NUMBER  OF  TARGET  PLANET 

SNOCSA  0 SINE  OF  ECLIPTIC  OECLINATION  OF  SPIN  AXIS 

SNRASA  0 SINE  OF  ECLIPTIC  RIGHT  ASCENSION  OF  SPIN 

AXIS 

UCNTRL  I MINIPR08E  RELEASE  CONTROL  VECTOR 

VSCRP  I PLANETOCENTRIC  ECLIPTIC  VELOCITY  VECTOR  OF 
BUS  AT  MINIPR09E  RELEASE  IN  KN/SEG 

SUBROUTINES  SUPPORTED*  TPPROP  TPRTRG 

SUBROUTINES  REQUIREO*  EPHEM  ORB  SCAR 

LOCAL  SYMBOLS*  HDOTV  DOT  PROOUCT  OF  PLANETOCENTRIC  BUS  VELOCITY 

WITH  CROSS  PROOUCT  OF  PLANETOCENTRIC 
VECTOR  TO  SUN 

ONE  CONSTANT  i.O 

TEMPI  MAGNITUDE  OF  CROSS  PROOUCT  OF  VECTOR  TO 

SUN  BY  ECLIPTIC  POLE  VECTOR  - 

VSCRPM  MAGNITUDE  OF  PLANETOCENTRIC  VELOCITY  OF 
BUS  AT  MINIPROBE  RELEASE 

ZERO  CONSTANT  0. 

COMMON  COMPUTED*  NO 

COMMON  USED*  XP 


480-1 


SAVMAT -A 


SUBROUTINE  SAVMAT 

PURPOSE  I TO  STORE  N VALUES  OF  VECTOR  A IN  VECTOR  B 
CALLING  SEQUENCE  I CALL  SAVMAT (A*B ,N) 

ARGUMENTS  * A I VECTOR  TO  BE  STORED 

B 0 VECTOR  IN  WHICH  A IS  STORED 

N I NUMBER  OF  ELEMENTS  TO  BE  TRANSFERRED 

SUBROUTINES  SUPPORTED!  PRED  GENGIO 


480-2 


SCAD-A 


SUBROUTINE  SCAO 

PURPOSES  TO  CALCULATE  BOTH  SINE  AND  COSINE  OF  AN  ANGLE  IN  DEGREES 
ARGUMENT*  CSA  0 COSINE  OF  ANGLE 

DA  I ANGLE  IN  DEGREES 

SNA  0 SINE  OF  ANGLE 

SUBROUTINES  SUPPORTED*  DIMPCP  IKPCT 

LOCAL  SYMBOLS*  OTR  CONVERSION  FACTOR  FROM  OEGREES  TO  RADIANS 

ONE  CONSTANT  ONE 

QREV  9 0 o OEGREES 

RA  ANGLE  IN  RADIANS 

REV  360.  OEGREES 

THQREV  270.  OEGREES 


480-3 


SCAR-A 


SUBROUTINE  SCAR 

PURPOSE!  TO  CALCULATE  BOTH  SINE  AND  COSINE  OF  AN  ANGLE  GIVEN  IN  RADIANS 
ARGUMENT!  CSA  0 COSINE  OF  ANGLE 

RA  I ANGLE  IN  RADIANS 

SNA  0 SINE  OF  ANGLE 

SUBROUTINES  SUPPORTED!  SAOCS  TPPROP 

LOCAL  SYMBOLS!  HALFPI  CONSTANT  PI/2 

ONE  CONSTANT  1. 

THHFPI  CONSTANT  3-*PI/2. 

TWOPI  CONSTANT  2.*PI 
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SCHED-A 


SUBROUTINE  SCHEO 

PURPOSE*  TO  DETERMINE  WHAT  TYPE  OF  MEASUREMENT  IS  TO  BE  TAKEN 
NEXT  AND  AT  WHAT  TIME  IT  WILL  OCCUR. 

CALLING  SEQUENCE*  CALL " SCHED ( Ti , T2 ,MMCOOE, IPOINT > 

ARGUMENT*  MMCOOE  0 MEASUREMENT  MOOEL  CODE 

Tl  I PRESENT  TRAJECTORY  TIME 

T 2 0 TRAJECTORY  TIME  AT  WHICH  THE  NEXT 

MEASUREMENT  OCCURS 

IPOINT  I =1  FOR  BUS 

= 2 FOR  MAIN  PROBE 
= 3 FOR  MINI- PROBE 

SUBROUTINES  SUPPORTED*  SIMULL  ERRANN 

LOCAL.  SYMBOLS*  M INDEX 

COMMON  USED*  MCNTR  MCOOE  NMN  TMN 

MCNTRP  NMNP  TMNl  MCOOE1  TMN2 
MCO0E2 
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ENTER 


IIP0INT 


MCNTRP  - NMNP(l) 


MCNTR  - NMN 


MCNTRP  - NMNP(2) 


Loop  on  M to  find 
TMN1(M)  greater  than 
or  equal  to  T1 


Loop  on  M to  find  TMN(M) 
-greater  or  equal  to  T1 


Loop  on  M to  find 
TMN2(M)  greater  1 
than  or  equal  to  T1 


;T2  - TMN1(M) 
[MMC0DE  = MC0DE1(M) 


T2  - TMN(M) 
MMC0DE  - MC0DE(M) 


T2  - TMN2(M) 

MMC0DE  = MC0DE2(M) 


RETURN 


SCHED  Flow  Chart  SCHED-1 


SERIE-A 


SUBROUTINE  SERIE 

, ’ 7-  ' * 

PURPOSE*  TO  COMPUTETHE  TRANSCENDENTAL  FUNCTIONS  USED  IN  FLITE. 


CALLING  SEQUENCES  CALL 

SERIE (X»SX5 CX> 

ARGUMENTS* 

X I 

INDEPENDENT  VARIABLE 

SX  0 

BATTIN  S-FUNCTION  OF  X 

CX  0 

BATTIN  C-FUNCTION  OF  X 

SUBROUTINES 

SUPPORTED* 

FLITE 

SUBROUTINES 

REQUIRED* 

NONE 

. . 

LOCAL  SYMBOLS*  COSH 

STATEMENT  FUNCTION  FOR 

HYPERBOLIC 

COSINE 

SINH 

STATEMENT  FUNCTION  FOR 

HYPERBOLIC 

SINE 

E 

SQRT  OF  A8S  VALUE  OF  X 
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SERIE-I 


SERIE  Analysis 


SERIE  computes  the  transcendental  functions  'S(x)  and  C(x)  used  in 
the  FLITE  program  in  the  solution  of  Lambert's  theorem. 

The  functions  S(x)  and  C(x)  are  defined  by 


S(x) 


sinh 


\Px  - G 


x > 0 


x < 0 


1 

6 


x = 0 


C(x) 


_ cosh 


-X 


x > 0 


x<  0 


X 


t 

b 


For  small  values  of 


I*  ! 


the  Taylor  series  expansions  are  used 


S(x)  = 
C(x)  - I 


(1) 


(2) 


(3) 
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SERIE-2 


8ERIE  Flow  Chart 


SETEVN-A 


SUBROUTINE  SET-EVN 

PURPOSE  PERFORM  ALL  COMPUTATIONS  COMMON  TO  MOST  EVENTS  IN  THE 
ERROR  ANALYSIS  PROGRAM 

CALLING  SEQUENCE*  CALL  SETEVNtRI  »TEVN*NCODE) 

ARGUMENT*  NCOOE  I EVENT  CODE 

R I I TARGETED  NOMINAL  SPACECRAFT  STATE  AT 

PREVIOUS  MEASUREMENT  OR  EVENT  TIME 

TEVN  I EVENT  TIME 

SUBROUTINES  SUPPORTEO*  ERRANN 

SUBROUTINES  REQUIRED*  CORREL  OYNO  HYELS  JACOBI  GNAVM 

NTM  PSIM  STMPR  TITLE  TRAPAR 

GPRINT  MEAN  EIGHY 

LOCAL  SYMBOLS  BLANK  DUMMY  CALLING  ARGUMENT 

EGVCT  ARRAY  OF  EIGENVECTORS  CORRESPONDING  TO  THE 
COLUMNS  OF  A GIVEN  MATRIX 

EGVL  ARRAY  OF  EIGENVALUES  RELATED  TO  THE 
EIGENVECTORS  CONTAINED  IN  EGVCT 

EXTIJ  INTERMEDIATE  VARIABLE 

I CODE  INTERNAL  CONTROL  FLAG 

OUT  SQUARE  ROOTS  OF  EIGENVALUES 

PEIG  MATRIX  FOR  WHICH  HYPERELLIPSOID  IS  TO  BE 
COMPUTED 

RF  NOMINAL  SPACECRAFT  STATE  AT  EVENT  TIME 

VEIG  MATRIX  TO  BE  DIAGONALIZEO 


COMMON 

COMPUTED /USED* 

TRTM1 

XF 

COMMON 

COMPUTED* 

DELTM 

XI 

COMMON 

USED* 

CXSU 

CXSV 

CXU 

cxv 

CXXS 

FOP 

FOV 

I EIG 

IHYPi 

I PRT 

ISTMC 

NTMC 

PS 

P 

Q 

UD 

VG 

XLA9 

IGEN 

GU 

GV 

GCXW 

GCXSW 

GP 

OCXXS 

GCXU 

GCX  V 

GPS 

r 

GCXSU 

EXST 

GCXSV 

QPR 

RPR 

EXT 

dA'k. 


SETEVN-1 


SETEVN  Analysis 

Before  executing  any  event  in  the  error  analysis /generalized  co- 
variance  analysis  program  subroutine  SETEVN  is  called  to  perform 
a series  of  computations  that  are  common  to  all  events.  Subroutine 
SETEVN  computes  the  targeted  nominal  trajectory  at  t and  propagates 

the  assumed  and  actual  knowledge  covariance  partitions  at  t^_^  — 

the  time  of  the  previous  event  or  measurement  — forward  to  time 
tj  using  the  propagation  equations  found  in  subroutine  GNAVM*  The 

actual  estimation  error  means  are  also  propagated  forward  to  t^ 

using  the  propagation  equations  found  in  subroutine  MEAN* 

For  any  event  other  than  a prediction  event,  subroutine  SETEVN  also 
computes  eigenvalues,  eigenvectors,  and  hyp ere Hips oids  of  the 
position  and  velocity  partitions  of  the  assumed  and  actual  know- 
ledge covariance  at  t , . 
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SETEVN-2 


SETEVN  Flow  Chart 
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SETEVS-A 


SUBROUTINE  SETEVS 

PURPOSE  PERFORM  ALL  COMPUTATIONS  COMMON  TO  MOST  EVENTS  IN  THE 
SIMULATION  PROGRAM 

CALLING  SEQUENCE*  CALL  SETEVStRI ,TEVN,RI1 ,NCODE> 

ARGUMENTS  NCODE  I EVENT  CODE 

RI  I TARGETEO  NOMINAL  SPACECRAFT  STATE  AT 

PREVIOUS  MEASUREMENT  OR  EVENT  TIME 

RIl  I MOST  RECENT  NOMINAL  SPACECRAFT  STATE  AT 

PREVIOUS  MEASUREMENT  OR  EVENT  TIME 

TEVN  I EVENT  TIME 

SUBROUTINES  SUPPORTED*  SIMULL 

SUBROUTINES  REQUIRED*  CORREL  DYNOS  HYELS  JACOBI  NAVM 

NTHS  PSIM  STMPR  TITLES  TRAPAR 

LOCAL  SYMBOLS  OUM  INTERMEDIATE  VECTOR 

EGVT  ARRAY  OF  EIGENVECTORS 

EGVL  ARRAY  OF  EIGENVALUES 

ICODE  INTERNAL  CONTROL  FLAG 

OUT  SQUARE  ROOTS  OF  EIGENVALUES 

PEIG  MATRIX  WHOSE  HYPERELLIPSOID  IS  TO  BE 

CpMPUTED 

\ > 

RFi  MOST  RECENT  NOMINAL  SPACECRAFT  STATE  AT 
EVENT  TIME 

RF  TARGETED  NOMINAL  SPACECRAFT  STATE  AT  EVENT 

TIME 

• * < 

VEIG  MATRIX  TO  8E  DIAGONALIZED 


COMMON 

COHPUTED/USED  * 

1 

ADEVX 

XII 

EOEVX 

ZF 

TRTH1 

ZI 

XFi 

XF 

COMMON 

COMPUTED* 

DELTM 

XI 

COMMON  USED 3 

AOEVXS 

CXSU 

CXSV 

CXU 

CXV 

CXXS 

EDEVXS 

FOP 

FOV  , 

IEIG 

IHYP1 

IPRT 

ISTMC 

NDIMi 

NGE 
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SETEVS-B 


NQE 

Q 

XLAB 


NTMC  PHI 
TXXS  UO 


PS  P 

VO  w 


SETEVS- 1 


SETEVS  Analysis 


Prior  to  executing  any  event  in  the  simulation  mode,  subroutine  SETEVS  is 

called  to  perform  a series  of  computations  which  are  common  to  all  events. 

After  computing  the  targeted  nominal  and  most  recent  nominal  states  at 

the  time  of  the  event  t.  , knowledge  covariance  partitions  are  propagated 

forward  to  time  t.  from  time  t,  , of  the  previous  event  or  measurement 

j K-l 

using  the  prediction  equations  found  in  the  NAVM  Analysis  section.  The 
actual  trajectory  state  at  t^  is  computed  using 

X - Z.  + LO 
j J j 


where  is  the  actual  trajectory  state  assuming  no  unmodeled  acceleration 

has  been  acting  on  the  spacecraft,  and  6JL  is  the  contribution  of  the  actual 


unmodeled  acceleration  to  the  actual  trajectory  state  at  t 


The  actual 


and  predicted  position/velocity  deviations  from  the  most  recent  nominal  at 
tj  are  g£ven  by 

5X.  = X.  - X. 

J J J 


and 


ax 


*(V  w 


/v# 

ax  + e 

k-l  xx. 


(tj>  tk-l>iXs.  > 


respectively,  where  <£  and  0 are  the  state  transition  matrix  partitions 

s 

r i 

over 


[Vi>  fcj]  • 


Eor  any  event  other  than  prediction  and  quasi- linear  filtering  events,  sub- 
routines SETEVS  also  computes  eigenvalues,  eigenvectors,  and  hyperellipsoids 
of  the  position  and  velocity  partitions  of  the  knowledge  covariance  at  t.  . 
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SETEVS-2 


SETEVS  Flow  Chart 


SETEVS-3 


SETEVS-4 


Compute  and  write  out  eigenvalues, 
eigenvectors,  and  hyperellipsoids 
of  position  and  velocity  partitions 
of  the  knowledge  covariance  at  t. 


Is  event  a guidance  or 
C0NC0M  event? 


RETURN 


Write  out  actual  dynamic  noise 
vector.  Write  out  estimated  and 
actual  position/velocity  and  solve- 
for  parameter  deviations  from  the 
most  recent  nominal  at  t.  . 


Reset  time  and  state  vectors  in 
preparation  for  next  cycle. 


I RETURN  ) 


SIMUL-A 


PROGRAM  SIMUL 

PURPOSES  TO  CONTROL  THE  COMPUTATIONAL  FLOW  THROUGH  THE  BASIC 
CYCLE  (MEASUREMENT  PROCESSING)  AND  ALL  EVENTS  IN  THE 
SIMULATION  PROGRAM 

SUBROUTINES  SUPPORTED 8 MAIN 

SUBROUTINES  REQUIREOS  BIAS  D-YNOS  MEMOS  NAVM  NTMS 

TRAKS  PRINT  A PSIM  SCHEO  SETEVS, 


LOCAL  SYMBOLS  BVAL 

DUMM 

OUM 

IPRN 

MMCODE 

NEVENT 

RNUM 

TRTM2 


ACTUAL  MEASUREMENT  BIAS  VECTOR 
INTERMEDIATE  VARIABLE 
INTERMEDIATE  VECTOR 
MEASUREMENT  PRINT  TIME  COUNTER 
MEASUREMENT  CODE 
EVENT  COUNTER 
RANDOM  MEASUREMENT  NOISE 
TIME  OF  THE  MEASUREMENT 


COMMON  COMPUTED/USED 8 AOEVX 

EY 

RKi 

XF1 

ZI 

COMMON  COMPUTED?  AYHEY 

COMMON  USED8  AK 

IEVNT 

NDIMi 

NR 

TEV 


ANOIS 

AY 

EDEVXS 

EDEVX 

ICODE 

MCNTR 

NAFC 

RES 

Rli 

RX 

TEVN 

TRTMi 

XF 

XII 

XI 

ZF 

D.ELTH 

EDEVSH. 

EDEVXM 

AM 

AR 

FNTM 

H 

I PRINT 

ISTMC 

NAE 

NAF6 

NEV 

NSE 

NMN 

NQE 

NTMC 

PHI 

RF 

S 

TXXS 

H 

ZERO 
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SIMUL-1 


SIMUL  Analysis 


The  primary  function  of  subroutine  SIMUL  is  to  control  the  computational 
flow  through  the  basic  cycle  (measurement  processing)  and  all  events  in 
the  simulation  mode.  Subroutine  SIMUL  also  performs  some  computations 
in  the  basic  cycle.  All  event-i  elated  analysis  is  presented  in  the  event 
subroutines  themselves  and  will  not  be  treated  below. 


In  the  basic  cycle  the  first  task  of  SIMUL  is  to  control  the  generation 
of  targeted  nominal  and  most  recent  nominal  spacecraft  states,  X^+^  an<* 

— r\j 

X,  ,,  , respectively,  at  time  t , given  states  X,  and  X at  time  t . 
k+1  k k k k 

Then,  calling  PSIM,  DYN0S,  TRAKS,  and  MEN0S,  successively,  SIMUL  controls 

the  computation  of  all  matrix  information  required  by  subroutine  NAVM  in 

order  to  compute  the  covariance  matrix  partitions  at  time  immediately 

following  the  measurement.  K 


After  computing  the  actual  state  X^  at  time  t^  from 

IV  rJ 

X = X + 6X  (1) 

k k k v * 

rJ 

where  fd  X is  the  actual  spacecraft  state  deviation  from  the  most  recent 

nominal,  SIMUL  controls  the  generation  of  the  actual  state  Z at  time 

k+1 

t^  before  the  effect  of  unmodeled  acceleration  has  been  added.  Then, 
having  called  DYN0S  to  compute  the  effect  of  unmodeled  acceleration  G) 

k+1 

SIMUL  computes  the  actual  state  and  actual  state  deviation  at  time  t : 

' > * k+J 


\+l  =(  \+l  t Wk+1 

5\+l  " \+l  " \+l 


(2) 

(3) 


With  both  the  most  recent  nominal  and  actual  spacecraft  states  available 
at  * SIMUL  calls  TRAKS  twice  in  succession  to  compute  the  ideal 

measurements  an<*  “k+1  * respectively,  which  yould  be  made  at  each 


of  these  trajectory  states.  Calling  MEN0S,  RNUM,  and  BIAS  to  compute  the  actual 
measurement  noise  and  bias  corrupting  the  ideal  measurement  associated  with 
the  actual  state,  SIMUL  computes  the  actual  measurement  at  time  t^^  using 


t < i 

k+1  “ ~k+l  * \+l  * ^k+l 


(4) 
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where  and  V represent  the  actual  measurement  bias  and  noise, 

respectively. 

All  information  required  for  computing  both  predicted  and  filtered  state 
deviations  from  the  most  recent  nominal  at  i s now  available.  With 

and  0 denoting  state  transition  matrix  partitions  over  the  time 
XX  g 

interval  £ t^,  t^+^  j , SIMUL  computes  the  predicted  spacecraft  state 
deviations  and  solve- for  parameter  deviations  at  t using 


.A  - 


*Vi  - §*K  + 


XX 


JX  + 

<5x 


/V 

- 

aXs 

k+1 


Ai 

axs+ 

sk 


(5) 

(6) 


Prior  to  computing  filtered  deviations,  SIMUL  computes  the  measurement 
residual  from 


'k+1 


( Y 


k+1 


- Y 


k+1 


) - H 


k+1 


fix 


k+1 


rj 

- M fiX 
k+1  s 


k+1 


(7) 


where  H and  M are  observation  matrix  partitions.  Filtered 
k+1  k+1 

spacecraft  state  deviations  and  solve-for  parameter  deviations  are  then 
computed  from 


.*  + 


+1 


JX  - 

fiX  + K € 
k+1  k+1  k+1 


k+1 


A/ 

A 


fix  + S 6 
8k+l  k+1  k+1 


where  and  are  the  filter  gain  constants, 


(8) 

(9) 
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SIMUL-5 


Compute  actual  state  after 

effect  of  unmodeled  acceleration 
has  been  added* 


Compute  actual  state  deviation  6 X 


Call  TRAKS  to  compute  ideal  meas- 
urement from  most  recent 

nominal. 


Call  TRAKS  to  compute  ideal  meas- 
urement from  actual  trajectory. 


Call  J1EN0S  to  compute  R 


Compute  actual  measurement  noise  y 


Call  BIA*S  to  compute  fb 


Compute  actual  measurement  Y 


Compute  quantities*  required  for 
adaptive  filtering. 
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SKEDM-A 


SUBROUTINE  SKEDM 

PURPOSE*  TO  SET  UP  THE  MEASUREMENT  SCHEDULE  USED  INTERNALLY 

CALLING  SEQUENCE*  CALL  SKEDM  (NENT,  TMN,  MCODE,  NMN,FNTM  ,1  NUM,  IFLG ) 

ARGUMENTS*  NENT  I NUMBER  OF  MEASUREMENT  CARDS 

TMN  0 VECTOR  OF  TIMES  OF  MEASUREMENTS 

MCODE  0 VECTOR  OF  MEASUREMENT  COOES  CORRESPONDING 

TO  ENTRIES  IN  TMN 

NMN  0 MAXIMUM  NUMBER  OF  ENTRIES  IN  TMN  VECTOR 

FNTM  I FINAL  TRAJECTORY  TIME 

INUM  I DIMENSION  OF  TMN  ANO  MCODE  VECTORS 

IFLG  I INDEX  FOR  PRINTING  TITLE 

SUBROUTINES  SUPPORTED*  DATA1  OATAlS 
LOCAL  SYMBOLS*  AMIN  INTERMEDIATE  TIME  VARIABLE 

AP  INTERMEDIATE  TIME  ARRAY 

EP50  10.  TO  50 TH  POWER 

ICNT  COUNTER 

IRON  ROW  INDEX 

MEAS  MEASUREMENT  CODE  ARRAY 

scheq'  measurement  time  array 

XLAB  LABEL 
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SO I PS -A 


SUBROUTINE  SOIPS 

PURPOSE*  TO  CONICALLY  EXTRAPOLATE  FROM  NEAREST  INTEGRATION  STATE  TO 
OBTAIN  IMPACT  DATA  AT  SOI  AND  AT  PLANET  SURFACE 


ARGUMENT!  ISOIPS 

I 

FLAG  INDICATION  OPERATING  MODE  OF  SUBROUTINE 
= 1 EXTRAPOLATE  FOR  SOI  IMPACT  DATA 
= 2 EXTRAPOLATE  FOR  PLANET  IMPACT  DATA 

RSPHM 

0 

MAGNITUDE  OF  PLANETOCENTRIC  POSITION  VECTOR  OF 
TRAJECTORY  AT  SPHERE  OF  INTEREST  IN  KM 
PLANETOCENTRIC  ECLIPTIC 

RSPH 

0 

PLANETOCENTRIC  ECLIPTIC  POSITION  VECTOR  OF 
TRAJECTORY  AT  SPHERE  OF  INTEREST  IN  KM 

TMU 

I 

GRAVITATIONAL  CONSTANT  OF  TARGET  PLANET  IN 
KM**3/SEC**2 

VSPHM 

0 

MAGNITUDE  OF  PLANETOCANT RIC  VELOCITY  OF  TRAJECTORY 
AT  SPHERE  OF  INTEREST  IN  KM/SEC 

VS  PH 

0 

PLANETOCENTRIC  ECLIPTIC  VELOCITY  VECTOR  OF 
TRAJECTORY  AT  SPHERE  OF  INTEREST  IN  KM/SEC 

SUBROUTINES  SUPPORTED!  VMP 

SUBROUTINES  REQUIRED!  CAREL  ELCAR  PECEQ  SUBSOL 

LOCAL  SYMBOLS!  AS  SEMIMAJOR  AXIS  OF  PLANETOCENTRIC  OSCULATING  CONIC 

IN  KM 

CSTAS  COSINE  OF  TRUE  ANOAMOLY  OF  PLANETOCENTRIC 
OSCULATING  CONIC  AT  SPHERE  OF  INTEREST 

DJEPOC  JULIAN  DATE  EPOCH  1900  WHEN  TRAJECTORY  PIERCES 
SPHERE  OF  INTEREST 

DTNIS  TIME  INTRRVAL  IN  SECONDS  ALONG  PLANETOCENTRIC 

OSCULATING  CONIC  FROM  NEAREST  INTEGRATION  STATE 
INSIDE  SPHERE  OF  INTEREST  TO  SPHERE  ITSELF 

□TPNI  TIME  INTERVAL  IN  SECONDS  ALONG  PLANETOCENTRIC 
OSCULATING  CONIC  FROM  PERAPSIS  TO  NEAREST 
INTEGRATION  STEP  INSIDE  SPHERE  OF  INTEREST 

DTPS  TIME  INTERVAL  IN  SECONDS  ALONG  PLANETOCENTRIC 
OSCULATING  CONIC  FROM  PERIAPSIS  TO  SPHERE  OF 
INTEREST 

DTS  CONVERSION  FACTOR  FROM  DAYS  TO  SECONDS 
ES 
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ECCENTRICITY  OF  PLANETOCENTRIC  OSCULATING  CONIC 


i 


SOIPS-B 


PAS  PLANET OCENTRIC  ECLIPTIC  UNIT  VECTOR  POINTING  IN 
DIRECTION  OF  PERIAPSZS  OF  PLANET  OCENTRIC  , 

OSCULATING  CONIC 

PS  SEMILATUS  RECTUM  OF  PL ANETOCENTRIC.  OSCULATING 

CONIC  IN  KM 

QAS  PLANETOCENTRIC  ECLIPTIC  UNIT  VECTOR  LYING  IN 

ORBITAL  PLANE  OF  PLANETOCENTRIC  OSCULATING  CONIC  9 
DEGREES  ADVANCEO  FROM  PA 

RS  RADIUS  OF  SPHERE  OF  INTEREST  IN  KM 

RTO  CONVERSION  FACTOR  FROM  RADIANS  TO  DEGREES 

SNTAS  SINE  OF  TRUE  ANAMOLY  OF  PLANETOCENTRIC  OSCULATING 
CONIC  AT  SPHERE  OF  INTEREST 

TAS  TRUE  ANAMOLY  OF  PLANETOCENTRIC  OSCULATING  CONIC 
AT  NEAREST  INTEGRATION  STATE  INSIOE  SPHERE  OF 
INTEREST 

TRANSF  TRANSFORMATION  MATRIX  FROM  ECLIPTIC  TO  PROBE- 
SPHERE  COORDINATES 

WAS  PLANETOCENTRIC  ECLIPTIC  UNIT  VECTOR  POINTING  IN 
DIRECTION  OF  ANGULAR  MOMENTUM  OF  PLANETOCENTRIC 
OSCULATION  CONIC 

MS  ECLIPTIC  ARGUMENT  OF  PERIAPSIS  IN  DEGREES  OF 

PLANETOCENTRIC  OSCULATING  CONIC 

XIS  ECLIPTIC  INCLINATION  IN  DEGREES  OF  PLANETOCENTRIC 
OSCULATING  CONIC 


XNS 

ECLIPT IC 

RIGHT 

ASCENSION 

OF  ASCE.NDING 

NODE  IN 

DEGREES 

OF  PLANETOCENTRIC 

OSCULATING 

CONIC 

COMMON 

COMPUTED/USED  * 

OEPOC 

D 

COMMON 

COMPUTED: 

OCIMP 

RAIMP 

COMMCN 

used: 

ALNGTH 

IPCSP 

IP 

NTP  ONE 

RADIUS 

J^PSP 

SPHERE 

t 

504-3 


SPHIMP 


SUBROUTINE  SPHIMP 

PURPOSE*  TO  CALCULATE  TRUE  A NAMOLY  AND  TIME  FROM  PERIAPSIS  AT  WHICH  CONI 
APPROACH  TRAJECTORY  PIERCES  PLANETOCENTRIC  SPHERE  OF  GIVEN 
RADIUS 

ARGUMENT*  A I SEMIMAJOR  AXIS  OF  CONIC  IN  KM 

CSTAI  0 COSINE  OF  TRUE  ANAMOLY  AT  SPHERE  OF  INTEREST 

OTPI  0 TIME  INTERVAL  IN  SECONDS  ON  CONIC  FROM  PERIAPSIS  T 

SPHERE  OF  INTEREST 

E I ' ECCENTRICITY  OF  CONIC 

GMUP  I GRAVITATIONAL  CONSTANT  OF' PLANET  IN  KM***3/SEC**2 

RS  I RADIUS  OF  SPHERE  OF  INTEREST  IN  KM 

SNTAI  0 SINE  OF  TRUE  ANAMOLY  AT  SPHERE  OF  INTEREST 

SUBROUTINES  SUPPORTED*  TPPROP  TPRTRG  | 

SUBROUTINES  REQUIRED*  HYPT 
LOCAL  SYMBOLS*  ONE  CONSTANT  1. 

ORBH  RECIPROCAL  OF  MEAN  ORBITAL  RATE  IN  SEC/RAOIANS 
P SEMILATUS  RECTUM  OF  CONIC  IN  KM 
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SUBROUTINE  SPACE 

PURPOSES  COUNTS  THE  NUMBER  OF  LINES  BEING  PRINTED  TO  DETERMINE 
WHEN  TO  SKIP  TO  THE  NEXT  PAGE  WITH  A NEW  HEADING 

CALLING  SEQUENCE  CALL  SPACE (LINES) 

ARGUMENT  LINES  I NUM8ER  OF  LINES  THAT  WILL  BE  WRITTEN  IN 

THE  NEXT  OUTPUT  STATEMENT 

SUBROUTINES  SUPPORTED?  INPUTZ  PRINT  VECTOR  VHP 

SUBROUTINES  REQUIREO#  NEWPGE 

COMMON  COMPUTED/USED 8 LINCT 

COMMON  USED8  LINPGE 
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SUBROUTINE  STAPRL 

PURPOSE*  TO  COMPUTE  THE  PARTIAL  DERIVATIVES  OF  STATION  LOCATION 
ERRORS . 

CALLING  SEQUENCE*  CALL  ST APRL C AL » AL ON, AL AT, PAT2 , VEC ,PA) 

ARGUMENTS  AL  I ALTITUDE  OF  THE  STATION 

ALAT  I LATITUDE  OF  THE  STATION 

ALON  I LONGITUDE  OF  THE  STATION 

PA  0 PARTIAL  OF  STATION  POSITION  ANO  VELOCITY 

WITH  RESPECT  TO  ALTITUDE,  LATITUDE  AND 
LONGITUOE 

PAT2  I LONjSITUDE  + OMEGA*  (CURRENT  TIME-LAUNCH 
TIME) 

VEC  UNUSED 

SUBROUTINES  SUPPORTED*  TRAKS  TRAKM 


LOCAL  SYMBOLS  S 

Gi 

SINE  OF  LATITUDE 

G2 

COSINE  OF  LATITUDE 

G3 

SINE (PHI  +OMEGA(T-UNIVT) ) 

G4 

l 

COSINE  (PHI  +OMEGA  CT-U.NXVT)  > 

WHERE  PHI  ^LONGITUDE 

o'hega=earth  rotation  rate 

T -TIME 

UNIVT-UNIVERSAL  TIME 

G5 

SINE  OF  OBLIQUITY  OF  EARTH 

G6 

GOSINE  OF  OBLIQUITY  OF  EARTH 

OMEG 

OMEGA  IN  PROPER  UNITS 

COMMON  USED* 

l 

EPS  OMEGA  TM 
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STAPRL  Analysis 


The  ecliptic  components  of  the  position  and  velocity  of  a tracking  station 
relative  to  the  Earth  are  related  to  station  location  parameters  R,  9,  and 
<f>  through  the  following  set  of  equations: 

X„  » R cos  0 cos  G 
s 

Yg  - R cos  9 cos  g sin  G + R sin  9 sin£ 

Zg  **  -R  cos  0 sin  € sin  G H*  R sin  9 cos  £ 

X = - WR  cos  0 sin  G 
s 

#* 

Y = 6JR  cob  0 cos  £ cos  G 

B 

Z = -tJR  cos  0 sin  € cos  G 
s 

where  G «*  <j>  + 0)  (t  - T)  , and  T is  the  universal  time  at  some  epoch  (usually 
launch  time) . 

Subroutine  STAPRL  computes  the  negative  of  the  partials  of  the  previous 
quantities  with  respect  to  the  station  location  parameters.  R,  9,  and  . 

These  partials  are  summarized  below: 

“ - cos  9 cos  G 

«*  R sin  9 cos  G 

«=  R cos  0 sin  G 

/ 

“ - ^ s*n  ® + cos  ^ cos  ® s:**n 
R cos  £ sin  0 sin  G - R sin  £ cos  0 
~R  cos  £ cos  $ cos  G 

i 

*=  sin  £ cos  0 sin  G - cos  £ sin  0 


*y-s 

5R 

ax6 

a© 

dX 
s 

d<f> 

ii 

d r 

aY 
s 

6 0 
*Ys 

a$> 

az 

aR 
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a0 


ax 

s 

aR 

ax 

a 

dQ 

ax 

S 

d<f> 


dY 

aR 


S 


- [R  sin  € sin  0 sin  G + R cos  € cos  0^ 


R sin  e cos  0 cos  G 


(O  cos  0 sin  G 


- 6>R  sin  0 sin  G 


it>R  cog  0 cos  G 


- 0)0,0$  0 cos  6 90s  G 


ay 

s 

a© 

ay 

s 

6 0 


az 

s 

ae 


" 6>R  cos  € sin  0 cos  G 


wK  cos  € cos  0 sin  G 


Co  sin  € cos  0 cos  G 


-O/R  gin  e sin  0 cos  G 


as 


- O/R  sin  € cos  0 sin  G 
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SUBROUTINE  SUMP 

PURPOSE*  CALCULATE  B-PLANE  ASYMPTOTE  PIERCE-POINT  COORDINATES 
IN  IMPACT  PLANE  OF  A HYPERBOLA,  GIVEN  THE  STATE 

ARGUMENT*  A I SEMI-MAJOR  AXIS  OF  HYPERBOLA  IN  KM 

BDR  0 PROJECTION  OF  0V  ON  RV  (B.R)  IN  KM 

BOT  0 PROJECTION  OF  B V ON  TV  (B.T)  IN  KM 

B 0 MAGNITUDE  OF  BV  IN  -KM 

GMX  I GRAVITATIONAL  CONSTANT  OF  PLANET 

RV  0 PLANETOCENTRIC  ECLIPTIC  UNIT  VECTOR 

IN  DIRECTION  OF  CROSS  PRODUCT  OF 
HYPERBOLA  ASYMPTOTE  BY  ECLIPTIC  POLE  VECTOR 

R I PLANETOCENTRIC  ECLIPTIC  POSITION  VECTOR 

OF  GIVEN  HYPERBOLA  STATE  IN  KM 

SV  0 PLANETOCENTRIC  ECLIPTIC  UNIT  VECTOR 

IN  DIRECTION  OF  HYPERBOLA  ASYMPTOTE 

TV  0 CROSS  PROOUCT  OF  SV  ANO  RV 

V PLANETOCENTRIC  ECLIPTIC  VELOCITY  VECTOR 

OF  GIVEN  HYPERBOLA  STATE  IN  KM/SEC 

SUBROUTINES  SUPPORTEO*  TPPROP  TPRTRG 

SUBROUTINES  REQUIREO*  USCALE  UXV 

LOCAL  SYMBOLS*  AB  PROOUCT  OF  HYPERBOLA  ECCENTRICITY  AND 

MAGNITUDE  OF  SEMI-MAJOR  AXIS  IN  KM 

8 V PLANETOCENTRIC  ECLIPTIC  VECTOR  IN  KM 

TO  HYPERBOLA  ASYMPTOTE  PIERCE  POINT 
IN  IMPACT  PLANE 

CT A COSINE  OF  TRUE  ANOMALY  OF  GIVEN  STATE 

Cl  MAGNITUDE  OF  HYPERBOLA  ANGULAR  MOMENTUM 

DUM  MAGNITUDE  OF  CROSS  PROOUCT  OF  SV  AND 
, ECLIPTIC  POLE  VECTOR 

E ECCENTRICITY  OF  HYPERBOLA 

ONE  CONSTANT  = 1. 

PV  PLANETOCENTRIC  ECLIPTIC  UNIT  VECTOR  IN 
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DIRECTION  OF  HYPERBOLA  PERIAPSIS 

P SEMI-LATUS  RECTUM  OF  HYPERBOLA  IN  KM 

QV  PLANETOCENTRIC  ECLIPTIC  UNIT  VECTOR 

LYING  IN  HYPERBOLA  PLANE  AND 
ADVANCED  90  OEGREES  FROM  PA 

RO  TIME  RATE  OF  CHANGE  OF  HYPERBOLA 

RADIUS  AT  GIVEN  STATE 

RM  MAGNITUDE  OF  PLANETOCENTRIC  POSITION 

RRD  PROOUCT  OF  HYPERBOLA  RAOIUS  ANO  ITS 

TIME  RATE  OF  CHANGE  OF  GIVEN  STATE 

STA  SINE  OF  TRUE  ANOMALY 

TWO  CONSTANT  = 2. 

VS  SQUAREO  MAGNITUDE  OF  PLANETOCENTRIC 

VELOCITY  OF  GIVEN  STATE 

HV  PLANETOCENTRIC  ECLIPTIC  UNIT  VECTOR 

IN  DIRECTION  OF  HYPERBOLA  ANGULAR  MOMENTUM 

ZERO  CONSTANT  = 0. 

Z PLANETOCENTRIC  ECLIPTIC  UNIT  VECTOR 

LYING  IN  HYPERBOLA  PLANE  AND  90 
DEGREES  ADVANCED  FROM  POSITION  VECTOR 
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STIMP  Analysis 

Subroutine  STIMP  converts-  a planetocentric  ecliptic  state  vector 
T 

(r  / v)  to  the  more  readily  targetable  impact  plane  coorinates 
B*T  and  B*R.  These  coordinates  are  preferred  as  target  variables 
for  two  basic  reasons:  (1)  they  generally  exhibit  reasonably 

linear  dependence  on  the  targeting  controls,  and  (2)  in  probe 
targeting  they  obviate  the  need  for  defining  a pseudoimpact  point 
when  the  probe  misseB  the  -planet  in  an  early  lnteration. 

The  impact  coordinates  are  defined  in  terms  of  the  direction  of 
the  trajectory  hyperbolic  excess  velocity,  v , and  the  north 
ecliptic  pole  vector,  K.  Let  00 


S = v v 

— “ bo  “ 

(1) 

S x K 

(2) 

- hi  * in 

E=S  x T 

(3) 

where  all  the  vectors  are  assumed  to  originate  at  the  planet 
center.  Thus  ^E,  R and  form  a right-handed  Cartesian  frame 
with  S_ pointing  in  the  direction  of  the  hyperbolic  excess  velocity 
and  _T  lying  in  the  ecliptic  plane.  The  plane  containing  the  vector 
vector  and  R is  known  as  the  impact  plane.  B_  is  defined  as 
that  unique  vector  from  the  planet  center  to  the  point  where  the 
trajectory  asymptote  pierces  the  impact  plane.  B*T  and  B*R  are 
then  simply  the  components  of  B_ along  the  T and  R axes,  respec- 
tively. Figure  1 illustrates  all  of  these  terms  for  the  case  of 
a single  probe  trajectory. 

In  addition  to  calculating  B*T  and  B.R,  STIMP  also  makes  avail- 
able other  approach  trajectory  parameters  useful  In  the  STEAP 
auxiliary  targeting  scheme.  These  are  £[,  T_.  R,  and  _B  in  the 
inertial  ecliptic  frame  as  well  as  the  approach  hyperbola  semi- 
major  axis,  a. 
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Figure  1 Single-Probe  Auxiliary  Targeting  Illustration 


The  formulae  used  in  calculating  these  ’elements  are  well  known 
results  derived  in  most  engineering  treatments  of  two-body  motion 
(see,  for  example.  Ref  2).  Hence  they  will  simply  be  listed  here 
in  the  order  they  are  used.  The  standard  conic  symbolism  is  used 
throughout : 


h = r_  x v; 

(4) 

W = h/h 

(5) 

r = r.v/r 

(6) 

p = h2/p 

(7) 

a = r/(2  - rv2/]i) 

(8) 

e =yj  1 - p/a 

(9) 

CD 

II 

/"N 

J 

W 

CD 

(10) 
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a 0 » rh/ep 

(11) 

B *=Vp!  al 

(12) 

« 

Z = (rv  - rr) /h 

(13) 

p = — cos  0 - Z sin  0 
— r — 

(14) 

^ a i gin  e + Z cos  0 

(15) 

S = P/e  + &yje2  - 1 . .. 

(16) 

B = pP/e  + ^\je2  - 1 

(17) 

I -(s2?  - Sj?  + s/ 

(18) 

K = (-S3I2,  Sjl^  SlT2  - S2T3jT 

(19) 

B.l  = BlTl  + B2T2 

(20) 

* 

B.R  = BjRj  + B2B2  + B3R3 

(21) 
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SUBROUTINE  STMPR 

PURPOSE!  TO  PRINT  OUT  THE  TRANSPOSES  OF  THE  STATE  TRANSITION 
MATRIX  PARTITIONS  PHI,  TXXS,  TXW,  ANO  TXU  OVER  AN 
ARBITRARY  INTERVAL  OF  TIME. 


CALLING  SEdUENCE*  'CALL  STMPR (TRTMl, TRTM2) 

ARGUMENT  * TRTM1  I TIME  AT  BEGINNING  OF  INTERVAL  OVER  WHICH 

STATE  TRANSITION  MATRIX  PARTITIONS  HAVE 
BEEN  COMPUTEO 

TRTM2  I TIME  AT  END  OF  INTERVAL  OVER  WHICH  STATE 
TRANSITION  MATRIX  PARTITIONS  HAVE  BEEN 
COMPUTED 


SUBROUTINES  SUPPORTEO*  PRINT4 

SETEVS 

GUISIM 

GUISS 

PRES I M 

PRINT3 

SETEVN 

GUIDM 

GUID 

PR  ED 

PROBE 

PROBES 

COMMON  USED* 

N0IM1 

N0IM2 

• PHI 

TXU 

TXXS 

XLAB 

XSL 

XU 

NDIM4 

TXW 
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SUBROUTINE  SUBi 

PURPOSES  TO  COMPUTE  POSITION  AND  VELOCITY  MAGNITUDES. 

CALLING  SEQUENCES  CALL  SUBI (X,XE,XP) 

ARGUMENT!  X I INERTIAL  POSITION/VELOCITY  OF  THE  VEHICLE 

XE  I EARTH-S  POSITION/VELOCITY 

XP  I POSITICN/VELOCITY  OF  THE  TARGET  PLANET 

SUBROUTINES  SUPPORTED!  PRINTS 

LOCAL  SYMBOLS!  RX  MAGNITUDE  OF  INERTIAL  POSITION  VECTOR 

RY  MAGNITUDE  OF  GEOCENTRIC  POSITION  VECTOR 

RZ  MAGNITUDE  OF  PLANETOCENTRIC  POSITION 

VECTOR 

VX  MAGNITUDE  OF  INERTIAL  VELOCITY  VECTOR 

VY  MAGNITUDE  OF  GEOCENTRIC  VELOCITY  VECTOR 

VZ  MAGNITUDE  OF  PLANETOCENTRIC  VELOCITY 

VECTOR 

Y GEOCENTRIC  POSITION/VELOCITY  OF  THE 

VEHICLE 

Z PLANETOCENTRIC  POSITICN/VELOCITY  OF  THE 

VEHICLE 
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SUBROUTINE  SUBSOL 

PURPOSE!  TO  COMPUTE  TRANSFORMATION  MATRIX  FROM  ECLIPTIC 
TO  SUBSOLAR  ORBITAL  COORDINATES 


ARGUMFN  T * 0 

I 

JULIAN  DATE  EPOCH  1900 

EQSS 

0 

TRANSFORMATION  FROM  PLANETOCENTRIC 
ECLIPTIC  TO  SUBSOLAR  ORBITAL 

NP 

I 

INDEX  OF  PLANET 

SUBROUTINES  SUPPORTED*  SOIPS  TARGET  TPRTRG 

SUBROUTINES  REQUIRED  * EPHEM  0R8  USCALE  UXV 

LOCAL  SYMBOLS*  C2  MAGNITUDE  OF  PLANETOCENTRIC  VECTOR  TO  SUN 

EXS  PLANETOCENTRIC  ECLIPTIC  VECTOR  TO  SUN 

EYS  CROSS  PRODUCT  OF  E2S  ANO  EXS 

E2S  PLANETOCENTRIC  ECLIPTIC  UNIT  VECTOR 

IN  DIRECTION  OF  ANGULAR  MOMENTUM  OF  PLANET 

ONE  CONSTANT  = 1. 


COMMON 

COMPUTED* 

NO 

COMMON 

USED* 

XP 
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SUBS0L  Analysis 

Subroutine  SUBS0L  computes  the  transformation  from  planetocentric 
ecliptic  coordinates  to  subsolar  planet  orbital  plane  coordinates 
for  an  arbitrary  planet.  The  subsolar  planet  orbital  plane  co- 
ordinate system  is  defined  as  the  planetocentric  system  whose 
X-axis  points  directly  at  the  sun,  whose  z-axis  is  normal  to  the 
planet*s  orbital  plane,  and  whose  y-axls  is  normal  to  the  xz-plane 

and  lies  in  the  planet  s orbital  plane.  In  the  figure  below  r 

and  v denote  the  position  and  velocity  vectors,  respectively,  of 

the  planet  relative  to  the  sun.  Unit  vectors  e , e , and  e are 

x y z 

aligned  with  the  axes  of  the  subsolar  planet  orbital  plane  system. 
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If  these  unit  vectors  are  referred  to  the  ecliptic  coordinate  sys- 
tem, the  coordinate  transformation  A from  planetocentric  ecliptic 
to  subsolar  planet  orbital  plane  coordinates  is  given  by 


+T 

e 

x 
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+T 

e 
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->T 
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Thus 
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Xsub solar 


A x 


ecliptic 


SUBS0L  Flow  Chart 
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SUBROUTINE  TARGET 

PURPOSES  TO  PERFORM  EXECUTIVE  FUNCTIONS  OF  THE  TARGETING  MODE  AS 
CAMMING  REQUIRED  SUBROUTINES  TO  READ  THE  INPUT  DATA, 
COMPUTING  THE  ZERO  ITERATE  IF  NECESSARY  AND  PERFORMING 
THE  ACTUAL  TARGETING  THROUGH  THE  PROGRESSIVE  STAGES 
USE#  8Y  STEAP. 

CALLING  SEQUENCES  CALL  TARGET 
SUBROUTINES  SUPPORTED*  GIDANS 

SUBROUTINES  REQUIRED*  TAROPT  T ARM AX  DESENT  PECEQ,  VMP 

LOCAL  SYMBOLS*  ABV  INTERMEDIATE  VARIABLE  USED  TO  LIMIT  EACH 

QELTAV  COMPONENT  CHANGE 

ACC  VECTOR  OF  ACCURACY  LEVELS  FOR  THE  CURRENT 

TARGETING  E,VENT 

ACK  ACTUAL  ACCURACY  USED  BY  SUBROUTINE  VHP 

AER  ABSOLUTE  VALUES  OF  DIFFERENCES  8ETWEEN 

DESIRED  AND  NOMINAL  END  CONDITIONS 

CERROR  CURRENT  SUM  OF  WEIGHTED  DIFFERENCES  pF 

OESIRED  AUXILIARY  AND  NOMINAL  AUXILIARY 
END.  CONDITIONS 

DEV  DIFFERENCES  {ERRORS)  BETWEEN  AUXILIARY  END 

CONDITIONS  (DESIRED  AND  NOMINAL) 

ISP2  INDICATOR  USED  BY  SUBROUTINE  VHP  . 

STOP  AT  SPHERE-OF-XNFLpENCE 
=0  DO  .NO  STOP  AT  SPHERE- OF- INFLUENCE 

ITBAD  BAD,  STEP  COUNTER 

ITER  ITERATION  COUNTER 

ITOL  . CONVERGENCE  .INDICATOR 

=i  CASE  CONVERGED 
=0  CASE  DSD  NOT  CONVERGE 

IT  INDICATOR  USED  TO  LOCATE  DESIRED  TIME 

VALUE  FOR  OUTER  TARGETING 

I INDEX 

U INDEX 

LOWHI  INDICATOR  USED  TO  CALCULATE  THE  PHASE  2 
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TARGETING  MATRIX 

NOMORE  INDICATOR  USED  TO  LIMIT  OUTER  TARGETING 

=0  OUTER  TARGETING  HAS  NOT  SEEN  PERFORMED 
=1  OUTER  TARGETING  HAS  ALREADY  BEEN 
PERFORMED 

OSPH  ORIGINAL  SPHER  OF  INFLUENCE  OF  THE  TARGET 
PLANET 

PERROR  PREVIOUS  VALUE  OF  CERROR 

REDUC  INTERMEDIATE  VARIABLE  USED  IN  BAD  STEP 
REDUCTION 

RIS  LOCAL  VECTOR  USED  TO  SAVE  AND  RESTORE  THE 

RXN  VECTOR 

RR  INTERMEDIATE  VARIABLE  FOR  OUTER  TARGETING 

RSF  FINAL  SPACECRAFT  STATE  RETURNED  BY  VHP 

SSOI  INTERMEDIATE  VARIABLE  FOR  .OUTER  TARGETING 

STOL  INTERMEDIATE  VARIABLE  FOR  OUTER  TARGETING 

TMQF,  INTERMEDIATE  VARIABLE  FOR  .OUTER  TARGETING 

TVH  PHASE  1 TARGETED  VELOCITY  AT  HIGHEST 

ACCURACY 

TVL  PHASE  i TARGETED  VELOCITY  AT  LOSEST 

ACCURACY 

t 

VV  INTERMEDIATE  VARIABLE  FOR  QUTER  TARGETING 

XTIME  CURRENT  DT  TIME  USEO  TO  CALCULATE  EQECP 
FOR  TARGET  PLANET 


COMMON 

COMPUTED/USED  8 

CTQ.L 
IBAST 
IT  ARM, 
HAXBAD 
PHI 

DAUX 

XPHASE 

KEYTAR 

NITS 

RXN 

DELTAV 

ISPH 

..LEVELS. 

NOPAR 

SPHERE 

OTAR„ 
ISTARJ 
LEV  " 
NOPHAS 

IBAD 

ISTOP 

HATX 

NOSOI 

COMMON 

C0MPU7EJD8 

OELTP 

INPR 

DELV 
I PRINT 

ICL2 

KAXTAR 

ICL 

KNIT 

INCMT 

RRF 
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COMMON  US £08  AAUX 

CELT AT 

FAC 

MAT 

ONE 

TOL 


AC 

ALNGTH 

ATAR 

OC 

OT 

OVMAX 

01 

EQECP 

IBAOS 

KTAR 

KUR 

LVLS 

MAXS 

NOIT 

NPAR 

NTP 

RC 

SPHFAC 

TAR 

TM 

TRTM 

TWO 

ZERO 
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TARGET  Analysis 

TARGET  is  responsible  for  the  control  of  any  targeting  (nonlinear  guidance) 
event.  The  targeting  is  done  either  by  the  New ton- Raphson  technique  or  by 
a steepest  descent-conjugate  gradient  algorithm,  the  method  being  specified 
by  the  user.  In  either  case  numerical  differencing  is  used  to  compute  the 
required  sensitivities. 

I.  Preliminaries 

The  current  inertial  state  of  the  spacecraft  upon  entering  TARGET  is 
first  saved  (RIS=RIN)  along  with  the  original  SOI  radius  (OSPH=SPHERE)  since 
both  variables  may  be  changed  during  the  course  of  the  targeting.  Before 
exiting  from  TARGET  these  values  are  restored. 

The  index  of  the  current  event  KUR  has  been  computed  by  TRJTRY.  This 
enables  the  specific  targeting  parameters  for  the  current  event  to  be  set: 

Parameter  Definition 

METHOD  Triggers  Newton  Raphson  (=0)  or  Steepest  Descent  (^0) 

technique 

Determines  whether  Newton- Raphson  matrix  is  computed 
always  (=2  ) or  only  at  low  level  ^(=\L)) 

1BAST  Determines  whether  bad  step  checks  are  made  never  (=1  ), 

high  level  only  (=2  ) or  always  (=3  ) 

LEVELS  Number  of  integration  accuracy  levels  to  be  used  , 

NOPAR  Number  of  target  parameters  to  be  used 

ACC  Actual  accuracy  levels  used  in  targeting 

The  following  flags  are  then  initialized  to  zero 

Flag  Definition 

ITDS  Counter  for  steepest  descent  iterations 

LCWHI  Flag  indicating  whether  first  phase  complete  (-1)  or 

not  (“0) 

NCMORE  Flag  indicating  whether  outer  targeting  has  been  done 

. (=1)  or  not  (=0) 

The  target  time  is  computed  and  using  that  time  the  transformation  matrix 
0ECEQ  fr°m  ecliPtic  to  target  planet  equatorial  coordinates  is  calculated 

(PECEQ) . 

II.  Phase  Preparations 

TARGET  performs  the  targeting  in  one  phase  unless  targeting  to  TCA  (time 
of  closest  approach).  In  that  case  the  trajectory  is  targeted  in  two  phases: 
the  first  phase  targets  to  the  target  planet  SOI  (sphere  of  influence),  the 
second  phase  to  the  closest  approach  conditions.  IPHASE  is  the  phase  counter, 
NOPHAS  is  the  number  of  phases  needed. 
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If  all  the  phases  have  been  completed,  the  program  prepares  to  exit* 

If  the  last  iterate  satisfied  the  target  tolerances  ITOL  will  have  been  set 
to  a 1.  If  it  did  not,  ITOL  will  be  zero  and  this  requires  that  KWIJC  t>e 
set  to  1 to  terminate  the  program  upon  return  to  the  basic  cycle. 

If  the  last  phase  has  not  yet  been  completed  TAROPT  is  now  called 
with  an  argument  1 to  compute  the  following  phase  parameters:  ‘ 


Parameter 


Definition 


KEYTAR (3) 
KAXTAR(3) 
OTAR  (3) 
DAUX(3) 
FAC  (3) 

ISTOP 


Vector  of  codes  of  target  parameters 
Vector  of  codes  of  auxiliary  parameters 
Vector  of  desired  values  of  target  parameters 
Vector  of  desired  values  of  auxiliary  parameters 
Weighting  factors  for  loss  function  for  auxiliary 
parameters 

Flag  indicating  integration  stopping  conditions  with 
ISTOP  = 1,2,3  indicating  fixed  final  time,  SOI,  or 
CA  encounter 


The  target  parameters  are  the  parameters  actually  desired,  the  auxiliary 

parameters  are  the  parameters  used  to  do  the  targeting.  The  target  and 

auxiliary  parameters  are  identical  except  when  i and  r are  targets. 

CA  CA 

In  that  case  the  corresponding  auxiliary  parameters  are  B-T  and  B‘R  which 
are  much  more  linear  variables.  The  codes  of  the  target  and  auxiliary  par- 
ameters are  as  follows: 

Code  1 2 3 4 5 6 5 8 9 10  11 ' 12 

Parameter  TRF*  TSI  TCS  TCA  BDT  BDR  RGA  INC  SMA  XRF  YRF  ZRF 

* not  currently  available 

III.  Level  Preparations 

Within  any  phase  TARGET  operates  through  a series  of  integration 
accuracy  levels  prescribed  by  the  user.  After  completing  each  level  TARGET 
checks  to  see  if  the  maximum  number  of  levels  LEVELS  has  been  exceeded.  If 
it  has  the  program  cycles  to  the  beginning  of  the  "phase  loop"  to  go  to  the 
next  phase.  If  the  current  level  LEV  is  less  than  LEVELS  the  following 
computations  are  made. 

The  flag  ITARM  contrdls  whether  the  previous  targeting  matrix  is  to  be 
used  (=1)  or  whether  the  matrix  is  to  be  recomputed  (=2)  during  the  current 
level.  ITARM  is  set  according  to  the  current  values  of  MATX,  ISTART,  and 
LEV. 


The  flag  IBAD  controls  the  bad  step  logic.  If  IBAD«=1  no  bad  step  check 
will  be  made  during  the  current  level;  if  IBAD=2  the  bad  step  check  will  be 
in  effect.  TARGET  sets  IBAD  according  to  the  values  of  IBAST  and  LEV. 

The  flags  ITOL,  ITER,  ITBAD  are  set  to  0 to  begin  the  iterations.  The 
allowable  iterations  NITS  and  bad  iterations  MAXBAD  are  also  set  at  this  time. 
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IV*  Iterate  Calculations 

Within  each  level  the  program  makes  one  or  more  Iterations.  After 
each  iteration  the  program  updates  the  iteration  counter  ITER.  If  the 
maximum  number  of  iterations  for  this  level  NITS  has  been  exceeded,  the 
program  sets  KNIT  to  1 and  prepares  for  the  return  from  TARGET.  Otherwise 
TARGET  computes  the  target  and  auxiliary  values  corresponding  to  the 
current  iterate  values  of  state  (position  and  velocity)  RIN. 

The  integration  parameters  are  first  set.  VMP  is  then  called  to  prop- 
agate the  initial  state  to  the  final  stopping  conditions.  Checks  are  made 
to  insure  that  the  target  planet  SOI  was  intersected  if  the  stopping  con- 
ditions were  SOI  or  CA.  If  it  was  not  intersected  and  this  is  the  first 
iteration,  the  "outer  targeting"  phase  is  entered  (see  below) . If  "outer 
targeting"  has  already  been  performed,  the  bad- step  check  is  entered  to 
reduce  the  previous  correction  by  REDUC. 

Otherwise  TAROPT  is  called  with  the  argument  2 to  compute  the  desired 
and  actual  target  (DIAR,  ATAR)  and  auxiliary  (DAUX,  AAUX)  parameter  values. 
The  absolute  error  in  target  values  AER  and  the  error  in  auxiliary  values 
DEV  are  then  computed. 

If  the  current  iterate  is  the  iiirst  integration  at  the  low  level 
during  the  second  phase  of  targeting  (L0WH1=1)  TARMAX  is  now  called  to 
compute  the  phase  2 targeting  matrix.  Then  the  state  RIN  is  reset  to  the 
targeted  velocity  at  the  high  level  TVH  to  prepare  for  the  second  phase 
targeting.  The  program  then  returns  to  the  level  sloop. 

S 

Otherwise  the  program  now  checks  the  actual  target  variables  to  deter- 
mine whether  they  satisfy  the  input  tolerances  or  not. 

V.  Tolerances  Satisfied 

i 

If  the  tolerances  are  satisfied,  the  program  first  checks  to  see  if  the 
current  targeting  phase  is  outer  targeting.  If  it  is  TARGET  restores  the 
original  target  parameters  and  initiates  the  normal  targeting  (see  Outjer 
Targeting  below) . 

If  the  current  targeting  is  already  normal  targeting,  TARGET  sets 
IT0L=1  to  indicate  the  satisfaction  of  the  tolerances . If  the  problem  is 
a 2-phase  and  the  current  level  is  the  highest  level  in  phase  1 targeting, 
the  targeted  high  level  velocity  TVHfRIN  is  saved,  LOWHI  is  set  to  1 and 
the  targeted  low  level  velocity  is  recalled  RIN=TVL  for  the  construct  of 
the  phase  2 targeting  matrix.  Then  the  level  loop  is  reentered. 

VI.  Bad  Step  Reduction 

If  the  target  parameter  values  of  any  iterate  are  not  within  the 
acceptable  tolerances  TARGET  now  assigns  a scalar  error  € to  the  iterate 
using  the  weighting  factors  W 

€ = w - AT 


516- 


TARGET-4 


If  the  bad- step  check  is  to  be  made  on  this  iterate  the  current  error  € 
is  compared  to  the  previous  error  £ ♦ If  € ^ € an<*  tlie  maximunl 

P P A— l 

number  of  bad  steps  has  not  been  exceeded,  the  previous  correction  Ziv 
is  reduced  by  EEDUC  (usually  1/4) . The  Initial  state  RIN  is  adjusted  by 
this  and  the  iterate  loop  is  reentered.  If  the  maximum  number  of  bad 
step 8 has  been  made,  KWIT  is  set  to  1 and  the  preparations  for  return  are 
made, 

VII.  Generation  of  Next  Iterate 

The  correction  iv  to  any  iterate  may  be  computed  from  either  of 
two  techniques  selected  by  the  flag  METHOD.  If METHOD  f 0,  subroutine 
DESCENT  is  called  for  the  computation  of  the  Av  by  a steepest  descent 
algorithm.  The  numerical  value  of  METHOD  determines  the  number  n of 
conjugate  gradient  steps  between  each  straight  gradient  step  where  n = 
METHOD-1.  Thus  if  METH0D=1,  every  step  is  in  the  direction  of  the  gradient. 
But  if  METH0D=5,  four  steps  are  taken  following  the  conjugate  gradient 
direction  before  rectification  by  the  gradient  direction. 

If  METH0D=0,  the  Newton- Raphson  correction  is  used.  If  ITAKM=0,  TABMAX 
is  called  for  the  computation  of  the  targeting  matrix  <j)  by  numerical 
differencing.  If  any  of  the  integrations  made  in  constructing  that  matrix 
satisfy  the  tolerances  in  7*  , the  flag  IEND  is  set  to  1 before  returning 
to  TARGET.  Thus  a check  must  be  made  on  IEND.  If  ITAEM=1  the  previous 
targeting  matrix  is  used.  The  correction  is  then  given  by 

Av  -<t>- 

->  _ ,4 

where  A CJ  are  the  deviations  in  the  iterate  auxiliary  values.  The  Av 

is  checked  to  insure  that  the  maximum  step  size  DVMAX  is  not  violated:  if 
it  is,  the  A v is  reduced  proportionately  to  satisfy  it.  The  next  iterate 
is  then  set  to 


( r’,  ‘v*)  = ( r , vJ+  £v) 
and  the  return  is  made  to  the’  iterate  loop, 

VIII,  Outer  Targeting 

Occasionally  the  zero  iterate  initial  state  leads  to  a trajectory 
missing  the  target  body  SOI.  Since  all  target  options  except  one  (targeting 
to  a specified  position,  i.e.,  KTAR  = 10,11,12)  require  the  trajectory  to 
intersect  the  target  body  SOI  steps  must  be  taken  to  correct  this. 

Let  the  initial  state  propagated  forward  lead  to  a trajectory  with  a 

close’s t approach  to  the  target  body  of  r with  r > r where  r 

CA  CA  ■ SI  SI 

is  the  radius  of  the  SOI. 
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Until  the  initial  trajectory  intersects  the  SOI  the  usual  targeting  can 
not  be  done.  Therefore  an  "artificial"  SOI  is  introduced  having  a radius 
of 


r = 1.2  x r 

AS  I CA 


The  initial  trajectory  obviously  intersects  the  artificial  SOI  and  hence 

may  be  targeted  to  conditions  on  the  ASOI.  If  the  target  conditions  are 

established  as  B*T  ~ B*R  =0,  when  this  artificial  targeting  is  completed, 

A A 

the  refined  trajectory  will  be  headed  straight  for  the  target  body  when  it 
hits*  the  ASOI.  Thus  the  refined  trajectory  should  automatically  hit  the 
normal  SOI  when  propagated  past  the  ASOI.  To  insure  that  the  time  of  ‘ 
intersection  with  the  normal  SOI  is  consistent  with  the  target  time,  an 
artificial  target  time  is  also  used.  Let  the  speed  of  the  spacecraft  with 

respect  to  the  target  body  at  r be  v . Make  the  approximation  that 

CA  CA 

this  speed  will  be  roughly  the  same  for  the  refined  trajectory.  Then  the 
time  that  the  spacecraft  should  intersect  the .ASOI  is 


or 


t = t 
AS  I CA  v 


AS  I 


CA 


t = t 
AS  I SI 


_ rASI  " rS! 
VCA 


where  the  first  formula  should  be  used  if  the  target  time  is  t or 

and  the  second  formula  is  used  for  t . ^A 

, S X 


Thus  when  a trajectory  is  found  which  misses  the  normal  SOI,  the  closest 
approach  state  r , v^A  is  recorded.  The  normal  SOI  radius  is  stored,  and 


CA 


\ f 

the  artificial  SOI  radius  given  above  is  used  in  its  place.  Target  parameters 
of  B'T. , B'Ra,  and  tAgI  are  then  set  up  as  the  targets.  When  targeting 


of  this  artificial  problem  is  complete,  the  resulting  trajectory  will  inter- 
sect the  normal  SOI  and  the  original  problem  may  be  solved. 
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TARGET  Flow  Chart 


ENTER 


PRELIMINARIES 

V 

Save  original  SPHERE,  state  RIN 
Set  parameters  for  current  event: 

METHOD,  MATX,  IBAST,  LEVELS,  ACC,  NOPAR 
Initialize  flags:  ITDS,  LOWHI,  NOMORE,  PHASE,  NOPHAS 

Compute  (b  for  target  time 

^ ECEQ 


PHASE  PREPARATIONS 


_4_ 


I PHASE  = IPHASE  + 1 
LEV  = 0 


IPHASE: NOPHASE 


=0 


Call  TAROPT(l)  to  compute  KEYTAR 
KAXTAR,  DTAR,  DAUX,  FAC,  ISTOP,  NOPHAS 


LEVEL  PREPARATIONS 


\ 

A 

( . .. 

Set  ITARM  flag 

\ 

! 

KWIT  » X 

r 

> 

ISTAJ 

IT  - 0 

r 
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PREPARATIONS  FOR  RETURN 


TARMAX-A 


SUBROUTINE  TARMAX 

PURPOSE*  TQ  CALCULATE  A TARGET  MATRIX  PROM  NOMINAL  INJECTION 

CONDITIONS,  AND  A PERTURBATION  FACTOR  8DELV  FOR  A GIVEN 
ACCURACY  LEVEL. 

CALLING  SEQUENCES  CALL  TARMAX 
SUBROUTINES  SUPPORTED*  TARGET 
SUBROUTINES  REQUIREO*  MATIN  TAROPT  VMP 

LOCAL  SYMBOLS*  ACK  ACCURACY  USED  TO  GENERATE  THE  TARGET 

MATRIX 

AER  DIFFERENCES  BETWEEN  OESIREO  AND  ACTUAL  END 
CONDITIONS 

AUXN  NOMINAL  AUXILIARY  END  CONDITIONS 

CHI  STATE  TRANSITION  MATRIX  RELATING 

PERTURBATIONS  IN  THE  RIN  VECTOR  TO  CHANGES 
IN  AUXN 

DVEE  VECTOR  OF  VELOCITY  COMPONENT  PERTURBATIONS 

ISP2  INDICATOR  USED  BY  SUBROUTINE  VMP 

*0  00  NOT  STOP  AT  SHPERE  OF  INFLUENCE 
=1  STOP  AT  SPHERE  OF  INFLUENCE 

I INDEX 

J INDEX 

KOMP  INDEX 

PSI  TARGET  MATRIX  FOR  2 X 2 EASE,  STORED  INTO 

PHI 

RSF  FINAL  SPACECRAFT  STATE  RETURNED  BY  VMP 

COMMON  C0HPUTE0/USE08  ISPH  PHI  RIN  TRTM 

COMMON  COMPUTED*  . £CL2  IDL  INCMT 

COMMON  USED*  AAUX  A,C  ATAR  , CTQL  OAUX 

DELTAT  DELTAV  OTAR  . D1  ISTOP 

KUR  LEV  LVLS  NOPAR  PERV 

ZERO 


* mr 
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TARMAX  Analysis 


TARMAX  computes  the  targeting  matrix  used' by  TARGET  for  Newton-Raphson 
refinements.  The  targeting  matrix  is  computed  by  numerical  differencing. 

Let  the  current  iterate  initial  state  be  denoted  r,  . Let  the  auxiliary 
parameters  corresponding  to  this  state  be  eT  . Let  the  perturbation  size 
for  the  sensitivities  be  /\v. 


The  k-th  column  of  the  sensitivity  matrix  is  computed  as  follows, 
the  k-th  component  of  velocity  by  Av: 


v + Av 


T 


Perturb 

(1) 


Propagate  the  perturbed  initial  state  ( r,  v^  ) to  the  final  stopping 

conditions.  Let  the  auxiliary  parameters  of  that  trajectory  be  denoted  &. 
The  k-th  column  ©f  the  sensitivity  matrix  x is  then  given  by 


x 

k 


(2) 


Having  computed  all  the  columns  of  x , the  targeting  matrix  is  then  given 
by  the  inverse  of  x : 


- -1 

* = x (3) 

The  targeting  matrix  then  has  the  property  that  to  obtain  a change  A04  in 
the  nominal  auxiliary  parameters , the  velocity  should  be  changed  by  the 
amount 


Av 


- <f>-A* 


(4) 
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TAKMAX  Flew  Chart 


TARMAX-2 


ENTER 


Set  KOMP  “0,  set  up  accuracy 
level,  perturbation  Av,  and 
save  nominal  auxiliary  values  ~c? 
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Set  up  ISP2,  ICL2  flags 
based  on  ISTOP  flag. 


B 


KOMP  = 

KOMP  + 1 

r 

\ 

V - + Av  (KOMP) 

JL 


Call  VMP  to  integrate  tra- 
jectory to  stopping  conditions. 


Did  trajectory  miss  SOI 
and  ISTOP  5*  1 


± 


NO 


Call  TAR0PT(3)  to  compute  and 
store  trajectory  target  parameters 


and  auxiliary  parameters  3T ^ 

\ 

f 

/ Do  target  parameters  r ^ 

satisfy  tolerances?  ^ y 

\ 

NO 

Compute  KOMP  colur 
sitivity  matrix  : 

an  of  senr 

1C  cs  flfp  ~ ot 

k Av(KOMP) 

f 

v^  = v-*-  A v__^(K0MP) 

Av  (KGMP)  = Av  (KOMP) /4 1 


YES 


J IEND  « 1 


RETURN 


J 


Compute  targeting 
matrix  4>  = x-1 


RETURN 
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SUBROUTINE  TAROPT 

PURPOSE*  TO  COMPUTE  THE  DESIRED  AND  ACHIEVED  TARGET  PARAMETER 

VALUE?  FOR  ALL  T«E  TARGETING  SUBROUTINES®.  . , . 

CALLING  SEQUENCES  CALL  TARO PT(ITARO) 

ARGUMENTS  XTARO  I OPTION  FLAG 

=1  SET  UP  TARGETING  PARAMETERS  FOR  TARGET 
KEYS 

=2  COMPUTE  ACTUAL  VALUES  OF  PARAMETERS 
=3  COMPUTE  ACTUAL  AND  DESIRED  VALUES  OF 

parameters 

SUBROUTINES  SUPPORTEDI  TARGET  TARMAX  DESENT 

SUBROUTINES  REQUIRED*  CAREL  CPWMS  IMPACT 

LOCAL  SYMBOLS  8 ACK  CURRENT  ACCURACY  BEING  USED 

A SEMI-MAJOR  AXIS  OF  THE  TARGET 

PLANETOCENTRIC  CONIC 

CPT  TOTAL  COMPUTER  TIME  USED  CSECSi 

DBDR  DESIREO  VALUE  OF  9 DOT  R 

OBDT  DESRIED  VALUE  OF  8 DOT  T 

DINC  DESIRED  VALUE  OF  INCLINATION 

DRCA  DESIRED  VALUE  OF  RCA 

E ECCENTRICITY  OF  THE  TARGET  PLANETOCENTRIC 

CONIC 

IAUX  INDICATOR  FOR  AUXILIARY  END  CONDITIONS 
*0  TARGET  TO  ACTUAL  END  CONDITIONS 
=1  TARGET  TO  AUXILIARY  END  CONDITIONS 

IINC  LOCATES  DESIRED  INCLINATION  IN  THE  DTAR 
ARRAY 

IRCA  LOCATES  DESIREO  RCA  IN  THE  OTAR  ARRAY 
I INDEX 

KEY  LOCAL  VARIABLE  USED  TO  COMPLETE 

INFORMATION  IN  THE  KAXTAR  AND  KEYTAR  ARRAY 

PP  DUMMY  VARIABLE  FOR  CALL  TO.  CAREL 

QQ  DUMMY  VARIABLE  FOR  CALL  TG  CAREL 
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RW  MAGNITUDE  OF  SPACECRAFT  USED  TO  COMPUTE 

SEMI-MAJOR  AXIS 

TA  DUMMY  ARGUMENT  FOR  CALL  TO  CAREL 

TDBR  DUMMY  ARGUEMENT  FOR  CALL  TO  IMPACT 

TBDT  DUMMY  ARGUEMENT  FOR  CALL  TQ  IMPACT 

TFP  TIME  OF  FLIGHT  FROM  PERIAPSIS  ON  THE 

TARGET  PLANETOCENTRIC  CONIC 

TIHC  INTERMEDIATE  VARIABLE  TO  COMPUTE  CPT 

I 

TSICA  DUMMY  VARIABLE  FOR  CALL  TO  IMPACT 


VX  INTERMEDIATE  VARIABLE  USED  TO  CALCULATE 

SEMI-MAJOR  AXIS,  FOR  OPTION  9 


WW 

DUMMY 

VARIABLE  FOR  CA^- 

TO  CAREL 

W 

DUMMY 

VARIABLE 

FOR  CALL 

TO.  CAREL 

XI 

DUMMY 

VARIABLE 

FOR  CALL 

TO.  CAREL 

XN 

DUMMY 

VARIABLE 

FOR  CALL 

TO  QAREL 

COMMON 

COMPUTEO/USED  3 

AA.UX 

ATAR 

DAUX 

oeltat 

OTAR 

ISTOP 

KAXTAR 

KEYTAR 

NOPAR 

NOPHAS 

RCA 

1 

- 

COMMON 

COMPUTED 8 

CTOL 

FAC 

, 

COMMON 

used* 

AC 

BDR 

BDT 

CAINC 

DC 

DG 

DSI  , 

DT 

eqecp 

IBAO 

ICL2 

INCH! 

IPHASE 

KTAR 

KUR 

LEV 

NOSOI 

NPAR 

ONE 

RC 

RXN 

RRF 

RSI 

TAR 

TIMS 

TMU 

TM 

TOL 

TWO 

VSI 
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TAR0PT  Analysis 

TAR0PT  is  responsible  for  computing  the  desired  and  achieved  tar- 
get parameter  values  for  all  the  targeting  subroutines.  To  add 
any  new  target  parameters,  TAR0PT  is  the  only  subroutine  that  must 
be  modified. 

The  key  variables  used  by  TAR0PT  and  their  definitions  are: 

Variable  - Definition; 

KTAR(6,10)  - Codes  of  target  parameters  of  all  targeting  event 

TAR(6,10)  - Desired  values  of  target  parameters  of  all 

targeting  events; 

KEYTAR(3)  - Codes  of  target  parameters  of  current  event; 

DTAR(3)  - Desired  values  of  target  parameters  of  current 
event; 

ATAR(3)  “ Actual  values  of  target  parameters  of  current 
iterate; 

KAXTAR(3)  - Codes  of  auxiliary  parameters  of  current  iterate; 

DAUX(3)  - Desired  values  of  auxiliary  parameters  on  current 
iterate; 

AAUX(3)  - Actual  values  of  auxiliary  parameters  of  current 
iterate. 

The  available  target  parameters  and  their  codes  and  definitions  are 
tabulated. 
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Definition 


Time  at  probe  sphere  impact  (n-body  integration 
to  sphere  of  influence  (SOI) , conic  propagation 
to  probe-sphere) 

Time  at  SOI  of  target  body  (n-body  integration 
to  SOI) 

Time  at  CA  (n-body  integration  to  SOI,  conic 
propagation  to  CA) 

Time  at  CA  (n-body  integration  to  CA) 

Impact  parameter  B*T 

Impact  parameter  B*R 

Inclination  to  target  planet  equator 

Radius  of  closest  approach  to  target  body 

Semimajor  axis  of  conic  with  respect  to  target 
body 

X-component  of  final  state  (inertial  ecliptic 
system) 

Y-component  of  final  state 

Z-component  of  final  state 

Declin^tiop.  of  probe  target  point  in  planeto- 

centric  probe-sphere  coordinate  system  speci- 

fied by  IPCS 

Right  ascension  of  probe  target  point  in 
plane tocentric  probe-sphere  coordinate  system 
specified  by  IPCS 

Time  at  probe-sphere  impact  (n-body  'integration 
to  probe  sphere) 
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The  term  target  parameter  refers  to  a variable  with  a final  value 
that  conforms  to  a desired  value*  The  term  auxiliary  parameter 
refers  to  a variable  used  to  compute  the  progressive  corrections. 

The  target  parameters  and  auxiliary  parameters  are  identical  unless 
the  target  parameters  include  either  of  the  pairs  i and  x^  or  a^. 

and  In  these  cases  the  more  linear  parameters  B*T  and  B«R  are 

used  as  auxiliary  targets  in  place  of  the  actual  ones.  The  desired 
values  of  the  asymptote  pierce-point  coordinates,  B^-T  and  B^*R, 

as  well  as  the  actual  values,  B *T  and  B *R,  are  computed  by  IMPCT  * 

A A 

for  each  successive  iterate  of  the  trajectory,  based  on  the  desired 

values  of  i and  r^A  or  cl  and  S_. 

CA  I I 

TAR0PT  is  called  under  three  different  options,  which  are  distin- 
guished by  an  argument  ITAR0.  The  three  different  options  will  be 
discussed  in  order. 

TAR0PT(1)  is  called  by  TARGET  at  the  beginning  of  each  phase  to 
set  up  the  proper  variables  for  the  targeting*  The  arrays  KEYTAR, 
KAXTAR,  DTAR,  and  DAUX  are  set  to  the  current  event  values  of  KTAR 
and  TAR.  If  t-A  or  t-^  is  a target  parameter,  the  number  of  phases 

LA  r K 

N0PHAS  is  set  to  2.  Then  for  the  first  phase  of  a two-phase  problem, 
the  time  target  variable  tCA  or  tpR  is  replaced  by  tcg  or  t , re- 
spectively, in  the  KEYTAR  and  KAXTAR  arrays.  Thus  in-  the  initial 
high-speed  phase  of  a high-precision  double-phase  targeting  problem, 
integration  is  stopped  at  the  SOI  and  the  trajectory  is  extrapolated 
to  the  target  conditions  as  in  a single-phase  case.  If  x and  r_. 

or  and  6^.  are  included  in  the  adtual  target  parameters,  the  cor- 
responding indices  of  the  KAXTAR  array  are  set  fpr  t^he  auxiliary 
targets  B*T  and  B*R.  TAR0PT  then  sets  up*  the  integration  parameters. 

There  are  three  propagation  stop  modes.  The  first  terminates  the 
trajectory  after  a maximum  prepagation  time  interval,  At,  set  equal 
to  the  nominal  difference  between  the  target  time  tT  and  the  cur*- 
rent  guidance  event  time 

At  - tT  r tG  , <« 

A 

for  this  stopping  condition,  IST0P  is  set  to  1.  The  second  termi- 
nation mode  stops  propagation  at  the  £|0I  (or  at  impact  if  the  SOI 
radius  is  temporarily  set  to  that  of  the  probe  sphere) . This 
IST0P  = 2 mode  is  used  when  the  target  time  is  t ^ tcs»  tps,  or  tp  . 
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The  final  IST0P  =»  3 mode  terminates  the  propagation  at  closest  ap- 
proach. It  is  uBed  only  when  the  target  time  is  t^.  In  either 

of  the  last  two  modes,  the  maximum  propagation  time  interval  is 
set  to  1.1  times  the  value  assigned  for  the  first  mode  except  when 
one  of  the  target  parameters  is  a^,  the  semimajor  axis  of  the 

planetocentric  conic  at  the  target  time.  In  this  case  At  is  set 
to  the  same  value  as  in  the  first  stopping  mode.  The  augmented 
propagation  Interval  guarantees  that  the  trajectory  will  be  pro- 
pagated long  enough  to  reach  the  desired  targeting  termination. 

Finally  the  weighting  factors  FAC(3)  used  in  computing  the  scalar 
loss  function  are  set.  Since  the  loss  function  is  calculated 
solely  from  the  auxiliary  targets,  which  all  have  units  of  either 
length  or  time,  only  the  relative  weight  of  time  to  length  need 
be  input.  Thus  the  length  factors  are  set  to  unity  and  the  time 
factor  to  the  input  value  in  WGHTM. 

TAR0PT(2)  is  called  by  TARGET  after  integrating  each  iterate  to 
the  final  stopping  conditions.  Here  TAR0PT  performs  mainly  a book- 
keeping role.  It  must  fill  the  proper  cells  of  the  ATAR,  AAUX,  and 
DAUX  arrays  with  values  generally  computed  by  the  virtual-mass 
routines.  If  auxiliary  targeting  is  required,  both  the  actual  and 
desired  values  of  the  B-plane  coordinates  are  computed  by  calling 
IMPCT. 

Since  TAR0PT(3)  is  called  by  TARMAX  and  DESENT  after  integrating 
each  perturbed  trajectory  to  compute  the  perturbed  values  of  the 
auxiliary  parameters,  the  desired  values  of  DAUX  need  not  be  com- 
puted at  this  time.  If  auxiliary  targeting  is  in  process,  the  ac- 
tual values  of  the  B-plane  coordinates,  B^*T  and  B^*R,  are  computed 

by  a call  to  IMPCT.  Once  again  this  task  is  simply  a bookkeeping 
job  to  store  the  trajectory  data  correctly  in  the  ATAR  and  AAUX 
cells.  TARMAX  and  DpSENT  may  then  operate  easily  on  these  arrays 
to  compute  the  targeting  matrix  or  gradient  directions. 

In  both  calls  TAR0PT(2)  and  TAR0PT(3) , the  trajectory  data  are 
printed  out  before  exiting  from  TAR0PT. 
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SUBROUTINE  TARPRL 

PURPOSES  TO  COMPUTE  THE  PARTIAL  DERIVATIVES  OF  THE  POSITION,. 

COMPONENTS  OF  A PLANET  WITH  RESPECT  TO  EACH  OF  IT§ 
ORBITAL  ELEMENTS. 

CALLING  SEQUENCE*  CALL  TARPRL<  I.CODE , PAR) 

ARGUMENT*  ICODE  I CODE  DEFINING  ORBITAL  ELEMENT  OF  INTEREST 

PAR  0 VECTOR  OF  3 POSITION  PARTIALS  HITH  RESPECT 

TO  THE  ORBITAL  ELEMENT  OF  INTEREST  .1.' 

SUBROUTINES  SUPPORTED*  TRAKS  TRAKM 

LOCAL  SYMBOLS*  CBO  COSINE  OF  LONGITUDE  OF  ASCENDING  NODE 

Cl  COSINE  OF  ANGLE  OF  INCLINATION 

CLO  COSINE  OF  ARGUMENT  OF  PERIAPSIS 

COSNU  COSINE  OF  TRUE  ANOMALY 

COSONU  COSINE  OF  THE  SUM  OF  THE  ANGLES  OF  TRUE 
ANOMALY  PLUS  THE  ARGUMENT  OF  PERIAPSIS 

DNUDE  PLANET  DISTANCE  TIMES  THE  PARTIAL  Of 

TRUE  ANOMALY  WITH  RESPECT  TO  ECCENTRICITY 

DNUDM  PARTIAL  OF  TRUE  ANOMALY  WITH  RESPECT  TO 
MEAN  ANOMALY  

DPAR  i./R*<*R/*E  + (*R/*NU)*C*NU/*E>) 

WHERE  R=  PLANET  DISTANCE  . 

NU=TRUE  ANOMALY 
E-  ECCENTRICITY 
PARTIAL  OF 

ORDNU  PARTIAL  R WITH  RESPECT  TO  NU 

E2  SQUARE  OF  ECCENTRICITY 

IND  INOEX  USED  IN  ARRAY  STORING  ORBITAL 

ELEMENTS  OF  PLANETS 

PCQMP  SEMI-MAJOR  AXIS  TIMES  THE  TERM  ( i-E*E> 
WHERE  E=ECCENTRICITY 

R PLANET  01 STANCE 

SB9  SINE  OF  LONGITUDE  OF  THE ' ASCENDING  NpOE 

SI  SINE  OF  INCLINATION 
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SINNU 

SINE  OF 

1 

SINONU 

SINE  OF 
ANOMALY 

SLO 

SINE  OF 

XXX 

SCRATCH 

COMMON  USE09 

ALNGTH 

ZERO 

TRUE  ANOMALY 

THE  SUM  OF  THE'  ANGLES  OF  TRUE 
PLUS  THE'  ARGUMENT  OF  PERIAPSIS 

THE  ARGUMENT  OF  PERIAPSIS 

CELL 

ELMNT  NTP  ONE  XP 
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TARPRL  Analysis 


The  position  components  of  a planet  are  related  to  its  orbital  elements 
a,  e,  i,jQ,6;,  and  M through  the  following  set  of  equations: 


x *»  r £cob  i?cos  (w  + V)  - sin  Q sin(w  + V)  cos  i 

(1) 

y “ r £sin42cos  (io  + V ) + cos  Q sin(d/  + t')  cos  i 

(2) 

z ® r sin(d>  + P)  sin  i 

(3) 

r “ a(l  - e2) 

(4) 

1 *f  e cos  V 

tan  v = -y/1  + e tan  I 

(5) 

2 V 1 - e 2 

M *=  E - e sin  E 

(6) 

We  can  write  equations  (1) , (2) , (3) , and  (4)  symbolically  as 

Xi  “ fi/a»  e>  »0J> 

and  equations  (5)  and  (6)  as 

V « v (e,  M)  . 


Then  the  partials  of  x with  respect  to  a,  e,  i,  Q,  !o>  and  M can  be 
evaluated  as  follows:  1 


8xi  _ ah 

B a.  Q a 

d*i  \ + dv_ 

de  \ j dv  * 5e 

ffxt  d 
B i di 

$xi_  m $fi 

dQ  m bQ 


(7) 

(8) 

(9) 

(10) 
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21 i 

■ t*1"  ■ as 

do.) 

do> 

m 

S£i . 

dv 

dH 

dv 

d M 

(11) 

(12) 


Only  and  SLE—  require  further  consideration  before  equations  (7) 

d e dVL 

through  (11)  can  be,  used  to  obtain  expressions  for  the  18  desired  partial 
derivatives . 


We  obtain  by  first  differentiating  equation  (5)  with  respect  to  E 

d M 

and  equation  (6)  with  respect  to  M to  obtain 


d v 

dE 


* VTT7 

r 


and 


&E  M a 
dM  r 


Then 


§ry  r d E 

dE  * 9M 


(13) 


We  obtain 
to  obtain 


by  first  differentiating  equation  (6)  with  respect  to  e 


<m  m m Vl  - e^  sin  V 
de  1 + e cos  i' 


This  result  is  then  combined  iyith  equation  (13)  to  yield 


dV 

de 


JJL. 

an 


2 

a 1 (1  - e ) sin  V 

r j 1 + e cos  V 


(14) 
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The  evaluation  of  the  desired  partials  can  now  proceed.  The  results 
are  summarized  below. 

a.  Partials  with  respect  to  a. 

9x  a x 
da  a 

...gJ L.  » i 

da  a 

dz  z 

xz 

da  a 


b*  Partials  with  respect  to  e. 


dk 

« — 3sg_ 

+ r-^- 

d e 

r 

de 

dy 

« . yq 

+ r 9V 

de 

r 

d e 

dz 

8 , zq 

+ r dV 

de 

r 

de 

where  q ^ = — 

ae(l  - e ) 


cos  ,Qsin(Ct>  + zO  - sinficos  (Ct>  + v ) co.s  i 
£-  sin.f2sin(CJ4-  l>)  4-  cos42cos (CJ+  1/ ) cos  i 
cos  (Cl > + V)  sin  i 

• £r  - a - ae^(l  + sin^  Z>)j 


} 

] 


c.  Partials  with  respect  to  i. 


dx 

di 

di 


r sinfisin(6U+ J/)  sin  i 


- r cos£sin(cu+  V ) sin  i 


r sin(tt>+y)  cos  i 


d.  Partials  with  respect  to  Q . 
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M-  . 
ea 


x 


0 


e ♦ Partials  with  respect  to  CO  . 


dx 

dCJ 


-Si- 

dit) 


r coei3ein(4j  + V)  - sini2cos(k>  + V ) cos  ij 
r £ - sini?sin(6J-f  Z/)  + cos  i2cos  (0J+  V ) cos  ij 


dz 


» r cos((J+^)  sin  i 


f * Partials  with  respect  to  M. 


.9x  - 

xs 

. + r-2H- 

6M 

£M 

r 

JbL.  - 

0M 

yg 

r 

+ r ITT 

d z _ 

zs 

. + r . . 

d m 

r 

c>M 

where 

8 « 

ae  sin*/ 

VT77 


cosi?  sin(kH- *> ) - sini2cos(^+ z/)cos  i 
sini2sin(^  + l ) + cos  Pcos  (<&>  + J/)cos  i 
cos  (w+  V )sin  i 


Reference:  Battin,  R.  H. : Astronautical  Guidance,  McGraw-Hill  Book 

Company,  Inc.,  New  York,  1964. 
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SUBROUTINE  THPOSM 


PURPOSE*  TO  FIND  MINIMUM  OF  FUNCTION  ON  A GIVEN  INTERVAL 
BY  CUBIC  INTERPOLATION 


ARGUMENT*  ALPHA 

I 

FRACTION  OF  INTERVAL  FROM  0.  TO  AMEDA 
AT  WHICH  THIRD  FUNCTION  VALUE  IS  FCUNO 

AM  BOA 

I 

UPPER  END  OF  SEARCH  INTERVAL  AT  WHICH 
FUNCTION  VALUE  IS  FOUND  (LOWER  END  IS  0.) 

falam 

I 

VALUE  OF  FUNCTION  AT  ALPHA  TIMES  AMBDA 

FLAM 

I 

VALUE  OF  FUNCTION  AT  AMBDA 

FOP 

I 

DERIVATIVE  FUNCTION  VALUE  AT  ABSCISSA  OF  0 

FO 

I 

FUNCTION  VALUE  AT  A8SCISSA  VALUE  OF  0. 

XM  IN 

0 

ABSCISSA  VALUE  AT  MINIMUM  OF  FITTED 
CUBIC  POLYNOMIAL 

SUBROUTINES  SUPPORTED*  GAUSLS 


Ai  COEFFICIENT  OF  QUADRATIC  TERM  IN 

FITTEO  CUBIC  POLYNOMIAL 

OISC  DISCRIMINANT  OF  QUADRATIC  EQUATION  FORMED 
BY  SETTING  DERIVATIVE  OF  CUBIC  POLYNOMIAL 
TO  ZERO 

THRAO  THREE  TIMES  COEFFICIENT  OF  CUBIC  TERM 
IN  FITTEO  CUBIC  POLYNOMIAL 
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THP0SM  Analysis 

THP0SM  locates  by  cubic  interpolation  the  minimum  of  a scalar 
function  f of  one  variable  on  the  closed  interval  from  0 to  X 
(positive) , assuming  f has  a unique  point  on  that  interval  where 
its  derivative  vanishes  and  that  this  extreme  value  is  indeed  a 
minimum.  The  algorithm  fits  a cubic  polynomial  through  function 
values  at  0,  aX,  and  X as  well  as  through  the  function’s  slope 
at  0.  Here  oX  should  be  on  the  open  interval  from  0 to  X and 
preferably  near  the  middle.  The  abscissa  of  the  minimum  is  then 
approximately  by  the  abscissa  of  the  corresponding  minimum  of  the 
cubic. 

The  coefficients  of  the  approximating  cubic  can  readily  be  deri- 
ved once  and  for  all  and  cast  into  a form  facilitating  speedy 
execution.  This  approach  proves  much  more  economical  of  machine 
time  than  solving  for  them  each  pass  with  a linear  system  routine 
as  is  frequently  done  in  polynomial  fitting. 

Denote  the  approximating  cubic  polynomial  by 

c(X)  = a^X3  + a-]X2  + a^X  + a^.  (1) 


Then  clearly 

a3  = f(0) 


(2) 


and 

a2  = f'(0) 

One  also  has  that 

f(X)  = UqX3  + a.jX2  + f'(0)X  + f(0) 

and 

l 

f(aX)  = a^a3!3  + a^a2X2  + f'(0)ctX  +.  f(0). 

Solving  these  last  two  equations  for  a^  and  a^  yields 

1_ 

a0  X3a2 


Xf'(0)a  + f (0)  (1+a)  + a2f(Xi  _'-f 

_L  — Ot 


(3) 

(4) 

(5) 

(6) 
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and 


1 X2a2 


_...Pt-£.(A2 — Xu(l+a)f'(0)  - f (0)  (-1-ra+a2) 


. (7) 


For  an  extreme  value,  X , one  knows  that  c' 


e 

3a.X  2 +2a,X  + a = 0. 

0 e 1 e 2 


(Xe)  ‘ °* 


that  Is, 


(8) 


Hence 


X* 


'1,2 


*1  %la  1 ~ 3V 

3a„ 


The  'question  remains  as  to  which  of  these  two  extrema  is  a mini- 
mum. It  is  shown  in  elementary  calculus  that  an  extremum  is  a 
minimum  if,  and  only  if,  the  second  derivative  is  positive  there. 
Now 


c"(X)  - 6aQX  4*  2a  . 


Hence 


6ar 


aj2  ~ 3a0a2 
3art 


+ 2a_ 


= ±2y/a^  -"Sa^  . 

Thus  the  cubic  has  its  minimum  at 

, -a1.  +Jal2  - 3a0a2 

min  3a^ 


The  preceding  formula  for  the  minimum  will  obviously  be  inade- 
quate when  = 0 as  is  the  case  when  minimizing  a quadratic. 

However  it  can  be  shown  that 


lim  X_ 
a0*° 


man 
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THF0SM  provides  diagnostic  printouts  and  stops  execution  of  the 
calling  program  in  the  three  conceivable  cases  of  difficulty: 

(1)  the  cubic  degenerates  to  a straight  line,  (2)  the  cubic 
degenerates  to  a quadratic  with  no  minimum,  (3)  the  cubic  is 
nondegenerate  but  has  no  extrema,  or  (4)  the  minimum  of  the  cubic 
does  not  fall  between  0 and  1. 
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TIME-A 


SUBROUTINE  TIME 

PURPOSE*  TO  COMPUTE  THE  JULIAN  DATE,  EPOCH  1900,  FROM  THE 

CALENDAR  DATE  OR  TO  COMPUTE  THE  CALENDAR  DATE  FROM  THE 
JULIAN  OATEo 


CALLING  SEQUENCE* 
ARGUMENT*  OAY 
IYR 
HO 

IDAY 

\ 

IHR 

MIN 

SEC 

ICODE 


CALL  TIME ( DAY , IYR, MO , I 0 AY , IHR, MIN, SEC, ICODE) 

I/O  JULIAN  OATE,  EPOCH  1900 

O/I  CALENOAR  YEAR 

O/I  CALENDAR  MONTH 

O/I  CALENOAR  DAY 

O/I  HOUR  OF  THE  DAY 

O/I  MINUTE  OF  HOUR 


O/I  FRACTIONAL  SECONDS 
I OPERATIONAL  MODE 

= 1,  INDICATES  THE  JULIAN  DATE  IS  INPUT, 
CALENDAR  DATE  IS  OUTPUT 
= O',  INDICATES  THE  CALENDAR  OATE  IS  INPUT, 
JULIAN  OATE  IS  OUTPUT 


SUBROUTINES  SUPPORTED*  DATAS  INPUTZ  PRINT  VMP  GIDANS 

PREPUL  PRNTS4  DATA  PRNTS3  PRELIM 

GIDANS  HELIO  MULTAR 


SUBROUTINES  REQUIRED* 
LOCAL  SYMBOLS*  I A 

IB 

IP 

IQ 

IR 

IS 

IT 

IU 

iy 


NONE 

NUMBER  OF  CENTURIES 
YEARS  IN  PRESENT  CENTURY 

NUMBER  OF  MONTH  (BASED  ON  MARCH  AS  NUMBER 
ZERO) 

NUMBER  OF  YEARS 

NUMBER  OF  CENTURIES  DIVIDED  BY  4 

NUMBER  OF  YEARS  SINCE  LAST  400  YEAR 
SECTION  BEGAN 

NUMBER  OF  LEAP  YEARS  IN  PRESENT  CENTURY 
NUMEER  OF  YEARS  SINCE  LAST  LEAP  YEAR 
NUMBER  OF  OAYS  IN  LAST  YEAR 
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PRECEDING  PAGE  BLANK  NOT  FILMED 

IX  INTERMEDIATE  INTEGER 

J INTERMEDIATE  INTEGER 

JO  NUMBER  OF  DAYS  IN  JULIAN  DATE 

P JULIAN  DATE 

R FRACTIONAL  PORTION  OF  DAY  IN  JULIAN  DATE 
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SUBROUTINE  TITLE 

PURPOSE#  TO  PRINT  TITLES  FOR  ERRAN. 

CALLING  SEQUENCES  CALL  TITLE (LINES > TEVN,ICOOE) 
ARGUMENTS  LINES  NOT  USED 

TEVN  I EVENT  TINE 

I CODE  I EVENT  CODE 

SUBROUTINES  SUPPORTED*  SETEVN 

LOCAL  SYMBOLS S TPT  TIME  PREDICTING  TO 

COMMON  US EDS  IPROB  NPE  TPT2 
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SUBROUTINE  TITLES 
PURPOSES  TO  PRINT  TITLES  FOR  SIMULo 
CALLING  SEQUENCE*  CALL  TITLES<TEVN»ICOOE> 
ARGUMENT t TEVN  I EVENT  TIME 
ICOOE  I EVENT  CODE 
SUBROUTINES  SUPPORT EO  8 SETEVS 

LOCAL  SVN0OLS*  TPT  TIME  PREDICTING  TO 


COMMON  USEOt 


IPR09  NPE 


TPT2 


TPPROP-A 


SUBROUTINE  TPPROP 

PURPOSE*  PROPAGATE  THREE  MI NIPR08E  TRAJECTORIES  ACCORDING 
TO  EITHER  CONIC  OR  VIRTUAL  - MASS  MODEL 

ARGUMENT!  PSI  I CONSTRAINT  VECTOR 

UCNTRl  0 CONTROL  VECTOR 

SUBROUTINES  SUPPORTED*  TPRTRG 

SUBROUTINES  REQUIRED*  CAREL  CONCAR  DIMPCP  , MATPY  SAOCS 

SCAR  SPHIMF  STIMP  VMP 

LOCAL  SYMBOLS*  ANPTP  SEMI-MAJOR  AXIS  OF  I-TH  PROBE  CONIC 

ATP  INTERMEDIATE  VARIABLE  USED  TO  FIND  UCNTRL 

AUTKM  CONVERSION  FACTOR  FROM  AU  TO  KM 

8M  MAGNITUDE  OF  B-VECTOR  OF  I-TH  CONIC 

CSRRA  COSINE  OF  ROLL  RELEASE  ANGLE  OF  I-TH  PROBE 

CSTITP  COSINE  AT  IMPACT  OF  TRUE  ANOMALY 

CSTP03  INTERMEDIATE  VARIABLE 

DBR  INTERMEDIATE  VARIABLE 

O0T  INTERMEDIATE  VARIABLE 

OJEOUM  JULIAN  DATE  EPOCH  1900 

DTPITP  TIME  FROM  PERIAPSIS  TO  IMPACT  OF  I-TH  CONIC 

DTPRTF?  TIME  FROM  PERIAPSIS  TO  EXTRAPOLATION  STATE 

* 

DTR  CONVERSION  FACTOR  FROM  DEGREES  TO  RADIANS 

DTS  CONVERSION  FACTOR  FROM  DAYS  TO  SECONDS 

EMS1  MISS  DISTANCE  SQUARED  FROM  SECOND 

PROBE  TO  FIRST  TARGET  SITE  TO  WHICH 
PROBE  ONE  IS  NOT  TARGETED 

EMS2  MISS  DISTANCE  SQUARED  FROM  SECOND  PROBE 
TO  SECOND  TARGET  SITE  TO  WHICH  PROBE 
ONE  IS  NOT  TARGETED 

E NPT'P  ECCENTRICITY  OF  I-TH  PROBE  CONIC 
FACTR  INTERMEDIATE  VARIABLE 
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ICL2S  SAVED  VALUE  OF  VHP  FLAG  *ICL2 

INMINi  INDEX  OF  FIRST  SITE  TO  WHICH  PROQE 
ONE  IS  NOT  TARGETED 

INMIN2  INDEX  OF  SECOND  SITE  TO  WHICH  PROBE 
ONE  IS  NOT  TARGETED 

I SITE  INOEX  OF  DESIRED  I-TH  PROBE  TARGET  SITE 

t 

ISP2  CALL  ARGUMENT  TO  VMP 

I INOEX 

NTPI  INDEX  FOR  F ANO  V ARRAY  USAGE 

‘I  < 

ONE  CONSTANT  = i. 

PNPTP  SEMI-LATUS  RECTUM  OF  I-TH  PR08E  CONIC 

PPNPTP  UNIT  ECLIPTIC  PERIAPSIS  VECTOR  OF  CONIC 
QQNPTP  UNIT  VECTOR  NORMAL  TO  PPNPTP  IN  ORBIT  PLANE 
RTD  CONVERTS  RADIANS  TO  DEGREES 

RTPIP  UNIT  ECLIPTIC  VECTOR  TO  I-TH  PROBE  SITE 
RTPISS  PROBE-SPHERE  UNIT  VECTOR  TO  I-TH  PROBE  SITE 
RV  INTERMEDIATE  VECTOR 

SNRRA  SINE  OF  ROLL  RELEASE  ANGLE  OF  I-TH  PROBE 

SNTITP  SINE  OF  TRUE  ANOMALY  OF  CONIC  AT  INPACT 

SNTP03  INTERMEDIATE  VARIABLE 

SPHERS  S.O.I.  RADIUS  CF  TARGET  PLANET 

SV  UNIT  VECTOR  NORMAL  TO  RV 

TM2  CONSTANT  = i.E-2 

TP2  CONSTANT  * l.E+2 

TRTMS  TIME  OF  PROBE  RELEASE  IN  DAYS  RELATIVE 
TO  START  OF  VMF  TRAJECTORY 

TV  CROSS  PRODUCT  0^  SV  AND  RV 

TWO  CONSTANT  = 2. 
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VTANG  TANG.  VELOCITY  OF  ALL  PROBES  AT  RELEASE 

VTPIP  ECLIPTIC  VELOCITY  VECTOR  OF  I-TH  PROBE 

VTPRPA  ECLIPTIC  VELOCITY  VECTOR  OF  I-TH  PROBE 
AT  RELEASE  OR  AT  BEGINNING  OF  THE 
CONIC  EXTRAPOLATION 

WWNPTP  CROSS  PROOUCT  OF  PPNPTP  AND  QQNPTP 

XSF  FINAL  HELIOCENTRIC  ECLIPTIC  STATE  OF 

I-TH  PROBE  RETURNED  BY  VHP  IN  KM, KM/SEC 

XSI  INITIAL  HELIOCENTRIC  ECLIPTIC  STATE  OF 
I-TH  PROBE  RELEASE  PROPAGATED  BY  VMP 

ZERO  CONSTANT  = 0. 


COMMON 

COMPUT  ED/USED  * 

ICL2 

VSCRPA 

RSCRPA 

SPHERE 

TRTM 

VIMTP 

COMMON 

COMPUT  EO* 

AATTP 

AOCTP 

ALNGTH 

ARATP 

OJEITP 

FPATP 

TM 

ICL 

INCMT 

IPRINT 

ISPH 

COMMON 

USEO* 

ACTPP 

BOR 

BOT 

B 

CSOCSA 

CSRASA 

OCTP 

OELTM 

DJERN 

DSI 

F 

GMUP 

IFIN2 

IMIN 

I PROP 

ISAO 

N800 

N8 

NTP 

RATP 

RSCRHA 

RSI 

RTPS 

SNDCSA 

SNRASA 

TRANSF 

VSCRHA 

VSI 

V 

WFLS 
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TPPR0P  Analysis 

The  subroutine  TPPR0P  has  the  sole  responsibility  for  propagating 
miniprobes.  It  is  called  on  to  do  so  in  two  basic  applications* 
The  first  is  in  calculating  the  miniprobe  targeting  constraint 
given  the  release  control  u as  repeatedly  required  in  the  miss- 
minimization  process  (see  analysis  of  TPRTRG) * The  second  is  in 
describing  the  minimum-miss  miniprobe  approach  trajectories  once 
the  optimal  release  controls  have  been  found.  This  includes  gen- 
erating impact  data  for  both  conic  and  virtual-mass  propagation 
as  well  as  time  histories  of  the  latter.  The  logic  of  TPPR0P  is 
considerably  complicated  by  the  requirement  that  it  be  able  to 
propagate  the  approach  trajectories  according  to  either  a high- 
speed conic  model  or  an  accurate  virtual-mass  n-body  integrator. 

First  consider  the  problem  of  calculating  given  u . For  this 
application  of  TPPR0P,  the  miss-minization  status  flag,  1FIN2, 
is  set  to  1.  In  either  propagation  mode  the  velocity,  v_^R,  of 

the  ith  miniprobe  just  after  release  must  be  computed  first  of 
all.  Let  Vg^  be  the  velocity  of  the  bus  at  release  and  <|k  be 

the  release  roll  angle  of  the  ith  probe.  Let  U,  V and  H be  the 
probe  release  reference  vectors  defined  in  the  analysis  section 
of  TPRTRG,  By  we  mean  the  angle  the  release  velocity  incre- 
ment of  the  ith  miniprobe  makes  with  the  II  direction.  It  should 
not  be  confused  with  the  angle  the  ith  probe  arm  makes  with  the 
U direction,  which  is  ir/2  radians  smaller.  Next  define  to  be 

the  common  tangential  velocity  of  the  miniprobes  at  release. 

Then  the  velocity  of  the  ith  miniprobe  at  release  is 

-iR  = VT  £°S  h-  + Sin  + -BR  1 = 1’2’3'  U) 

Let  ctjj  and  6^  denote  the  right  ascension  and  declination,  re- 
spectively, of  the  spin  axis  at  release.  Then  by  expressing  IJ 
and  V in  terms  of  these  angles,  equation  (1)  reduces  to  the 
following  in  the  planetocentric  ecliptic  system: 


(sin  aH  ^ 

/cos  aH  sin 

II 

>T 

cos  $ 1 

-COS  O' 

^ 0 ) 

+ sirJ  4>±  1 

sin  sin  6 \ 

!\ 

+ ~BR  i = 1,2,3  (2) 
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SSunplif Y uig  equation  (2>  yields  the  comjputational  form  of  the 
iitfh  mikni'piro'be  '<re&'6rc8t£y 


/sin  a cos  4> . + cos  a sin  6 sin  <j> . ’ 

f ri  1 n.  ri  1 


ZiR  = VT  ■ ^cOS  a 


H cos  4»i  + sin  aR  sin  6R  sin 
- cos  6r  sin  <}>^ 


(3) 


i = 1,2,3. 


The  sines  and  cosines  of  aR  and  <$R  necessary  in  equation  (3)  are 

all  calculated  in  a single  call  to  the  subroutine  SA0CS  given 
the  spin-axis  orientation  flag,  ISA0. 


At  this  point  the  algorithms  for  calculating  the  constraint  ^ 
diverge  for  the  two  miniprobe  propagation  models.  In  the  conic 
propagation  mode,  signaled  by  the  flag  IPR0P  set  to  1,  y_  in 

equation  (3)  represents  the  velocity  of  the  equivalent  conic 
release  state  of  the  bus  (see  TPRTRG  analysis) . Hence,  to 
determine  the  actual  B-plane  pierce  point  coordinates  7B.  • T.T" 

\ 1 /A 


and 


(\  • q 


as  well  as  the  parameters  S,  I , R and  a for  the  ith 


miniprobe,  TPPR0P  simply  applies  the  subroutine  STIMP  to  the  state 
T ! __  t\t 


/ T 1 TV 

\rBR  * ViR  ) w^ere  denotes  the  equivalent  conic  position 

of  the  bus  (and  hence  also  of  the  ith  probe)  at  release.  Deter- 
mining the  desired  B-plane  pierce  point  coordinates,  /b.  • T.\ 

\ 1 v D 

of  the  ith  probe  is  complicated  by  the  fact  that 


and 


(h  • hi 


the  miniprobes  must  be  correctly  paired  with  the  impact  sites. 

The  first  miniprobe  is  targeted  to  the  miniprobe  site  whose 
pierce  point  at  the  time  of  the  calculation  of  the  initial  con- 
trol estimate  in  TPRTRG  was  nearest  the  bus  pierce  point.  Hence 
^®1  * ^l)  and  (®1  * ^l)  are  readily  calculated  by  the  appropri- 
ate call  to  DIMPCP,  with  the  right  ascension  and  declination  of 
the  target  site  used  in  the  initial  control  estimate  and  the  J5 
and  a of  the  current  miniprobe  1 trajectory.  Next  TPRTRG  com- 
putes two  sets  of  desired  B-plane  coordinate  pairs,  ^ * T^j 

and  ^2  * I^)  » ^y  applying  DIMPCP  successively  to  each  of  the 


remaining  pairs  of  miniprobe  target  sites  using  in  both  cases  the 
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S and  a of  the  current  miniprobe  2 trajectory.  With  these  two 
sets  of  desired  pierce  point  coordinate  pairs  relative  to  mini- 
probe  2 now  available  for  comparison,  TPPR0P  selects  the  set 
whose  Euclidean  distance  from  the  pierce  point  of  miniprobe  2 
is  the  smaller.  Finally,  ^ • T^j  and  * B-^)  are  caicu~ 

lated  by  calling  DIMPCP  with  right  ascension  and  declination  of 
the- remaining  miniprobe  target  site  and  the* and  a of  the  cur- 
rent miniprobe  3 trajectory.  At  this  point  an  approximately  in- 
herent in  the  application  of  the  subroutine  DIMPCP  to  the  mini- 
probes must  be  noted.  The  time-varying  ^transformation  from 
planetocentric-ecliptic  coordinates  to  the  probe-impact  frame 
required  by  DIMPCP  is  held  fixed  at  the  time  of  the  bus  impact. 
This  approximation  is  more  than  adequate  for  engineering  pur- 
poses. All  of  the  required  B-plane  data  for  the  three  mini- 
probes having  been  assembled,  TPPR0P  can  now  calculate  the  ith 
and  (i+3)rd  components  of  the  constraint  vector: 


*i«  • ci  [pi  • \ D - (h  • Ti)A] 


i = 1,2.3. 


(4) 


Here  the  ' s are  weighting  factors  indicating  the  relative  im- 

portance of  achieving  nearby  impacts  at  the  respective  miniprobe 
target  sites.  Finally,  the  release  roll  angle  for  the  next  mini- 
probe can  he  found  from  that  of  the  current  one  by  applying  the 

addition  formulas  for  the  sine  and  cosine: 

sin  4>i+1  = (v^3  sin  <jm  + cos  4m)  jl  (5) 

* c°s  $i+1  ■ (cos  “ & sia  4>J  j 2.  (6) 

The  iterative  process  is  started  by  noting  that  § is  simply 

i i 1 1 

the  first  component  of  the  control  vector. 


For  virtual-mass  propagation  indicated  by  IPR0P=2,  the  general 
structure  of  the  computation  remains  the  same  but  the  interpre- 
tation of  the  conti tuent  state  vectors  changes.  The  v_  in  equa- 


tion (3)  is  taken  as  the  velocity  of  the  actual  virtual-mass  re- 
lease state.  Then  VMP  is  called  to  integrate  the  virtual 


/ T .1 
mass  state  yXgp  * 


of  the  ith  miniprobe  just  after 
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release  to  a pseudosphere  whose  radius  is  one-tenth  that  of  the 
actual  Laplacian  sphere  of  influence.  From  this  distance  inward, 
conic  extrapolation  of  the  current  state  suffices  for  engineering 
calculations.  For  the  actual  B-plane  pierce-point  coordinates, 

( B^  • and,  • R_^j  , as  well  as  the  quantities  S^,  T.j  R and 

for  the  ith  miniprobe,  TEPR0P  again  simply  makes  a single  call 
to  STIMP  but  this  time  with  the  virtual-mass  state  at  the  pseudo- 
sphere rather  than  the  equavalent  conic  state  at  release.  The 
remainder  of  the  virtual-vass  constraint  vector  computation  in- 
cluding the  computation  of  the  desired  miniprobe  B-plane  pierce 
i points  via  the  subroutine  DIMPCP  proceeds  exactly  as  for  the 
conic  model. 


Next  consider  the  provisions  in  TPRTRG  for  describing  the  minimum- 
miss  miniprobe  approach  trajectories.  Throughout  this  application, 
the  miss-minimization  status  flag,  IFXN2,  must  be  set  to  2.  First 
in  this  area  TPPR0P  must  supply  the  impact  data  for  the  miniprobes 
using  the  conic  propagation  model  on  the  conic  minimum-miss  re- 
lease controls.  This  is  done  by  setting  the  progation  mode  flag, 
IPR0P  to  1.  Then  with  IFIN2=2,  TPPR0P  uses  the  state 


'I  iLRT) 

state 


constructed  from  the  bus  equivalent  conic  release 

the  conic  minimum-miss  release  controls,  and  equation  (3) 
to  generate  an  osculating  conic  by  a call  to  CAREL.  The  sine  and 
cosine  of  the  true  anomaly  and  the  time  at  impact  are  determined 
by  a call  to  SPHIMP.  Then  the  Cartesian  plane tocentric  ecliptic 
state  is  evaluated  by  a call  to  CONCAR.  From  these  data  the 
right  ascension  and  declination  of  the  impact  £ite,  as  well  as 
the  time,  speed,  and  flightpath  angle  at  impact  for  the  ith 
miniprobe  can  be  calculated  from  the  formulas  used  in  computing 
the  same  quantities  for  the  bus.  These  are  described  in  the 
TPRTRG  analysis.  The  angle  of  attack,  a..,  for  the  ith  miniprobe 

however  requires  separate  treatment.  It  is  assumed  that  the 
longitudinal  body  axies  of  each  miniprobe  remains  parallel  until 
impact  to  the  spacecraft  spin  axis  at  realse.  Thus  if  v^  repre- 


sents the  velocity  of  the  ith  miniprobe  at  impact. 


cos-'  (H  • viI/||v1I||) 


i - 1,2.3. 


(7) 


545-7 


TPPR0P-5 


Equation  (5)  can  be  expressed  in  terms  of  the  angles  a and  6 
as  follows:  1 


The  second  trajectory-descriptive  function  of  TPPR0P  is  calculat- 
ing the  virtual-mass  miniprobe  approach-trajectory  time  histories 
and  impact  data.  This  is  always  done  for  the  conic  minimum-miss 
release  controls  and  also  for  the  virtual-mass  controls  whenever 
these  are  calculated.  The  propagation  flag*  IPR0P  is  simply 
set  to  2 and  the  heading  "Miniprobe  I Minimum-Miss  Approach 
Trajectory"  is  printed.  Then  with  IFIN2=2,  the  state 

/ T | t\T 

\— BR  I — iR  / produced  from  the  bus  acpual  virtual-mass  release 

state,  the  appropriate  minimum-miss  release  controls  (conic  or 
virtual-mass  as  the  case  may  be) , and  equation  (3)  is  integrated 
all  the  way  to  impact  by  VMP  with  its  print  flag  on  and  its  print 
increments  set  at  5 days  and  100  integration  steps.  In  this 
simple  manner  the  mxniprobe  approach  time  histories  are  provided. 
Finally,  the  impact  data  for  the  virtual -mass  ith  miniprobe  tra- 
jectory are  calculated  by  the  same  steps  as  for  the  conic  case 
except  that  the  actual  virtual— mass  miniprobe  impact  state  rather 
than  the  equivalent  conic  miniprobe  release  state  is  used  in  gen- 
erating the  osculating  conic  via  the  call  to  CAREL. 
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TPPR0P  Flow  Chart 
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Calculate  desired 
B-plane  pierce  point 
coordinates  of 
site  to  which  mini  probe 
1 was  targeted  for 
initial  control 
estimate 
(Call  DIMPCP) 


Calculate  desired 
B-plane  pierce  point 
coordinates  of  remaining 
two  sites  and  select 
that  set  nearest  pierce 
point  of  mini  probe  2 
(Call  DIMPCO) 


Calculate  desired 
B-plane  pierce  point 
coordinates  of  single 
remaining  site 
(Call  DIMPCP) 


Combine  B-plane 
data  and  target  site 
weighting  factors 
to  calculate  ith  and 
I'+  3rd  targeting, 
constraint  components 


By  trigonometric 
addition  formulas, 
calculate  sine  and 
cosine  of  roll  release 
angle  for  next  mini  probe 
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TPPR0P  Flow  Chart  (cont) 
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TPPR0P  Flow  Chart  (coricT) 


__J 

Generate  mini  probe 
impact  data  for 
output  from  TPPTRG 
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SUBROUTINE  TPRTRG  ' 

PURPOSE t TO  CONTROL  MIN1PR08E  TARGETING  PROCEDURE 
SUBROUTINES  SUPPORTED  * GIUANS 

SUBROUTINES  REQUIRED*  CAREL  CONCAR  DIMPCP  GAUSLS  HPOST 

MATIN  MAT  PY  PECEQ  SAOCS  SPHIMP 

STIMP  SUBSOL  TPPROP  VMP 


LOCAL  SYMBOLS#  ANPT  1 SEMI-MAJOR  AXIS  OF  BUS  NEAR-PLANET 

OSCULATING  CONIC  IN  KM 

AP  SEMI-MAJOR  AXIS  OF  ,PElj5TURBEO  BUS  NEAR- 

PLANET OSCULATING  CONIC  IN  KM 

ASC  SAME  AS  ANPT 

BDRP  PROJECTION  ON  RVP  OF  PLANETOCENTRIC 

ECLIPTIC  VECTOR  TO  IMPACT  PLANE  ASYMPTOTE 

PIERCE  POINT  OF  PERTURBED  NEAR-PLANET 

OSCULATING  CONIC  IN  KM 

BDRSC  PROJECTION  OF  RVSC  OF  PLANETOCENTRIC 

ECLIPTIC  VECTOR  TO  IMPACT  PLANE  ASYMPTOTE 
PIERCE  POINT  OF  BUS  NEAR-PLANET  OSCULATING 
CONIC  IN  KM 

BDTP  PROJECTION  ON  TVP  OF  PLANETOCENTRIC 

ECLIPTIC  VECTOR  TO  IMPACT  PLANE  ASYMPTOTE 
PIERCE  POINT  OF  PERTURBED  BUS  NEAR'-PLANET 
OSCULATING  CONIC  IN  KM 

BOTSC  PROJECTION  ON  TVSC  OF  PLANETOCENTRIC 

ECLIPTIC  VECTOR  TO  IMPACT  PLANE  ASYMPTOTE 
PIERCE  POINT  OF  BUS  NEAR-PLANET  OSCULATING 
CONIC  IN  KM 

BP  MAGNITUDE  OF  PLANETOCENTRIC  VECTOR  TO 

IMPACT  PLANE  ASYMPTOTE  FIERCE  POINT  OF 
PERTURBED  BUS  NEAR-PLANET  OSCULATING 
CONIC  IN  KM 

BSC  MAGNITUDE  OF  PLANETOCENTRIC  VECTOR  TO 

IMPACT  PLANE  ASYMPTOTE  PIERCE  POINT  OF 
BUS  NEAR-PLANET  OSCULATING  CONIC  IN  KM 

CSTISC  COSINE  OF  TRUE  ANAMOLY  ON  BUS  NEAR-PLANET 
OSCULATING  CONIC  AT  IMPACT 

CSTRSC  COSINE  OF  TRUE  ANAMOLY  ON  BUS  NEAR-PLANET 
OSCULATING  CONIC  AT  EQUIVALENT  RELEASE 
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STATE 

DBRTP  ARRAY  OF  OESIREO  RVSC-AXIS  IMPACT  PLANE 
COORDINATES  FOR  THREE  MINIPR08ES  TO 
ACHIEVE  RESPECTIVE  THREE  HI NIPR08E  TARGET 
SITES 

DBTTP  ARRAY  OF  DESIRED  TVSC-AXIS  IMPACT  PLANE 
COORDINATES  FOR  THREE  MINIPR09ES  TO 
ACHIEVE  RESPECTIVE  THREE  MINIPROBE  TARGET 
SITES 

DCSAF  ECLIPTIC  DECLINATION  OF  SPIN  AXIS  IN  DEG 
FOR  FIX EO  ORIENTATION  SPIN  AXIS  MODE 

OCSC  DECLINATION  IN  DEG  OF  BUS  IMPACT  SITE 

RELATIVE  TO  PLA NETOCENT RIC  PROSE-SPHERE 
FRAME 

DDCS  MINI  MUM-MISS  ECLIPTIC  DECLINATION  OF  SPIN 
AXIS  IN  OEG 

DELTPS  SAVED  VALUE  OF  TIME  DURATION  BETWEEN  VMP 
PRINTOUTS 

DELTUV  , COMMON  VELOCITY  INCREMENT  LENGTH  IN  KM/SEC 
USED  IN  U AND  V DIRECTIONS  IN 
APPROXIMATING  JACOBIAN  MATRIX  SENSM  BY 
DIVIDED  DIFFERENCES 

DJECA  JULIAN  DATE  EPOCH  1900  ON  BUS  NEAR-PLANET 
OSCULAT ING  .CONIC  AT  CLOSEST  APPROACH 

» I 

DJEISC  JULIAN  OATE  EPOCH  1900  ON  BUS  NEAR-PLANET 
OSCULATING  ICONIC  AT  IMPACT 

> I ’ 

DJENPS  JULIAN  OATE  EPOCH  1900  ON  BUS  NEAR-PLANET 
OSCULATING  CONIC  AT  EXTRAPOLATION  STATE 

DJEPOC  JULIAN  DATE  ON  JANUARY  .5  igoO  E*T. 

* 

DRAS  .-MINIMUM-MISS  ECLIPTIC  RIGHT  .ASCENSION 

OF  SPIN  AXIS  IN  DEG 

DRRA  MINIMUM-MISS  RELEASE  ROLL  ANGLE  OF 

MINIPROBE  1 IN  DEG 

DTPISC  TIME  INTERVAL  IN  SEC  FROM  PERIAPSIS  TO 

IMPACT  ON  BUS  NEAR-PLANET  OSCULATING  CONIC 

DTPNPS  TIME  INTERVAL  IN  SEC  FROM  PERIPSIS  TO 
EXTRAPOLATION  STATE  ON  BUS  NEAR-PLANET 
OSCULATING  CONIC 


545-15 


TPRTRG-C 


CONVERSION  FACTOR  FROM  DEGREES  TO  RADIANS 

> 1 i 

DTS  CONVERSION  FACTOR  FROM  DAYS  TO  SECONDS 

EMSMN  ■ SQUARE  OF  DISTANCE  BETWEEN  ASYMPTOTE 

PIERCE  POINTS  IN' IMPACT  PLANE  OF  BUS  AND 
NEAREST  MIN IPR08E  IN  KM**2 

EMS  SQUARE  OF  DISTANCE  BETWEEN  ASYMPTOTE 

PIERCE  POINTS  IN  IMPACT  PLANE  OF  BUS' ANO 
ITH  MINIPROBE  IN  KM**2 

ENPT  ECCENTRICITY  W BUS  NEAR-PLANET  OSCULATING 
CONIC 

EPSLS  UPPER  BOUND  ON  WEIGHTED  SUM  OF  CHANGE  IN 
LENGTH  OF  CONTROL  VECTOR'  AND  CHANGE  IN 
MAGNITUDE  OF  MISS  INDEX  USED  IN 
CONVERGENCE  CRITERION  FOR  LEAST-SQUARES 
ROUTINE 

FPASC  FLIGHT  PATH  ANGLE  OF  BUS  IN . DEG  AT  IMPACT 
ON  NEAR-PLANET  OSCULATING  CONIC 

ICLS  SAVED  VALUE  OF  VMP  FLAG  ICL  INDICATING 
WHETHER  OR  NOT  TRAJECTORY  HAS  REACHED 
CLOSEST  APPROACH 

ICL2S  SAVED  VALUE  OF  VMP  FLAG  ICL2  INDICATING 

WHETHER  OR  NOT  TRAJECTORY  IS  TO  BE  STOPPED 
AT  CLOSEST  APPROACH 

ICGNVi  CONVERGENCE  INDICATOR  FOR' LEAST-SQUARES 
ROUTINE 

=1  CONVERGENCE 
=2  NO  CONVERGENCE 

IEPHEMS  SAVED  VALUE  OF  VMP  FLAG  IEPHEM  INDICATING 
WHETHER  OR  NOT  0R8  IS  TO  BE  CALLED  BEFORE 
CALLING  EPHEM 

INPRS  SAVED  VALUE  OF  VMP  VARIABLE  INPR 

INDICATING  NUMBER  OF  INTEGRATION  STEPS 
) BETWEEN  PRINTOUTS 

-IPCSK  FLAG  INDICATING  THE  PLANETSCENTRIC  PROBE- 
SPHERE  COORDINATE  SYSTEM  OPTION 
=1  EQUATORIAL 
=2  SUB  SOLAR  ORBIT  PLANE 

IPRNTS  SAVEO  VALUE  OF  VMP  FLAG  IPRINT  INDICATING 

« WHETHER  OR  NOT  PRINTOUTS  JO  OCCUR 
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IPROPI  FLAG  INDICATING  WHETHER  CONIC  OR  VIRTUAL- 
MASS  MINIPROBE  PROPAGATION  IS  DESIRED 
=1  CONIC 

—2  virtual-mass 

isaop  mooifieo  spin  axis  orientation  mode  flag 

USED  IN  ORIENTING  SPIN  AXIS  FOR  GENERATING 
INITIAL  RELEASE  CONTROL  ESTIMATE 

ISPHS  SAVED  VALUE  OF  VMP  FLAG  ISPH  INDICATING 
WHETHER  OR  NOT  SPHERE  OF  INFLUENCE  HAS 
BEEN  PIERCED 

NCNTRL  NUMBER  OF  RELEASE  CONTROLS 

PNPT  SEMI-LATUS  RECTUM  OF  BUS  NEAR-PLANET 
OSCULATING  CONIC 

PPNPT  PLANETOCENTRIC  ECLIPTIC  UNIT  VECTOR  IN 

DIRECTION  OF  PERIAPSIS  OF  BUS  OSCULATING 
NEAR-PLANET  CONIC 

PSI  IMPACT  PLANE  CONSTRAINT  VECTOR 

QQNPT  PLANETOCENTRIC  ECLIPTIC  UNIT  VECTOR  LYING 
IN  PLANE  OF  NEAR-PLANET  OSCULATING  CONIC 
90  DEG  AOVANCED  FROM  PPNPT 

RASAF  ECLIPTIC  RIGHT  ASCENSION  OF  SPIN  AXIS  FOR 
FIXEO  ORIENTATION  SPIN  AXIS  MODE 

RASC  RIGHT  ASCENSION  OF  BUS  IMPACT  SITE  IN  DEG 
RELATIVE  TO  PLANETOCENTRIC  PROBE-SPHERE 
FRAME 

RCM  MAGNITUDE  OF  PLANETOCENTRIC  POSITION 

VECTOR  OF  BUS  AT  IMPACT  'IN  KM 

RPVEC  PLANETOCENTRIC  ECLIPTIC  UNIT  VECTOR  TO  BUS 
IMPACT  SITE 

RPVSS  PLANETOCENTRIC  SUBSOLAR  UNIT  VECTOR  TO  BUS 
IMPACT  POINT 

RSCNPS  PLANETOCENTRIC  ECLIPTIC  POSITION  VECTOR 
OF  BUS  EXTRAPOLATION  STATE  IN  KM 

RTD  CONVERSION  FACTOR  FROM  RADIANS  TO  DEGREES 

RVP  PLANETOCENTRIC  ECLIPTIC  UNIT  VECTOR  IN 

DIRECTION  Of  CROSS  PRODUCT  OF  ASYMPTOTE 
OF  NEAR-PLANET  OSCULATING  CONIC  FOR 
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PERTURBED  BUS  BY  ECLIPTIC  POLE  VECTOR 

RVSC  PLANETOCENTRIC  ECLIPTIC  UNIT  VECTOR  IN 
DIRECTION  OF  CROSS  PRODUCT  OF  ASYMPTOTE 
OF  NEAR-PANET  OSCULATING  CONIC  FOR  BUS 
BY  ECLIPTIC  POLE  VECTOR 

SENSM  JACOBIAN  SENSITIVITY  MATRIX  OF  BUS  NEAR- 
PLANET OSCULATING  CONIC  ASYMPTOTE 
PIERCE  POINT  COORDINATES  TO  VELOCITY 
INCREMENTS  AT  RELEASE  IN  THE  U AND  V 
DIRECTIONS 

SNTISC  SINE  OF  TRUE  ANAMOLY  ON  BUS  NEAR-PLANET 
OSCULATING  CONIC  AT  IMPACT 

SNTRSC  SINE  OF  TRUE  ANAMOLY  ON  BUS  NEAR-PLANET 
OSCULATING  CONIC  AT  EQUIVALENT  RELEASE 
STATE 

SPHERS  SAVED  VALUE  OF  RADIUS  OF  SOI  FOR  TARGET 
PLANET  IN  ASTRONOMICAL  UNITS 

SVP  PLANETOCENTRIC  ECLIPTIC  UNIT  VECTOR  IN 

DIRECTION  OF  ASYMPTOTE  OF  NEAR-PLANET 
OSCULATING  CONIC  OF  PERTURBED  BUS 

SVSC  PLANETOCENTRIC  ECLIPTIC • UNI T VECTOR  IN 
DIRECTION  OF  ASYMPTOTE  OF  NEAR-PLANET 
OSCULATING  CONIC  OF  BUS 

SO  MAXIMUM  PERMISSIBLE  LENGTH  OF  PSEUDO- 

INVERSE CONTROL  STEP 

TARGM  NEWTON-RAPHSON  MATRIX  FOR  TARGETING  BUS 
TO  NEAREST  MINIPROBE  TARGET  SITE 

TM3  CONSTANT  i.OE-03 

TM4  CONSTANT  l.OE-OA 

TM5  CONSTANT  i.QE-05 

TP20  CONSTANT  l.OE+20 

TP2  CONSTANT  i.QE*02 

TP4  CONSTANT  1. 0E+04 

TVP  CROSS  PRODUCT  OF  SVP  BY  RVP 

TVSC  CROSS  PROOUCT  OF  SVSC  BY  RVSC 
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UCNTRL  RELEASE  CONTROL  VECTOR 

UTPR  APPROXIMATE  VELOCITY  INCREMENT  I-N  U 

DIRECTION  AT  RELEASE  IN  KM/SEC  NECESSARY 
TO  TARGET  BUS  TO  NEAREST  MINIPROBE  TARGET 
SITE 

VCM  MAGNITUDE  OF  PL ANETOCENTRIC  VELOCITY  OF 

BUS  AT  IMPACT  IN  KM/SEC 

VSCNPS  PLANETOCENTRIC  ECLIPTIC  VELOCITY  VECTOR  OF 
BUS  EXTRAPOLATION  STATE  IN  KM/SEC 

VSCRPM  MAGNITUOE  OF  VELOCITY  OF  BUS  AT  EQUIVALENT 
CONIC  RELEASE  STATE  IN  KM/SEC 

VSCRPP  PLANETOCENTRIC  ECLIPTIC  VELOCITY  VECTOR 
AT  EQUIVALENT  CONIC  RELEASE  STATE  IN 
KM/SEC  USEO  IN  EVALUATING  SENSM 

VTANG  MINI  MUM -MISS  TANGENTIAL  VELOCITY  OF 

MINIPROBES  AT  RELEASE  IN  KM/SEC 

VT PR  APPROXIMATE  VELOCITY  INCREMENT  IN  V 

, DIRECTION  AT  RELEASE  IN  KM/SEC  NECESSARY 
TO  TARGET  BUS  TO  NEAREST  MINIPROBE  TARGET 
SITE 

WWNPT  PLANETOCENTRIC  ECLIPTIC  UNIT  VECTOR  IN 
DIRECTION  OF  ANGULAR  MOMENTUM  FOR  NEAR- 
PLANET BUS  OSCULATING  CONIC 

XSF  FINAL  HELIOCENTRIC  ECLIPTIC  BUS  STATE 

IN  KM  AND  KM/SEC  RETURNED  3Y  VMP  AS  THE 
FIRST  STATE  INSIDE  PROBE  SPHERE 

XSI  INITIAL  HELIOCENTRIC  ECLIPTIC  BUS  STATE  IN 

KM  AND  KM/SEC  PROPAGATED  TO  IMPACT  BY  VMP 

YM  FINAL  MINIMUM  VALUE  OF  MISS  INOEX 


COMMON 

COMPUTED/USED* 

ACTPP 

DTPRSC 

IMIN 

ISPH 

VSCRHA 

DCTP 
GMUP 
INPR 
RAT  P 

> 

OELTM 

ICL2 

IPRINT 

RSCRHA 

DEL  TP 
ICL 
I PR  OP 
RTPS 

DJERN 

IEPHEM 

ISAO 

SPHERE 

COMMON 

COMPUTEO* 

IFIN2 

IPCSP 

KHIT 

RPSP 

WFLS 

COMMON 

USED* 

AATTP 

CSDCSA 

ACKT 

CSRASA 

ADCTP 

OG 

ALNGTH 

DJEITP 

ARATP 
□ SI 
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FIVE 

FPATP 

IPCS 

KTAR 

KUR 

NINETY 

NTP 

ONE 

PMASS 

RIN 

RPS 

RSC  RPA 

RSCRPM 

RSI 

SNOCSA 

SNRASA 

TAR 

TM 

TOL 

TRANSF 

TWO 

ZERO 

VIM  TP 

VSCRPA 

VSI 

WGHTM 

545-20 


TPRTRG- 1 


TPRTRG  Analyses 

TPRTRG  is  the  executive  routine  directing  multiprobe  targeting. 

To  do  so  it  must  accomplish  four  basic  tasks : (1)  process  mini- 

probe targeting  input  data,  (2)  generate  initial  estimates  for 
the  release  controls,  (3)  apply  the  least-squares  routine,  GAUSLS, 
to  minimize  the  miniprobe  miss  index,  and  (4)  use  the  miniprobe 
propagating  routine,  TPPROP,  to  generate  minimum-miss  approach 
trajectories  and  impact  data.  Each  of  these  objectives,  as  well 
as  the  routine’s  printout,  is  discussed  in  the  following  para- 
graphs . 

The  processing  of  the  miniprobe  targeting  input  involves  three 
major  aspects.  First  an  equivalence  must  be  set  up  between  the 
multipurpose  targeting  variables  of  N0MINAL  and  the  mnemonic 
symbolism  of  TPRTRG.  Second,  a conic  miniprobe  release  state 
must  be  determined  that  is  equivalent  to  the  virtual-mass  release 
state  for  use  in  the  high-speed  conic  miniprobe  propagation  model. 
By  equivalent  we  mean  that  although  one  state  falls  on  a conic 
and  the  other  on  a virtual -mass  trajectory,  both  states  occur  at 
the  same  absolute  time  and  the  two  trajectories  are  tangent  at 
impact.  To  generate  the  equivalent  conic  release  state,  the  sub- 
routine VMP  is  called  to  propagate  the  bus  state  from  release  to 
impact.  Before  doing  this,  however,  the  VMP  trajectory  condition 
flags  are  stored  for  subsequent  restoration  after  exiting  TPRTRG. 
The  virtual-mass  impact  state  is  then  fit  with  an  osculating  conic 
by  a call  to  CAREL.  The  osculating  conic  is  then  propagated  back 
to  the  actual  release  time  via  calls  to  the  subroutines  HPOST  and 
CONCAR.  Using  this  conic  release  state,  a set  of  minimum-miss 
controls  for  the  conic  model  can  now  readily  be  determined.  The 
third  phase  of  processing  miniprobe  input  data,  namely  setting  up 
the  several  targeting  options,  is  next  begun.  First  the  coordinate 
transformation  matrix,  C,  from  the  planetocentric  inertial  ecliptic 
coordinates  to  the  Cartesian  frame  in  which  the  miniprobe  impact 
sites  are  specified  is  generated  by  a call  to  either  the  sub- 
routine SUBSOL  or  PECEQ,  depending  on  the  state  of  the  coordinate- 
system  flag  IPCSK.  The  spin  axis  orientation  mode  desired  is 
stored  in  the  flag  ISA0.  It  is  used  by  TPRTRG  in  devising  an 
initial  control  estimate  and  by  TPPR0P  in  all  miniprobe  propaga- 
tions. Finally,  the  desired  miniprobe  propagation  mode  is  stored 
in  the  flag  IPR0PI.  This  variable  is  used  solely  by  TPRTRG  in 
deciding  on  which  propagation  mode  to  request  from  TPPR0P  via  the 
common  flag  IPR0P . 
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TPRTRG  next  deals  with  the  problem  of  generating  an  initial  estimate 
of  the  control  vector.  First  consider  the  problem  of  estimating 
the  conic-model  minimum-miss  controls*  Initial  estimates  for  two 
of  the  controls  (the  spin  axis  orientation  angles)  depend  of  - 
course  on  the  spin  axis  orientation  mode.  In  three  of  the  four 
possible  modes,  the  inertial-ecliptic  declination  and  right  as- 
cension of  the  spin  axis  are  fixed  rather  than  free  controls. 

Hence  no  initial  estimates  for  them  need  be  provided*  In  the 
remaining  mode,  however,  both  of  these  controls  are  free,  and 
the  initial  estimates  provided  for  them  are  simply  those  that 
bring  the  spin  axis  into  coincidence  with  the  spacecraft  velocity 
vector  at  release*  This  orientation  was  chosen  for  the  initial 
estimate  since  it  produces  the  widest  distribution  of  miniprobe 
entry  sites  for  a given  combination  of  the  remaining  two  release 
controls.  Regardless  of  the  orientation  mode,  the  spin  axis 
pointing  direction  is  specified  throughout  miniprobe  targeting 
by  the  sines  and  cosines  of  its  ecliptic  declination  and  right 
ascension*  These  trigonometric  functions  are  always  calculated  by 
the  subroutine  SA0CS  from  the  appropriate  components  of  the  con- 
trol vector  and  the  spin  axis  orientation  flag.  Since  the  spin 
axis  pointing  direction  is  necessary  in  initially  estimating  the 
other  two  controls,  TPRTRG  must  call  SA0CS  to  obtain  the  above 
trigonometric  characterization* 

Initial  estimates  for  the  roll  release  angle,  <i>,  of  the  first 
probe  and  the  tangential  velocity  at  release,  v^,  can  then  be 

generated  by  merely  targeting  the  first  miniprobe  to  the  miniprobe 
target  site  nearest  the  impact  point  for  the  bus  on  the  trajectory 
existing  at  release*  First,  the  B-plane  pierce  point  of  the  bus 
is  calculated  by  calling  the  subroutine  STIMP  with  the  bus  impact 
state.  Then  the  desired  B-plane  pierce  point  corresponding  to 
each  of  the  three  miniprobe  target  sites  is  computed  through  a 
call  to  DIMPCP*  It  must  be  noted  that  this  calculation  is  only 
approximate  since  it  assumes  all  of  the  miniprobes  have  the  same 
and  impact  time  as  the  bus.  Nonetheless,  the  accuracy  is  more 
than  sufficient  for  engineering  purposes.  Next  the  pierce  points 
of  the  desired  miniprobe  impact  sites  are  compared  to  find  the 
one  nearest  that  of  the  bus.  The  release  velocity  increment  per- 
pendicular to  the  bus  spin  axis  that  would  target  the  first  mini- 
probe is  then  approximated  by  a single  Newton-Raphson  step.  Let 
B^*T,  B1*T»  an<*  denote  the  B-plane  pierce  point 

components  corresponding  to  the  bus  and  the  desired  miniprobe 
impact  sites,  respectively.  Define  a constraint  vector  as 
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/vT-  VT\ 
\vR-  V7 


(1> 


Let  H denote  a unit  vector  in  the  direction  of  the  spin  axis  of 
the  spacecraft.  Using  H_,  define  U and  _V  as 

U=Hxz/|(hxz||  (2) 

— — — ec  / 1 — -ec  J 1 

V = H X U (3) 


where  Z is  the  inertial  ecliptic  pole  vector.  Then  a conven- 
— ec 

ient  probe-release  Cartesian  frame  is  defined  by  the  triple  U-V- 
Let  Av.y  and  Au^  denote  the  components  of  the  release  velocity  n 

crement  in  the  tJ  and  V directions,  respectively. 

Then  the  control  vector  is  given  by 


X - 


(4) 


Let  J denote  the  Jacobian  matrix  of  £ with  respect  to  X|_  i.e., 


i « 1,2 
j - 1,2. 


(5) 


One  Newton-Raphson  step  then  approximates  the  targeting  control 
vector  as 


X - J"1  ±.  (6) 

TPRTRG  computes  the  Jacobian  matrix  by  divided  differencing. 

Let  vgR  represent  the  equivalent  conic  planetocentric  velocity 

of  the  bus  at  release.  Let  6 vpR  and  6yuER  denote  the  perturba- 
tions in  VgR  caused  by  a velocity  increment  of  magnitude  <5v  in 
the  U and  V directions,  respectively.  Then  clearly 


6 v = 6 vU 
U—BR  ~ 

(7) 

6 v = 6vV. 
V-BR  - 

(8) 
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Let  and  6^  be  the  right  ascension  and  declination  of  the  spin 

axis,  respectively.  By  expressing  the  definitions  of  U and  V in 
terms  of  these  angles,  equations  (7)  and  (8)  can  be  expressed  in 
the  planetocentic  ecliptic  frame  as 

5yVBR  = 6v  (sin  a,  -cos  a,  0)T  (9) 

T 

~ (cos  a sin  sin  a sin  *5,  “cos  6)  . (10) 


Let  r^R  be  the  equivalent  conic  planetocentric  position  of  the 

spacecraft  at  release.  Then  by  applying  the  subroutine  ST1MP 

/ \T 

consecutively  to  the  states  - ' r 

+ 6 


(•Sbe-  ^br  + Vbr)T  and  (; 


rBR*  -BR 


\T  , , 

yVgRl  , the  perturbed  state  vectors  <5^  and  <5^  can  be  gener- 
ated. TPRTRG  then  approximates  J as  \ Having 

approximated  Av^  and  Av^.,  the  roll  release*  angle  of  miniprobe  1 

and  the  tangential  velocity  at  release  are  readily  calculated 
from  the  formulae 


vT  = ^AVy2  + Avv2  (11) 

<t>  = tan”1  (AvvjAvu).  (12) 

It  must  be  noted  that  <p  represents  the  angle  the  velocity  incre- 
ment ,of  the  first  miniprobe  makes  with  the  U axis.  It  should 
not  be  confused  with  the  angle  between  the  first  probe  arm  and 
the  U direction,  which  is  tt/2  radians  less  than  <j>. 

Consider  next  the  initial  control  estimate  for  virtual-mass  mini- 
mum-miss controls.  TPRTRG  simply  uses  the  minimum-miss  conic  " 
control  for  this  estimate.  Hence,  irrespective  of  the  desired 
miniprobe  propagation  mode  indicated  by  IPR0PI,  the  conic  con- 
trols are  first  found.  Then  if  only  the  conic  controls  are  de- 
sired, a return  is  made  to  the  calling  program;  otherwise  the 
least-squares  algorithm  is  repeated  with  virtual-mass  rather 
than  conic  miniprobe  propagation. 

The  third  basic  task  of  TPRTRG,  namely  using  the  subroutine  GAUSLS 
to  calculate  the  minimum-miss  index  controls,  requires  some  ex- 
planation. First  the  four  miniprobe  release  controls  must  be 
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identified*  They  are  simply  <f>,  vT>  and  aH  (see  Fig*  1).  Thus 
if  u denotes  the  control  vector,  then 


u - 


(13) 


By  measuring  the  angles  <j>,  and  6^  in  radians  and  the  velocity 

in  decameters /s  all  of  the  components  of  _u  fall  xn  the  range 

from  0*1  to  10  as  required  by  the  subroutine  GAUSLS  when  Jacobian 
matrices  are  generated  by  a uniform  control  perturbation  of  10~5 . 


Let  • T^J  and  ♦ R denote  the  actual  B-plane  pierce 

point  coordinates  of  the  ith  miniprobe  when  the  release  control 
_u  is  applied.  Let  ^ and  pL  • R^j  represent  the  de- 

sired  B-plane  pierce  point  coordinates  of  the  ith  miniprobe 
based  on  the  actual  _S  and  the  energy  of  that  miniprobe.  The  six 
components  of  the  constraint  vector  are  then  given  as 


pi+3 


[fi  • t4a  - (B1  • Ti)D] 

[K  • h)A  - Ci  • \)A] 


(14) 

i = 1,2,3. 

(15) 


Here  the  CL 's  are  weighting  factors  input  by  the  user  to  indicate 

the  relative  importance  of  achieving  nearby  impacts  at  the  various 
miniprobe  target  sites.  The  subroutine  TPPR0P  is  always  used  to 
calculate  given  u for  whichever  miniprobe  propagation  mode  is 
specified  by  the  flag  IRP0P.  Thus  GAUSLS  can  be  called  to  carry 
out  the  entire  least-squares  process  of  minimizing  the  miss— index 
T 

y = II  for  either  propagation  mode  once  the  initial  control 
estimate  uo  and  the  corresponding  constraint  £ (uo)  have  been 
calculated.  If  the  least-squares  routine  should  fail  to  converge, 
the  universal  N0MNAL  trouble  flag,  KWITT,  is  set  to  1 to  cause 
execution  to  terminate  on  return  to  the  main  program,  and  a re- 
turn is  made  to  the  calling  program,  GIDANS. 
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The  final  responsibility  of  TPRTRG  is  to  calculate  the  n-body 
miniprobe  approach  trajectory  time  histories  and  impact  data  for 
the  bus  and  the  miniprobes  using  the  minimum-miss  release  con- 
trols corresponding  to  both  the  conic  and  virtual-mass  propaga- 
tion modes.  The  impact  data  for  the  bus  are  calculated  in  TPRTRG 
itself.  Let  and  denote  the  impact  position  vectors  in 

the  planetocentric  ecliptic  and  probe-impact  coordinate  frames. 
The  is  calculated  from  which  is  available  from  the 

virtual-mass  propagation,  as 

PBi  - CrBI.  (16) 

The  right  ascension,  a , and  declination,  6 , of  the  bus  impact 

D D 

site  relative  to  the  probe-impact  frame  are  then  readily  calcu- 
lated as 


“b  tan  1 (PEl)2  j (PBl)  x 
h " Sln~'  (°BI 


The  flightpath  angle,  y,,t 


tan"-1 


e r. 


sin  0 


(17) 

(18) 
(19) 


where  r^-  is  the  radius  of  the  impact  sphere,  e is  the  eccentricity, 

p is  the  semilatus  rectum  and  0^.  is  the  true  anomaly  at  impact. 

All  of  these  conic  dements  refer  to  osculating  hyperbola  at  im- 
pact. The  magnitude  of  the  bus  impact  velocity  is  calculated  as 

vbi'  fiF/h  ' x/*) ' <20) 


where  a is  the  semimajor  axis  of  the  osculating  conic,  and  u is 
the  gravitational  constant  of  the  planet. 


For  the  miniprobes,  both  the  impact  data  and  the  virtual-mass 
approach  trajectory  time  histories  are  generated  by  a call  to 
TPPR0P  with  the  least-squares  status  flag  IFIN2  set  to  indicate 
that  the  miss -minimi zing  procedure  is  complete.  When  the  least- 
squares  algorithm  is  performed  using  conic  miniprobe  propagation, 
impact  data  are  computed  for  both  the  conic  and  virtual-mass  models. 
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The  printout  from  TPRTKG  is  designed  'to  meet  two  objectives:  (X) 

to  completely  describe  the  minimum-miss  miniprobe  approach  tra- 
jectories, and  (2)  to  reveal  any  errors  in  the  minimum-miss  re- 
lease controls  caused  by  improper  use  of  the  program.  To  iden- 
tify the  type  of  nolinear  guidance  event,  the  heading  "Miniprobe 
Targeting  Event11  is  printed  first  of  all.  Next  pertient  data  at 
release  are  printed.  These  consist  of  the  planetocentric  bus 
impact  state  and  the  equivalent  conic  release  state  as  previously 
described.  Then  the  printout  from  the  miss -minimi zing  algorithm 
GAUSLS  is  provided'  in  its  entirety*  After  the  minimum-miss  re- 
lease controls  are  found,  they  are  printed  out  with  a phrase 
indicating  whether  they  correspond  to  the  conic  or  virtual-mass 
model.  If  conic  miniprobe  propagation  was  used  for  the  miss 
minimization,  the  conic-model  probe  impact  data  are  printed. 

These  include  right  ascension  and  declination  of  the  impact 
point,  together  with  time,  velocity,  and  flightpath  angle  at 
impact  for  each  of  the  minip robes  as  well  as  the  bus  (numbered 
as  probe  number  0 in  the  printout) . The  bus  data  provided  here 
are  actually  based  on  the  initial  virtual -mass  propagation  from 
the  release  state.  The  miniprobe  data  also  contain  the  angles  of 
attach,  assuming  the  minprobe  longitudinal  body  axes  reamin  paral- 
lel to-  the  spacecraft  spin  axis  at  release.  Next  the  time  his- 
tories of  the  miniprobe  minimum-miss  approach  trajectories  are 
printed  in  succession  from  the  subroutine  VHP  with  print  inter- 
vals of  5 days  and  100  integration  steps.  Finally,  the  virtual- 
mass  model  probe  impact  information  is  printed.  It  is -identical 
in  content  to  the  conic  impact  data  except  that  the  information 
is  now  based  oil  virtual-mass  propagation  from  the  release  state. 

TPRTRG  Flow  Chart 
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TPRTRG  Flow  Chart  (cont) 
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TPRTRG  Flow  Chart  (cont) 
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TPRTRG  Flow  Chart  (cont) 


545-30 


TPRTRG-11 


TPR-TRG  Flow  Chart  (cont) 
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TPRTRG  Flow  Chart  (cont) 
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TPRTRG  Flow  Chart  (concl) 


'Print  virtual  mass  time  histories 
of  mini  probe  approach  trajectories, 
for  minimum-miss  virtual -mass 
release  controls 
(From  VMP) 


I 


Print  virtual -mass  model  mini  probe 
and  bus  impact  data  for  mini mum- 
miss  virtual -mass  release  controls/ 


Restore  previous 
VMP  trajectory 
condition  flags 


( RETURN  ) 
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SUBROUTINE  TRAKM 

PURPOSE*  THE  OBSERVATIONS  AND  OBSERVATION  MATRIX  FOR  A GIVEN  TYPE 
OF  MEASUREMENT  IS  COMPUTED  BY  THIS  ROUTINE 

CALLING  SEQUENCES  CALL  TRAKM  (HECV,  ITRK  , NR,  I OBS  , VEC TOR) 

ARGUMENT:  HECV  I POSITION  AND  VELOCITY  OF  SPACECRAFT  AT  TIME 

OF  MEASUREMENT 

I03S  I CODE  WHICH  SPECIFIES  IF  MEASUREMENT  OR 
OBSERVATION  MATRIX  IS  TO  BE  COMPUTED 

ITRK  I C ODE  WHICH  SPECIFIES  MEASUREMENT  TYPE 
(CALLED  MMCOOE  ELSEWHERE  IN  PROGRAM) 

NR  0 NUMBER  OF  ROWS  IN  THE  OBSERVATION  MATRIX 

VECTOR  0 ACTUAL  MEASUREMENT 

SUBROUTINES  SUPPORTED*  ERRANN  PROBE 

SUBROUTINES  REQUIRED  * EPHEM  ORB  STAPRL  TARPRL 

LOCAL  SYMBOLS*  ADI  INTERMEDIATE  VARIABLE 

AD2  INTERMEDIATE  VARIABLE 

AD3  INTERMEDIATE  VARIABLE 

A INTERMEDIATE  VARIABLE 

AL  ALTITUOE 

ALAT  LATITUDE 

ALON  LONGITUOE 

ALRAD  INTERMEDIATE  VARIABLE 

A1  -PARTIAL  OF  RANGE  WITH  RESPECT  TO  X 

A2  PARTIAL  OF  RANGE  WITH  RESPECT  TO  Y 

A3  PARTIAL  OF  RANGE  WITH  RESPECT  TO  Z 

Bi  PARTIAL  OF  RANGE-RATE  WITH  RESPECT  TO  X 

B2  PARTIAL  OF  RANGE-RATE  WITH  RESPECT  TO  Y 

B3  PARTIAL  OF  RANGE-RATE  WITH  RESPECT  TO  Z 

CE  COSINE  OF  OBLIQUITY  OF  EARTH 
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COAL 

COSA 

COSAZ 

COSRA 

CP 

DA  DP 
DBQP 
DD 

OENQM 

D 

EK 

GECS 

GELS 
HECE 
HE  CP 
IA 
ICO 

IC 

IENO 

IR 

NA 

NC 


COSINE  OF  STAR-PLANET  ANGLE 

INTERHEDIATE  VARIABLE 

COSINE  AZIMUTH 

COSINE  RIGHT  ASCENSION 

COSINE  OF  LONGITUDE  ♦ CONSTANT 

PARTIALS  OF  STAR-PLANET  ANGLE  WITH  RESPECT 
TO  VEHICLE  POSITION  AND  VELOCITY 

PARTIALS  OF  APPARENT  PLANET  DIAMETER  WITH 
RESPECT  TO  VEHICLE  POSITION  AND  VELOCITY 

INTERHEDIATE  VARIABLE 

INTERMEDIATE  VARIABLE 

INTERMEDIATE  TIME 

RANGE-RATE  PARTIAL  WITH  RESPECT  TO  STATION 
LOCATION  ERRORS 

GEOCENTRIC  EQUATORIAL  COORDINATES  OF 
STATION  _ 

GEOCENTRIC  ECLIPTIC  COORDINATES  OF  STATION 

COORDINATES  OF  EARTH 

COORDINATES  OF  TARGET  PLANET 

TRACKING  STATION  LOCATION  SELECTION  CODE 

CODE  CORRESPONDING  TO  TRACKING  STATION 
LOCATION  ERRORS 

COLUMN  NUMBER  IN  OBSERVATION  MATRIX 
PARTITION  WHERE  EK  IS  TO  BE  STORED 

VARIABLE  INDEX  VALUE 

STAR-PLANET  ANGLE  INDEX  INCREMENT  VALUE 

STAR-PLANET  ANGLE  INOEX  LOWER  LIMIT 
=1  FOR  3 STAR-PLANET  ANGLES 
=ITRK-iO  FOR  SINGLE  STAR-PLANET  ANGLES 

STAR-PLANEr  ANGLE  INDEX  UPPER  LIMIT 
=3  FOR  3 STAR-PLANET  ANGLES 
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= ITRK~10  FOR  SINGLE  STAR-PLANET  ANGLES 
PAR  PARTIAL S RETURNED  FROM  SUBROUTINE  T A RPR  L 

PAT1  INTERMEDIATE  VARIABLE 

PAT2  INTERMEDIATE  VARIABLE 

PA  PART IAL  S 

PZ,  INTERMEDIATE  VARIABLE 

RA  RIGHT  ASCENSION 

RADNTP  RADIUS  OF  TARGET  PLANET 

RAS  INTERMEDIATE  VARIABLE 

RHOP  INTERMEDIATE  VECTOR 

RRATE  RANGE-RATE 

R1  RANGE 

R2  SQUARE  OF  RANGE 

SA  PART IAL S OF  STAR-PLANET ' ANGLES  WITH 

RESPECT  TO  VEHICLE  POSITION 

SE  SINE  OF  03LIQUITY  OF  EARTH 

SI AL  SINE  OF  STAR-PLANET  ANGLE 

SINAZ  SINE  AZIMUTH 

SIND  INTERMEDIATE  VARIABLE 

SINRA  SINE  RIGHT  ASCENSION 

SP  SINE  OF  LONGITUDE  + CONSTANT 

SUM  INTERMEDIATE  VARIABLE 

SUMi  INTERMEDIATE  VARIABLE 

VEC  INTERMEDIATE  VECTOR 

ZZ1  INTERMEDIATE  VARIABLE 

ZZ2  INTERMEDIATE  VARIABLE 


COMMON  COMPUTED/USED*  AAL  AM  H NO  T 
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XP 
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TRAKM  Analysis 

The  linearized  observation  equation  can  be  written  as 

y = Hx  + Mx  + Gu  + Lv  + Nw 
s 

where  y is  the  observable,  x is  the  spacecraft  state,  and  x , u, 

s 

v,  and  w are  solve-for,  dynamic  consider,  measurement  consider,  and 
ignore  parameter  vectors,  respectively.  The  function  of  subroutine 
TRAKM  is  to  compute  the  observation  matrix  partitions  H,  M,  G,  L, 
and  N,  which  indicate  the  sensitivity  of  the  observable  y to  changes 
in  x,  xg,  u,  v,  and  w,  respectively,  in  the  error  analysis /generalized 

covariance  analysis  program.  The  matrix  N is  computed  only  for  a 
generalized  covariance  analysis. 

Except  for  computation  of  the  ignore  parameter  observation  matrix 
partition  N,  TRAKM  is  equivalent  to  subroutine  TRAKS,  which  is  used 
in  the  simulation  program.  See  subroutine  TRAKS  for  further  an- 
alytical details  and  a flow  chart. 
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SUBROUTINE  TRAKS 

PURPOSE  * TO  COMPUTE  ALL  OBSERVATION  MATRIX  PARTITIONS  FOR  THE 

MEASUREMENT  TYPE  AND  TO  COMPUTE  THE  MEASUREMENT  ITSELF. 

CALLING  SEQUENCE*  CALL  TRAKS (HECV, ITRK, NR, I08S , VECTOR) 

ARGUMENT*  HECV  I POSITION  AND  VELOCITY  OF  SPACECRAFT  AT  TIME 

OF  MEASUREMENT 

IOBS  I CODE  WHICH  SPECIFIES  IF  MEASUREMENT  OR 
OBSERVATION  MATRIX  IS  TO  BE  COMPUTEO 

ITRK  I CODE  WHICH  SPECIFIES  MEASUREMENT  TYPE 
(CALLED  MMCOOE  ELSEWHERE  IN  PROGRAM) 

NR  0 NUMBER  OF  ROWS  IN  THE  OBSERVATION  MATRIX 

VECTOR  0 ACTUAL  MEASUREMENT 

SUBROUTINES  SUPPORTED*  SIMULL 

SUBROUTINES  REQUIRED*  EPHEM  ORB  STAPRL  TARPRL 

LOCAL  SYMBOLS*  ADI  INTERMEDIATE  VARIABLE 

ADZ  INTERMEDIATE  VARIABLE 

A03  INTERMEDIATE  VARIABLE 

A INTERMEDIATE  VARIABLE 

ALAT  LATITUDE 

ALON  LONGITUDE 

AL  ALTITUDE 

ALRAO  INTERMEDIATE  VARIABLE 

A1  PARTIAL  OF  RANGE  WITH  RESPECT  TO  X 

A2  PARTIAL  OF  RANGE  WITH  RESPECT  TO  Y 

A3  PARTIAL  OF  RANGE  WITH  RESPECT  TO  Z 

B1  PART'lAL  OF  RANGE-RATE  WITH  RESPECT  TO  X 

B2  PARTIAL  OF  RANGE-RATE  WITH  RESPECT  TO  Y 

B3  PARTIAL  OF  RANGE-RATE  WITH  RESPECT  TO  Z 

C£  COSINE  OF  OBLIQUITY  OF  EARTH 
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COAL 
COSA 
COSAZ 
CO  SR  A 
CP 

DADP 

DBDP 

DO 

DENOM 

0 

EK 

GECS 

GELS 

HECE 

HECP 

IA 

ICO 

IC 

IEND 

IR 

NA 

NC 


COSINE  OF  STAR-PLANET  ANGLE 
INTERMEDIATE  VARIABLE 
COSINE  AZIMUTH 
COSINE  RIGHT  ASCENSION 

COSINE  OF  LONGITUDE  + CONSTANT 

\ 

PARTIALS  OF  STAR-PLANET  ANGLE  WITH  RESPECT 
TO  VEHICLE  POSITION  AND  VELOCITY 

PARTIALS  OF  APPARENT  PLANET  DIAMETER  WITH 
RESPECT  TO  VEHICLE  POSITION  ANO  VELOCITY 

INTERMEDIATE  VARIABLE 

INTERMEDIATE  VARIABLE 

INTERMEDIATE  TIME 

RANGE-RATE  PARTIAL  WITH  RESPECT  TO  STATION 
LOCATION  ERRORS 

GEOCENTRIC  EQUATORIAL  COORDINATES  OF 
STATION 

GEOCENTRIC  ECLIPTIC  COORDINATES  OF  STATION 

COORDINATES  OF  EARTH 

COORDINATES  OF  TARGET  PLANET 

TRAGKING  STATION  LOCATION  SELECTION  CODE 

CODE  CORRESPONDING  TO  TRACKING  STATION 
LOCATION  ERRORS 

COLUMN  NUMBER  IN  OBSERVATION  MATRIX 
PARTITION  WHERE  EK  IS  TO  BE  STORED 

VARIABLE  INDEX  VALUE 

STAR-PLANET  ANGLE  INOEX  INCREMENT  VALUE 

STAR-PLANET  ANGLE  INDEX  LOWER  LIMIT 
=1  FOR  3 STAR-PLANET  ANGLES 
- IT RK-1Q  FOR  SINGLE  STAR-PLANET  ANGLES 

STAR-PLANET  ANGLE  INOEX  UPPER  LIMIT 
=3  FOR  3 STAR-PLANET  ANGLES 
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= IT  RK-1Q  FOR  SINGLE  STAR-PLANET  ANGLES 
PAR  PART  I AL S RETURNED  FROM  SUBROUTINE  TARPRL 

PA  Tl  INTERMEDIATE  VARIABLE 

PAT2  INTERMEOIAre  VARIABLE 

PA  PART  I AL  S 

P2  INTERMEDIATE  VARIABLE 

RA  RIGHT  ASCENSION 

RAONTP  RADIUS  OF  TARGET  PLANET 

RAS  INTERMEDIATE  VARIABLE 

RRATE  RANGE-RATE 

R1  RANGE 

R2  SQUARE  OF  RANGE 

SA  PARTIAL  S OF  STAR-PLANET  ANGLES  WITH 

RESPECT  TO  VEHICLE  POSITION 

SE  SINE  OF  OBLIQUITY  OF  EARTH 

SI  AL  SINE  OF  STAR-PLANET  ANGLE 

SINA2  SINE  AZIMUTH 

SIND  INTERMEDIATE  VARIABLE 

SI NR A SINE  RIGHT  ASCENSION 

SP  • SINE  OF  LONGITUOE  + CONSTANT 

SUM  INTERMEDIATE  VARIABLE 

SUMi  INTERMEDIATE  VARIABLE 

VEC  INTERMEDIATE  VECTOR 

111  INTERMEDIATE  VARIABLE 

112  INTERMEDIATE  VARIABLE 


JO MM  ON  COMPUTED /USED  8 AAL  AM  H NO  XP 
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TEAKS  Analysis 


Subroutine  TRAKS  performs  two  functions  in  the  simulation  mode.  The  first 
function,  which  corresponds  to  I0BS  - 0,  is  to  compute  all  observation 
matrix  partitions  for  the  measurement  type  indicated  by  ITRK.  The  second 
function,  which  corresponds  to  I0BS  ^,0,  is  to  compute  the  measurement 
itself.  If  I0BS  = 1,  TRAKS  computes  the  measurement  corresponding  to  the 
most  recent  nominal  spacecraft  state.  If  I0BS  = 2,  TRAKS  computes  the 
measurement  corresponding  to  the  actual  spacecraft  state,  and,  if  the 
measurement  is  a range  or  rang«-rate  measurement,  to  the  actual  tracking 
station  locations.  The  number  of  rows,  NR,  in  the  measurement  and  the 
observation  matrix  partitions  ] s also  computed. 

A general  measurement  has  form 

y"  = ~Y  ( X* , ^ , t ) 

•where  X is  the  spacecraft  pof ition/velocity  state  at  time  t and  "p"  is 
a vector  of  parameters.  This  equation  can  be  linearized  about  nominal  if 
and  p to  obtain 


■ (fl)  " * (t?)"  ,r 

where  ( )*  indicates  matrices  are  evaluated  at  the  nominal  condition. 

This  perturbation  equation  can  be  rewritten  as 

~ H<$X  + M 6k  + G 5 u + L 6 
s 


is  distributed  among  the  M,  G,  and  L 

partitions  to  correspond  to  the  partition  of  the  parameter  vector  <5pf  into 

solve- for  parameters  <5lc  , dynamic  consider  parameters  , and  measurement 

v s 

consider  parameters  <5v, 

In  the  remainder  of  this  section  the  measurement  equation  and  all  partial 
derivatives  required  to  construct  the  H,  M,  G,  and  L observation  matrix 
partitions  will  be  summarized  for  each  measurement  type. 

A.  Ranee  measurement  P . 

\ 

A range  measurement  has  form 
P*  0)  ( X,  R,  0,  0,  t) 

where  R,  0,  and  0 are  the  radius,  latitude,  and  longitude  of  the  relevant 
tracking  station. 
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More  explicitly, 

[<x-xE- 

where  X,  Y,  Z « 


X )2  + (Y  - Y - Y )2  + (Z  - Z 
S E S E 


% 


inertial  position  components  of  spacecraft 
inertial  position  components  of  Earth 

station  position  components  relative  to  Earth. 


X , Y , and  Z are  related  to  R,  9,  and  0 as  follows: 

s s s 

X^  = R cos  9 cos  G 

Yg  = R cos  G cos  € sin  G + R sin  9 sin  € 

Z * -R  cos  9 sin  € sin  G + R sin  9 cos  € 

S 

where  6 is  the  obliquity  of  the  Earth,  and 

G = 0 + GHA 

where  GHfi  is  the  Greenwich  hour  angle  at  time  t . 

Partials  of  p with  respect  to  spacecraft  state  are  given  by 


dp 

dx 

1 

X™ 

1 

a 

-•IQ. 

4 

3p 

3X 

= 0 

dP 

_ 

I (Y  - Yw  - Y ) 

dp 

= 0 

3 Y 

P E S 

3 Y 

It 

dZ 

- 

P <Z  - ZE  * V 

- 

3P 
3 Z 

= 0 

Partials 

of 

P with  respect 

to  R, 

G , and 

0 

are  given 

££ 

ts 

±£-  . 

3p 

eYs 

dp 

dh 

9R 

axg  3r 

S 

3 R 

+ 

V 

3 R 

It 

■e 

3p  3xg 

9xs  ’ ~ + 

<?P 

*Ys 

3 P 

,azs 

d 9 

aYs 

« ■ 1 1 
ae 

+ 1 

~s' 

d 9 

It 

KX 

dP  3Xg 

aYs 

dP 

azs 

30 

>■  ■■  1 # ^ 

3Xg  30 

dYs 

3 0 

4* 

~s' 

30 
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where 


dp 

dX„ 


dP 

dx 


dp 

dY„ 


d£ 

dY 


dP 

dz_ 


dp 

dZ 


and  the  negatives  of  the  partials  of  Xg,  Yg,  and  Zg  with  respect  to 
R,  0,  and  0 are  summarized  in  the  subroutine  STAPRL  analysis. 

# * 

B,  Range-rate  measurement  /)  . 

A range- rate  measurement  has  form 

P = P ( x,  r,  e,  0,  t) 

t 

where  all  arguments  have  been  defined  previously.  More  explicitly, 
n = Px  + Py  Py  + P_z 


where 


px  - X - xE  - Xg 


py  - Y ' YE  - YS 


= Z - ZE  * ZS 


Px  = X * \ ' XS 


p = Y - Y. 

y 


E YS 


^z  = 2 “ ZE  - ZS 


X , Ye,  and  Zc  are  related  to  R,  9,  and  0 as  follows: 
b b b 

X = - R cos  0 sin  G 

S 

Y = U)  R/  cos  0 cos  € cos  G 
b 

Z - -WE  cos  9 sin  € cos  G 
S 

where  (j  is  the  rotational  rate  of  the  Earth. 

a 

Partials  of  p with  respect  to  spacecraft  state  are  given  by 


dP 

Px 

PxP 

dP_ 

Px 

0X 

p 

P2 

d x 

P 

= 

Py 

PyP 

dP 

. & 

dY 

P 

' P2 

dY 

P 

dp 

Pz 

PZP 

d± 

dz- 

P 

P2 

dz 

p 
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The  partial  of  p with  respect  to  R is  given  by 

dp  m d£_  £fs  + _dP.  + dp_ 


0R  $Xe  0R 

O 


dYs  d r 


3zg  dR 


d P + d P a*s  + dP  c^s 

•a^g  ' aR  a2  * e* 


where 


and 


dP 

_ap 

dxs  ' 

dx 

- 

dx 

s 

0x 

axg  aR 


etc. 


The  negatives  of  the  partials  of  Xg,  Yg,  Zg,  Xg,  Yg,  and  Zg  with  respect 

to  R,  6,  and  0 are  summarized  in  the  subroutine 'STAPRL  analysis.  Partials 
of  p with  respect  to  9 and  0 are  treated  similarly. 

C«  Star- planet  angle  measurement  C£  „ 

A star-planet  angle  measurement  has  form  Ct 

Ct-a  ( X,  a,  e,  i,  Q , CO  , M) 

where  a,  e,  i,  j2  , , and  M are  the  standard  set  of  target  planet 

orbital  elements, 

U — 

If  we  _define  p *=  (Px>  Py>P  z)  to  be  the  position  of  the  target  planet 

relative  to  the  spacecraft  and  (u,  v,  w)  to  be  the  direction  cosines  of  the 
relevant  star,  then 


a = 


cos 


-1 


Li(upx  + »/)  + »P  ) 


where 


P = X - X,  p = Y - Y,  p = Z -.z, 
x p y p z p 

and  (Xp,  Yp,  Z^)  represent  the  position  coordinates  of  the  target  planet. 
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Partials  of 

a with 

respect  to  spacecraft  state  are 

da  m 

1 

(JL 

Px  cosa  \ 

da 

dx 

sin  a 

\ P 

pz  ) 

di 

da 

1 

(*. 

Pv  COS  a ^ 

da 

d y 

sin  ot 

\ P 

p 2 J 

a? 

da 

\ 

(JL 

P cos  a \ 

da 

dz 

8 In  CL 

\ P 

P2  ' 

dz 

« 0 


= 0 


= 0 


where 


sin  o < - + £l  - cos^  d J 


The  partial  of  a with  respect  to  target  planet  semi-major  axis  is  given 
by 


da 
d a 


where 


da 

dx 


da 

dx  d a 

p 

da 

’ ~dl 


da 


da 

dY 


£Ze  + ,£fp 

d&  dz_  d a 


da 
d y 


p 

da 

dz 


da 
d z 


and  partials  of  X^,  Y , and  with  respect  to  semi-major  axis  are 

summarized  in  the  subroutine  TASPRL  analysis.  Partials  of  Of  with  respect 
to  X , Y , and  Z do  not  appear  xn  the  above  expression  since  they  are 

r r r 

all  zero.  Partials  of  Qt  with  respect  to  the  remaining  target  planet 
orbital  elements  are  treated  similarly. 

-N* 

D«  Apparent  planet  diameter  measurement  j8  , 

An  apparent  planet  diameter  measurement  has  form 
£ « /?(  X,  a,  e,  i,  Q,  U , M) 

where  all  arguments  have  been  defined  previously. 

Defining  P 35  p^>  p to  be  the  position  of  the  target  planet  relative 

to  the  spacecraft  and  R^  to  be  the  radius  of  the  target  planet,  the  apparent 
planet  diameter  can  then  be  written  as 

ft  ~ 2 sin~ 


--1  &) 
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Partials  of  P with  respect  to  spacecraft  state  are  given  by 


d£  m 

2 R p 

p X 

dp  _ 

0 

dx 

P2 

V - 82  ] 

P j 

! h 

dx 

dP 

2\py 

dp 

n 

dY 

p2 

r 9 2 ** 

[0 

\ k 

dY 

u 

dp 

2 KP^ 

dp  _ 

0 

dz 

p2 

r p2  - r 2 1 
L p J 

1 % 

dz 

The  partial  of  with  respect  to 

by 

target  planet  semi-major  axis 

dp_  = 

dP 

. + 

dp 

ayp  + 

dp  azp 

d a 

dx 

p 

da 

' 

da 

d Zp  ’ £a 

where  Qj3 

.§1  . . 

dJL  = 

. M 

d_p  = 

dp 

dx 

P 

dx  dY 

p 

d y 

dz 

P 

dz 

and  partials  of  X , and  with  respect  to  semi-major  axis  are 

summarized  in  the  subroutine  TARPRL  analysis. 

• ♦ * 

Partials  of  p with  respect  to  X Y , and  Z„  do  not  appear  in  the  above 
expression  since  they  are  all  zero:  Partials  of  ft  with  respect  to  the 

remaining  target  planet  orbital  elements  are  treated  similarly. 
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TRAKS  Flow  Chart 


Si 


TRAKS-8 


TRAKS-9 


Compute  nominal  altitude,  latitude,  and 
longitude  of  the  IA-th  tracking  station. 


I0BS  f 2 ? 


Compute  actual  altitude,  latitude,  and 
longitude  of  the  IA-th  tracking  station. 


Compute  geocentric  equatorial  components 
of  tracking  station  position  and  velocity 
relative  to  the  center  of  the  Earth. 


Compute  geocentric  ecliptic  components 
<&f  tracking  station  position  and  velocity 
relative  to  the  Earth. 


Compute  spacecraft  position,  velocity, 
range  p , and  range-rate  p relative 
to  IA-th  tracking  station. 


I0BS  = 0 ? 


ITRR  odd? 


Set  Y 
NR  = 2 


RETURN 


TRAKS-10 


• 

Compute  partials  of  P with  respect 
to  X for  the  XA-th  station  and 
insert  m H matrix. 

1 

/ Are  any  station 
\ in  5xg  or  & v 

location  errors 

YES 

i 

Call  STAPRL  to  compute  partials  of 
station  position,  and  velocity  components 

with  respect  to  station  radius  R , 
latitude  9 , and  longitude  0 . 

* 

K 

= 1 ^PK 

Is  <JpR  in  i 

5xs  or  ^ 

YES 

- \ 

f 

Compute  partial  of 
^PK  and  insert  ii 

column  of  the  M 

p ' with  respect  to 
a the  appropriate 

or  L matrix. 

K > 3 ? 


ITEK  > 4 ? 


K = K + 1 


B 
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ITEfC  >4  ? 


Is  range  bias  6p 
in  5x_  or  Sv  ? 


Compute  partial  of  p with  respect 
to  6 p and  insert  in  the  appropriate 
column  of  the  M or  L matrix. 


RETURN 


Define  do  loop  parameters 
for  three  simultaneous  star- 
planet  angle  measurements: 
NA=1,  NC=3,  NR=3 


Compute  target  planet  position  and 
velocity  coordinates  and  range 
relative  to  the  spacecraft. 


m 
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TRAKS-15 


b a , K=1 

be  , K=2 
<5  i , K=3 

b Q , K«4 
Su  , K*5 


TEANS-A 


SUBROUTINE  TRANS 

PURPOSES  TO  PERFORM  ONE  OF  THE  FOLLOWING  THREE  OPTIONS. 

1.  CONVERT  FROM  GEOCENTRIC  EQUATORIAL  RECTANG- 
ULAR COORDINATES  TO  GEOCENTRIC  ELIPTIC 
COORDINATES 

2.  CONVERT  FROM  GEOCENTRIC  EQUATORIAL  COORD- 
INATES TO  HELIOCENTRIC  ECLIPTIC  COORDINATES 

3.  CONVERT  FROM  GEOCENTRIC  ECLIPTIC  COORD- 
INATES TO  HELIOCENTRIC  ECLIPTIC  COORDINATES 

CALLING  SEQUENCE > CALL  TRANSaCODE » X, Y,Z, VX, VY , VZ,XE,YE ,ZE, VXE, 

VYE, VZE,EPS, IC0QE2) 

ARGUMENTS  EPS  I OBLIQUITY  OF  EARTH 

ICODE  I AN  INTERNAL  CODE  THAT  DETERMINES  IF  OPTION 
i OR  ? ABOVE  WILL  BE  EXERCISED 

IC0DE2  I AN  INTERNAL  CODE  THAT  DETERMINES  IF  OPTION 
3 ABOVE  IS  TO  BE  EXERCISED 

VX  I/O  X-VELQCITY  COMPONENT  OF  THE  VEHICLE 

VXE  I X-VELOCITY  COMPONENT  OF  EARTH  IN 

HELIOCENTRIC  ECLIPTIC  COORDINATES 

VY  I/O  Y-VELOCITY  COMPONENT  QF  THE  VEHICLE 

VYE  I Y-VELQCITY  COMPONENT  OF  EARTH 

VZ  I/O  Z-VELOCITY  COMPONENT  OF  THE  VEHICLE 

VZE  I Z-VELOCITY  COMPONENT  OF  EARTH 

X I/O  X-POSITION  COMPONENT  OF  THE  VEHICLE 

XE  I X-POSITION  COMPONENT  OF  THE  EARTH 

IN  HELIOCENTRIC  ECLIPTIC  COORDINATES 

Y I/O  Y-POSITION  COMPONENT  OF  THE  VEHICLE 

YE  I Y-POSITION  COMPONENT  OF  THE  EARTH 

Z I/O  Z-POSITION  COMPONENT  OF  THE  VEHICLE 

ZE  I Z— jPOSITXON  COMPONENT  OF  THE  EARTH 

SUBROUTINES  SUPPORTED*  DATA  DATAS 

LOCAL  SYMBOLS*  CE  COSINE  OF  OBLIQUITY  OF  EARTH 

DUM  INTERMEDIATE  VARIABLE 
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SE  SINE  OF  OBLIQUITY  OF  EARTH 
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TRANS  Analysis 


Subroutine  TRANS  transforms  the  position  and  velocity  components  of  the 
spacecraft  from  one  coordinate  system  to  another.  The  three  options 
available  with  this  subroutine  are  summarized  below. 

1)  Convert  from  geocentric  equatorial  coordinates  to  geocentric 
ecliptic  coordinates  using  the  following  equations: 

X = X 

Y = Y Cos  € + Z Sin  £ 

Z = -Y  Sin€+  Z Cos  e 
• • 

X - X 

y = Y Cos  e+  Z.Sin  € 

Z = -Y  Sine  + Z Cos  e 

2)  Convert  from  geocentric  equatorial  coordinates  to  heliocentric 
ecliptic  coordinates.  The  same  procedure  as  above  is  used  to 
convert  from  geocentric  equatorial  to  geocentric  ecliptic.  Then 
translate  according  to  the  following  equations1 

X = X + X„  ' X = X + X„ 

« # ♦ # jii 

Y “ Y + Y„  Y = Y + Y„ 

£■  « . . Js 

Z = Z+Z_,  Z»Z+Zp 

S E 

3)  Convert  from  geocentric  ecliptic  coordinates  to  heliocentric 
ecliptic  coordinates  using  the  following  equations: 

• • • 

X = X + x_ 

* * * 

Y » Y + Y 

* • • & 

Z = Z + Z£ 


X = X + XE 
Y - Y + Yg 

2 - 2 + zE 
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SUBROUTINE  TRAP AR 

PURPOSES  TO  COMPUTE  THE  FOLLOWING  SET  OF  NAVIGATION  PARAMETERS 
— FLIGHT  PATH  ANGLE,  ANGLE  BETWEEN  RELATIVE  VEL$$if& 

AND  PLANE  OF  THE  SKY,  GEOCENTRIC  DECLINATION,  E§RTM 
SPACECRAFT/TARGET  PLANET  ANGLE,  ANTENNA  AXIS/LX, MS 
SUN  ANGLE,  AND  SPACECRAFT  OCCULTATION  RATIOS  FQR  S&N? 
MOON,  AND  PLANETS. 

CALLING  SEQUENCES  CALL  TRAPAR 

SUBROUTINES  SUPPORTED*  PRINT  PRINT4  SETVEVS  PRINT3  SETEV.N 

SUBROUTINES  REQUIRED*  EP'hEM  ’ORB  PECEQ 

LOCAL  SYMBOLS*  ALFA  VECTOR  FORMING  RIGHT-HANDED  ORTHOGQNAL 

TRIAO  WITH  XN  AND  SSS  VECTORS  FOR 
CALCULATION  OF  ANTENNA  AXIS/LIMB  OF  ANGLE 
OF  SUN 

X.  > 

AMAG  MAGNITUDE  OF  THE  ALFA  VECTOR 

BETA'  ANTENNA  AXIS/EARTH  ANGLE 

CD  COSINE  OF  GEOCENTRIC  DECLINATION 

-c 

CT  INTERMEDIATE  VARIABLE  FOR  ALL  CALCULATIONS 

CZAE  COSINE  OF  EARTH/SPACECRAFT/TARGET  PLANE 

ANGLE 

DELTA  GEOCENTRIC  DECLINATION 

OS  INTERMEDIATE  VARIABLE  FOR  CALCULATION  OF 

OCCULTATION  RATIOS 

ECEQP  TRANSFORMATION  FROM  EARTH  ECLIPTIC  TO 

EQUATORIAL  FRAME  FOR  CALCULATION  OF 
GEOCENTRIC  DECLINATION 

GAMMA  INERTIAL  FLIGHT  PATH  ANGLE 

IMD  LOCATION  IN  THE  F ARRAY  OF  THE  EARTH 

POSITION  ANO  VELOCITY  IN  THE  INERTIAL 
FRAME 


ISAVE  SAVES  AND  RESTORES  FIRST  ELEMENT  OF  THE 
NO-ARRAY  FOR  BARYCENTRIC  NAVIGATION 

JND  LOCATION  IN  THE  F ARRAY  OF  THE  TARGET 
PLANET  POSITION  AND  VELOCITY  IN  THE 
INERTIAL  FRAME 


TRA.PAR-  B 


NINETY  CONSTANT  VALUE,  EQUAL  TO  90.000 

OCCULT  OCCULTATION  RATIO  OF  THE  I-TH  PLANET 

PHI  ANTENNA  AXIS/LIMB  OF  SUN  ANGLE 

RDV  INTERMEDIATE  VARIABLE,  DOT  PROQUCT  OF  TWO 

VECTORS 

REMAG  MAGNITUDE  OF  THE  EARTH  HELIOCENTRIC 
POSITION 

RIMA'G  MAGNITUDE  OF  THE  POSITION  OF  THE  I-TH 

PLANET  IN  THE  GEOCENTRIC  ECLIPTIC  FRAME 

RMAG  MAGNITUDE  OF  THE  SPACECRAFT  HELIOCENTRIC 
POSITION 

RSS  SPACECRAFT  HELIOCENTRIC  POSITION 

SD  SINE  OF  GEOCENTRIC  DECLINATION 

SKYI  ANGLE  BETWEEN  SPACECRAFT  VELOCITY  RELATIVE 
TO  EARTH  AND  PLANE  OF  THE  SKY 

SRDV  DOT  PRODUCT  OF  SPACECRAFT  GEOCENTRIC 
POSITION  AND  VELOCITY  VECTORS 

SRE  SPACECRAFT  GEOCENTRIC  ECLIPTIC  POSITION 

AND  VELOCITY 

SRMAG  MAGNITUDE  OF  SPACECRAFT  GEOCENTRIC 

POSITION 

SRQ  SPACECRAFT  GEOCENTRIC  EQUATORIAL  POSITION 

SRTMAG  MAGNITUDE  OF  SRTP  VECTOR 

SRTP  SPACECRAFT  ECLIPTIC  POSITION  RELATIVE  TO 
TARGET  PLANET 

SVMAG  MAGNITUDE  OF  SPACECRAFT  GEOCENTRIC 

VELOCITY 

SX  INTERMEDIATE  VARIABLE  FOR  ALL  CALCULATIONS 

SZAE  SINE  OF  EARTH/SPACECRAFT /TARGET  PLANET 
' * ANGLE  * 

THETA  INTERMEDIATE  ANGLE  USED  TO  CALCULATE 
NAVIGATION  PARAMETERS 


VMAG 


MAGNITUDE  OF  SPACECRAFT  VELOCITY  RELATIVE 


TRAPAR-C 


TO  INERTIAL  FRAME 

XMAG  MAGNITUDE  OF  THE  XN  VECTOR  BEFORE 
UNITIZING 

XN  CROSS  PROOUCT  OF  SPACECRAFT  GEOCENTRIC 

POSITION  AND  SPACECRAFT  SPIN  AXIS 

ZAE  EARTH/SPACECRAFT/TARGET  PLANET  ANGLE 


COMMON 

COMPUTED /USED 3 

B 

NO 

RE 

COMMON 

USED8 

F 

I8ARY 

NBOO 

N8 

NTP 

ONE 

PLANET 

RADIUS 

RAO 

SSS 

TWO 

V 

XP 

ZERO 
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TRAPAR  Analysis 

The  coordinate  systems  and  variables  required  for  the  derivation  of  the 
first  four  navigation  parameters  are  shown  in  Figure  1.  The  inertial 
coordinate  system  XYZ  may  be  heliocentric  or  barycentric  ecliptic. 

The  position  and  velocity  of  the  earth  in  inertial  space  is  given  by  r^, 

and  "v*  ; that  of  the  spacecraft,  by  r and  v;  and  that  of  the  target 
E , 

planet  (or  moon),  by  r^p  and  vTp*  xyz  coordinate  system  is 

geocentric  equatorial. 

1.  Flight  path  angle,  “ . 

X -•v 

Let  8 denote  :the  angle  between  r and  v,  so  that 


cos  9 = r * v and  sin  9 = + 

r v 


|l  - cos2  9] 


Then 


7 = JL 
2 


2.  Angle  between  relative  velocity  and  plane  of  the  sky,  i 


1 


The  plane  of  the  sky  is  defined  as  the  plane  perpendicular  to  the 

vector  r*  - ‘r_.  Let  9*  denote  the  angle  between  "r*  - "r  and1 
E E 

v - "vt,,  so  that 


cos  9 * ** 


(r*  - ~xE)  * (v  -vv) 


E 


r - rEHv-vE 


and  sin  9*  = + £l  - cos2  9*  J 


Then 

i»  » _Z  - 0*  . 

Note  that,  i”  is  not  defined  if  the  relative  velocity  "v  - Vg  is  zero, 


3.  Geocentric  declination,  5 - 

Let  (x,  y,  z)  denote  the  geocentric  equatorial  components  of  "r" 
Then 


- r. 


tan 


-1 


I 


'\f~~2 

1 v x 


+ y4 
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4.  Earth/spacecraft/target  planet  angle, 

The  angle  f is  the  angle  between  the  vectors  r - and  r - r , 
so  that 


cos  £ 

(x  - r*E)  • (r*  - *rTP) 

and 

sin  £ 

» + [l  - COS2  £ ] * 

The  next  two  navigation  parameters  relate  to  the  spacecraft  antenna  axis. 

The  pertinent  geometry  is  shown  in  Figure  2.  The  antenna  axis  ct  'is 
defined  as  the  intersection  between  the  antenna  plane  (the  plane  perpen- 
dicular to  the  spacecraft  spin  axis  *8* ) and  the  plane  formed  by  the 
r*  - f ^ and  ~b  vectors.  The  vector  p originates  from  the  limb  of  the 
sun  and  lies  in  the  "r,  0?  plane, 

5.  Antenna  axis/Earth  angle,  0 . 

Let  V'  denote  the  angle  between  the  unit  spin  axis  vector  *8°  and 

r - ft,  so  that 
£ 

~8.(?  - r_) 

cos  w = — and  Bin 

I— eI 

Then 

e-  -£-0. 

Note  that  the  antenna  axis  is  not  uniquely  defined  when  the  angle  0 “ 0. 
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The  angle  9^  denotes  the  angle  between  the  vectors  r and  Cl  , 
so  that 


cos  0„  " 


r«  Qt 


and  sin  9 « + 


2 1 ■= 
1 - cos  0 J 


The  angle  0^  denotes  the  angle  between  the  vectors  p and  r, 
so  that 

9 - sin-1  ( — ) , 0 £ 0 £ — 

1 r / 12 


where  R is  the  radius  of  the  Sun. 
8 

Then 


0 = 0-9  . 

2 1 


The  final  set  of  navigation  parameters  relate  to  spacecraft  occultation 
ratios  for  the  Sun  and  all  other  celestial  bodies  assumed  in  the  dynamic 
model.  The  pertinent  geometry  is  shown  in  Figure  3.  The  position  of 
the  i-th  celestial  body  relative  to  the  Sun  is  denoted  by  r^.  Occultation 


parameters  d and  d are  defined  as  the  minimal  distances  from  the 
s i 

centers  of  the  Sun  and  i-th  body,  respectively,  to  the  Earth/spacecraft 


vector  r - r. 


E* 


7.  Spacecraft  occultation  ratio  for  the  Sun. 

The  occultatioq  ratio  for  the  Sun.  is  defined  as  d^/R^,  where  R is 

the  Sun  radius.  As  long  as  the  occultation  ratio  is  greater  than  one, 

the  spacecraft  is  neither  being  occulted  by  the  Sun  nor  passing  in 

front  of  the  Sun.  The  occultation  ratio  is  computed  only  when  the 

angle  between  the  "t"  - "t  and  ~x  vectors  is  less  than  or  equal  to 

E E 

90  degrees , or,  equivalently,  when 


r*  • (r*  - *r_)  t=-  0. 
E E' 


If  this  condition  is  satisfied,  the  occultation  ratio  is  computed  using 
the  equations 


d 

s 


% 
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Spacecraft 


ri  “ rE 


Figure  3.  Occultation  Geometry 


r - r 


d ^ d 

Occultation  occurs  if  ^ 1 and  I r - ? I ^ rr  ; if  ~ L 1 and 

R 1 £ 1 £ R 

8 S 

|r  “ rg|  ^ then  the  spacecraft  is  passing  in  front  of  the  Sun, 

8.  Spacecraft  occultation  ratios  for  other  celestial  bodies. 

The  occultation  ratio  for  the  i-th  celestial  body  is  defined  as  d^/R^ 
where  R is  the  radius  of  the  i-th  body.  The  occultation  ratio  fs 


TRA.PAR-7 


computed  only  when 


Of*- ■?-)•(?.  - rL)  ^ o 


If  this  conditions  is  satisfied,  the  occultation  ratio  is  computed 
using  the  equations 


*i  ■ L-i‘ " % 


ai  " Ti  - rE 


and 


?-tEl-lri  1^) 


Occultation  occurs  if  — i ~ 1 and  | r - *r^  | ^ | r^  - *r^ j ; if 

Ri 

/ I — i _i  ^ 

~ — 1 and  | r - r^  | ^ J r_^  - Tg  | , then  the  spacecraft  is  passing 
is  front  of  the  i-th  celestial  body. 
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TRAPAR  Plow  Chart 


ENTER 


Compute  the  following  quantities; 

1.  Plight  path  angle,  7. 

2.  Angle  between  relative  velocity 
and  plane  of  the  sky,  i 1 (only 
if  | v - vE[  >1x10“/  km/sec) 

3.  Geocentric  declination,  6 . 

4.  Earth/spacecraft/ target  planet 
angle,  £ . 

5.  Antenna  axis/Earth  angle,  ft 
(only  if  Tp>Q.l  deg) 


IBARY  = 1? 


Compute  the  following  quantities: 

1.  Antenna  axis/limb  of  Sun  angle, 
<ji  (only  if  antenna  axis  defined) 
Spacecraft  occultation  ratio 
for- Sun. 

3.  Spacecraft  occultation  ratios 
for  other  celestial  bodies. 


Call  0RB  and  EPHEM.  Return 
position  of  Earth  relative  to 
Sun  in  XP  array. 


Compute  position  of  spacecraft 
relative  to  Sun. 


RETURN 


TRJTRY-A 


SUBROUTINE 
PURPOSES 


TRJTRY 


X 


TO  DETERMINE  THE  TIME  OF  THE  NEXT  GUIDANCE  EVENT  AND 
INTEGRATE  THE  NOMINAL  TRAJECTORY  FROM  THE  PREVIOUS 
EVENT  TIME  TO  THE  NEXT  TIME. 


CALLING  SEQUENCES  CALL  TRJTRY 
SUBROUTINES  SUPPORTED » NOMNAL 
SUBROUTINES  REQUIRED!  VMP 
LOCAL  SYMBOLS*  ACK 


OELMIN 


OELTM 


DELT 

ERROR 

ISP2 

I 

J 

RSF 


ACCURACY  USED  TO  INTEGRATE  THE  NOMINAL 
TRAJECTORY 

TIME  COAYS)  BETWEEN  THE  LAST  EVENT  AND .THE 
NEXT  EVENT 

SAME  AS  OELMIN  -THE  TIME  VMP  IS  TO 
INTEGRATE  THE  TRAJECTORY  UNLESS  ANOTHER 

STOPPING  CONDITION  OCCURS 

SAME  AS  OELMIN 

MINIMUM  ALLOWABLE  VALUE  OF  OELMIN 

FLAG  TO  CONTROL  STOPPING  CONDITION 
=1  STOP  AT  SHPERE-OF-INFLUENCE  1 
=0  DO  NOT  STOP  AT  SHPERE-OF-INFLUENCE 

INDEX 

INOEX 

SPACECRAFT  STATE • AT  FINAL  TIME 


COMMON 

COMPUTED/USEO* 

Di 

KTIM 

COMMON 

COMPUTED* 

DELTP 

COMMON 

USED* 

ACKT 

V 

ICL2 

ICL 

ISPH 

KSICA 

RIN 

TIMG 

TRTM 

IEPHEM 

INPR 

IPRINT 

KUR 

KG  YD 

NCPR 

NOGYO 

TMPR 
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TRJTRY  Analysis 


TRJTRY  determines  the  time  of  the  next  guidance  event  and  integrates 
the  nominal  trajectory  from  the  previous  event  time  to  the  next  time. 

Special  provisions  must  be  made  in  determining  the  next  guidance  event 
because  of  the  flexibility  permitted  in  specifying  the  times  of  those 
guidance  events.  For  every  guidance  event  i,  parameters  KTIM(i)  and  TIMG(i) 
will  have  been  set  before  entering  TRJTRY.  KTIM(i)  prescribes 'the  epoch 
to  which  the  guidance  event  i is  referenced  with  KT3M(i)  = 1,2,3 
corresponding  to  epochs  of  initial  time,  sphere  of  influence  (SOI)  inter- 
section, and  closest  approach  (CA)  passage  respectively.  TIMG(i)  then 
specifies  the  time  interval  (days)  from  the  epoch  to  the  guidance  event. 

The  guidance  events  do  not  need  to  be  arranged  chronologically.  After 
execution  of  each  guidance  event  i the  flag  KTIM(i)  is  set  equal  to  0. 

The  first  computational  procedure  in  TRJTRY  is  the  sequencing  loop.  Here 
a search  determines  the  minimum  value  of  TIMG(i)  over  all  values  of  i 
such  that  KTIM(i)  = 1.  The  time  interval  At  between  that  time  and  the 
current^ j;ime  is  then  computed.  If  At  is  less  than  an  allowable  tolerance 
« (=10  days)  the  program  returns  to  NGMNAL  for  the  processing  of  the 
current  event. 

If  At  > « TRJTRY  must  perform  an  integration  to  the  next  guidance  event. 
TRJTRY  first  sets  up  flags  controlling  integration  stopping  conditions 
depending  upon  the  current  value  of  KSICA.  The  flag  KSICA  determines 
the  current  phase  of  the  trajectory.  KSICA  is  initially  set  equal  to  1 
(PRELIM).  When  the  target  planet  SOI  is  encountered  KSICA  is  set  tq  2. 
Finally  when  CA  to  the  target  planet  occurs  it  is  set  to  3. 

The  stopping  condition  flags  are  ISP2  And  ICL2.  The  flag  ISP2  determines 
whether  the  integration  should  be  stopped  at  SOI  if  encountered  (ISP2  = 1) 
or  not  (ISP2  = 0) . The  flag  ICL2  determines  whether  the  integration  should 
be  stopped  at  CA  if  encountered  (ICL2  = 1)  or  not  (ICL2  = 0). 

Therefore  if  KSICA  = 1,  TRJTRY  sets  ISP2  = 1 so  that  the  integration  will 
stop  at  the  guidance  event  time  only  if  that  time  occurs  before  SOI.  But 
if  the  SOI  is  encountered  before  the  event  time,  all  times  referenced  to 
the  SOI  must  be  updated  before  determining  the  next  event.  Similarly  when 
KSICA  = 2 TRJTRY  sets  1CL2  = 1 so  that  times  referenced  to  CA  may  be  up- 
dated when  CA  occurs.  Of  course  when  KSIGA  = 3,  all  times  have  been  updated 
(referenced  to  initial  time)  and  neither  ISP2  nor  ICL2  need  be  set  to  1. 

Having  set  the  stopping  condition  flags,  TRJTRY  now  calls  VMP  for  the 
propagation  of  the  trajectory  to  the  required  stopping  condition.  At  the 
end  of  the  integration  it  records  the  current  trajectory  time  and  state. 

TRJTRY  now  sorts  again  on  KSICA.  If  KSICA  = 3,  the  trajectory  has  been 
integrated  to  the  time  of  the  current  event  and  so  control  may  be  returned 
to  NCMNAL. 
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If  KSICA  “ 1 the  SOI  had  not  yet  been  reached  at  the  previous  event. 

TRJTRY  then  checks  the  flag  ISPH.  The  flag  ISPH  reveals  whether  the 
current  trajectory  intersected  the  target  planet  SOI  (ISPH  = 1)  or  did 
not  (ISPH  *=  0).  Therefore  if  ISPH  « 0,  the  current  guidance  event 
occurred  before  the  trajectory  intersected  the  SOI  and  thus  the  current 
state  corresponds  to  the  time  of  the  guidance  event.  Therefore  the  return 
is  made  to  NGMNAL. 

If  however  KSICA  = 1 and  ISPH  = 1 the  trajectory  integration  was  stopped 
at  the  SOI.  TRJTRY  now  sets  KSICA  « 2 and  updates  all  times  referenced  to 
the  SOI  so  that  they  are  now  referenced  to  initial  time  (KT3K(i)  = 1) . 

It  reenters  the  sequencing  loop  to  determine  the  time  of  the  next  guidance 
event  where  the  candidate  events  now  include  those  originally  referenced 
to  SOI. 

t 

Similar  steps  are  made  when  KSICA  «*  2.  The  flag  ICL  designates  whether 
the  current  trajectory  had  a CA  (ICL  = 1)  or  not  (ICL  = 0) . If  KSICA  = 2 
and  ICL  = 0,  the  trajectory  encountered  the  guidance  event  before  reaching 
a CA  so  the  return  is  made  to  NQMNAL.  If  KSICA  — 2 and  ICL  = 1,  the  final 
time  and  state  of  the  trajectory  refer  to  closest  approach.  In  this  case 
TRJTRY  sets  KSICA  = 3 and  updates  to  initial  time. all  times  originally 
referenced  to  CA.  It  then  returns  to  the  sequencing  loop. 
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TRJTRi  'n  oxj  chart 


t.  = current  traj.  time 


Choose  KUR  aa  index  of  min 
value  of  all  TIMG(i)  such  that 
KT2M(i)  - 1.  Set 

At  « TIMG  (KUR)  - t 


^KSIGA^?, 


Set  ICL2«0 

Set  ICL2*=1 

Set  ICL2=0 

ISP2*=1 

i — 

> ISP2-0 

IS?2~0 

Integrate  trajectory  to  g topping  cond 

! ( A't  jSbl^CA)  and  set  t,  « t + t 

k k a 


ISPE=? 


KSICA=j 


RETURN 


USCALE-A 


SUBROUTINE  USCALE 


PURPOSE  t 

SCALES 

LENGTH  OF  A 

ARGUMENT  X 

A 

I 

LENGTH 

U 

I 

VECTOR 

V 

0 

SCALED 

SUBROUTINES 

: SUPPORTED* 

CAREL 

THREE-VECTOR  TO  SPECIFIED  NUMBER 
OF  VECTOR  TO  BE  OUTPUT 
T0~8E  SCALED 
OUTPUT  VECTOR 

IMPCT  KTROL  STIMP  SUDSOL 
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UXV-A 


SUBROUTINE  UXV 

PURPOSE*  CALCULATE  VECTOR  CROSS  PRODUCT  OF  TWO  VECTORS 


ARGUMENT*  UV 

0 

CROSS 

U 

I 

INPUT 

V 

I 

INPUT 

SUBROUTINES  SUPPORTEO* 

CAREL 

PRODUCT  OF  U ANO  V 

VECTOR 

VECTOR 

IMPCT  KTROL  STIMP  SUGSOL 
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SUBROUTINE  VARADA 

PURPOSE  COMPUTE  VARIATION  MATRIX  FOR  THREE-VARIABLE  9-PLANE 
GUIDANCE  POLICY  IN  THE  ERROR  ANALYSIS  PROGRAM 

CALLING  SEQUENCE*  CALL  VARADA(RI»XSIP,XSIVfTEVN,TSI , ADA, BS, SOTS, 

8DRS) 

ARGUMENT*  ADA  0 VARIATION  MATRIX 

BS  I B OF  THE  NOMINAL  TRAJECTORY 

BDRS  I B OOT  R OF  THE  NOMINAL  TRAJECTORY 

BOTS  I B DOT  T OF  THE  NOMINAL  TRAJECTORY 

RI  I POSITION  AND  VELOCITY  OF  THE  VEHICLE  AT  THE 

TIME  OF  GUIDANCE  EVENT 

TEVN  I TRAJECTORY  TIME  OF  THE  GUIDANCE  EVENT 

TSI  I TRAJECTORY  TIME  AT  WHICH  THE  VEHICLE 

REACHED  THE  SPHERE  OF  INFLUENCE  ON  THE 
NOMINAL  TRAJECTORY 

XSIP  I POSITION  OF  THE  VEHICLE  AT  THE  SPHERE  OF 
INFLUENCE  ON  THE  NOMINAL  TRAJECTORY 

XSIV  I VELOCITY  OF  THE  VEHICLE  AT  THE  SPHERE  OF 
INFLUENCE  ON  THE  NOMINAL  TRAJECTORY 

SUBROUTINES  SUPPORTED*  GUIO 

SUBROUTINES  REQUIREO#  NTH 

LOCAL  SYMBOLS*  BDR1  TEMPORARY  STORAGE  FOR  BDR 

BDTi  TEMPORARY  STORAGE  FOR  BDT 

B1  TEMPORARY  STORAGE  FOR  B 

OSI1  TEMPORARY  STORAGE  FOR  OSI 

IPR  TEMPORARY  STORAGE  FOR  IPRINT 

ISP  TEMPORARY  STORAGE  FOR  ISP2 

IPO  TEMPORARY  STORAGE  FOR  IPRINT 

RF  ALTERED  FINAL  STATE  OF  VEHICLE 

TSIi  TEMPORARY  STORAGE  FOR  TSI 
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XC  ALTERED  INITIAL  STATE  OF  VEHICLE 


COMMON 

COMPUTEO/USED8 

BDR 

ISP2 

COMMON 

COMPUTED* 

B 

COMMON 

USED* 

DATEJ 

NTP 

BOT 

DSI 

XPRXNT 

DELTM 

RSI 

TRTMi 

vss 

FACP 

FACV 

FNTH 

NT&G 
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VARADA  Analysis 


Subroutine  VARADA  employs  numerical  differencing  to  compute  the  variation 

matrix  1]  for  the  three- variable  B- plane  guidance  policy  in  the  guidance 

event  of  the  error  analysis'  mode.  See  subroutine  VARSIM  Analysis  for 

further  analytical  details,  since  the  only  difference  between  VARADA  and 

VARSIM  is  that  VARADA  computations  are  based  on  the  most  recent  targeted 

nominal,  while  VARSIM  computations  are  based  on  the  most  recent  nominal. 

The  VARADA  flow  chart  is  identical  to  that  of  VARSIM  except  for  the  fact 

that  in  VARADA  the  nominal  position/velocity  state  at  tCT  is  saved 

b X 

prior  to  calling  VARADA,  while  in  VARSIM  it  is  saved  locally. 
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SUBROUTINE  VARSIM 

PURPOSE  COMPUTE  VARIATION  MATRIX  FOR  THREE-VARIABLE  B- PLANE 
GUIDANCE  POLICY  IN  THE  SIMULATION  PROGRAM 

CALLING  SEQUENCE*  CALL  VARSIM<RI1»TEVN,TSX, ADA) 

ARGUMENTS  ADA  0 VARIATION  MATRIX 


RIi  I VEHICLE  POSITION/VELOCITY  ON  MOST  RECENT 


NOMINAL  TRAJECTORY 
EVENT 

AT  TIME  OF  THE  GUIDANCE 

TEVN  I 

TRAJECTORY 

TIME  OF 

GUIDANCE  EVENT 

TSI  I 

TRAJECTORY 

TIME  AT 

SPHERE  OF  INFLUENCE 

SUBROUTINES 

SUPPORTED* 

GUISS 

SUBROUTINES 

REQUIRED  8 

NT  MS 

- 

LOCAL  SYMBOLS  § BDRS 

TEMPORARY 

STORAGE 

FOR 

BDR 

BDTS 

TEMPORARY 

STORAGE 

FOR 

BDT 

BS 

TEMPORARY 

STORAGE 

FOR 

8 

IPR 

TEMPORARY 

STORAGE 

FOR 

I PRINT 

ISPS 

TEMPORARY 

STORAGE 

FOR 

ISP2 

RF1  ALTEREO  FINAL  STATE  OF  VEHICLE  ON  MOST 
RECENT  NOMINAL 

RSIS  TEMPORARY  STORAGE  FOR  RSI 
TSI1  TEMPORARY  STORAGE  FOR  TSI 
VSIS  TEMPORARY  STORAGE  FOR  VSI 


XC 

ALTERED 

RECENT 

t 

INITIAL 

NOMINAL 

STATE 

OF  VEHICLE 

ON  MOST 

COMMON 

CC5MPUTED/USEO* 

BOR 

ISPH 

BOT 

ISP2 

B *. 

RSI 

OSI 

V.SI 

I PRINT 

COMMON 

COMPUTED 8 

TRTMi 

COMMON 

USED3 

DATEJ 

FACP 

FACV 

NTMC 

NTP 
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VARSIM  Analysis 


Subroutine  VARSIM  employs  numerical  differencing  to  compute  the  variation 
matrix  V for  the  three-variable  B-plane  guidance  policy  in  the  guidance 
event  of  the  simulation  mode.  This  variation  matrix  relates  deviations 
in  the  position/velocity  state  at  t to  deviations  in  B-T,  B-R,  and 
t * k 

csr 


~5B-t“ 

A' 

(JB'R 
.^SI  - 

* V 

L k J 

Since  no  good  analytical  formulas  which  relate  6 t to 
exist, numerical  differencing  must  be  employed  to  compute  V 


6 R and 
k 


5v. 


Let  y\  be  the  j-th  column  of  the  matrix  T)  , and  assume  (most  recent) 


nominal  B-T*,  B’R*, 


* and 


are  available.  To  obtain  V we 


Ve*  k j 

increment  the  j-th  element  of  X^  by  the  numerical  differencing  factor 

AX.  and  numerically  integrate  the  spacecraft  equations  of  motion  from  t 
J k 

to  the  sphere  of  influence  of  the  target  planet  to  obtain  the  new  values 

of  B'T,  B'R,  and  t 


51 


B»T  - B »T 

Ax. 


Then 


* 


* *i 


* 


B«R  - B»R 

Ax. 

J 


fcsi  fcsi 
Ax. 

j 


j = 1,2, ... . 
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VECTOR-A 


SUBROUTINE  VECTOR 

PURPOSES  TO  COMPUTE  THE  VECTOR  ORBITAL  ELEMENTS  K (ANGULAR 
MOMENTUM  VECTOR),  E (ECCENTRICITY  VECTOR  TOWARD 
PERIHELION),  TO  COMPUTE  THE  SPACECRAFT  FINAL  POSITION 
ON  THE  ORBIT  TO  ACCURATELY  APPROXIMATE  THE  OESIRED  TIME 
INTERVAL,  AND  TO  COMPUTE  THE  CONIC  SECTION  TIME  OF 
FLIGHT. 

CALLING  SEQUENCES  CALL  VECTOR 
SUBROUTINES  SUPPORTED?  VMP 
SUBROUTINES  REQUIRED!  SPACE 

LOCAL  SYMBOLS!  DUM  INTERMEDIATE  VARIABLE 

COMMON  COMPUTEO/USEDS  V 

COMMON  COMPUTED!  KOUNT 

COMMON  USED!  HALF  ITRAT  ONE  PI  THREE 

TWOPI  TWO 
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VECT0R  Analysis 


The  Kepler  vector  k representing  twice  the  areal  rate  of  the  spacecraft 
with  respect  to  the  virtual  mass  to  be  used  during  the  current  interval 
is  computed  from 


k 


x r 


VS, 


(1) 


where  the  position  and  velocity  vectors  are  referenced  to  the  virtual  mass 
at  the  beginning  of  the  interval.  The  eccentricity  vector  for  the  interval 
is  given  by 


r 

VS 

B 

r 

VSB 


(2) 


where  is  the  average  value  of 


the  virtual  mass  during  the  interval. 


The  current  time  interval  is  computed  from 

Ar  = At  + k At2  (3) 

where  the  factor  K was  precomputed  during  the  previous  iterations!  The 
direction  of  the  final  position  a is  determined  from 


a = 


+ At 


(4) 


The  pagni tilde  factor  B is  chosen  to  force  the  final  position  to  satisfy 
the  orbit  equation  ( e . r = -r  + kz/ ) 


B 


e • tr  + | <7  | 


(5) 


The  position  and  velocity  vectors  of  the  spacecraft 
mass  at  the>  end  of  the  interval  are  then 


relative  to  the  virtual 


B <r 


fv 

. 2 


k x ( e + 


r 

VS 

E 

r ) 
VS 

E ■ 


(6) 
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The  final  position  and  velocity  of  the  spacecraft  xn  the  reference  inertial 
coordinates  are  computed  from 


(7) 


The  exact  conic  section  time  of  flight  is  now  computed.  The  in-plane  normal 
to  the  major  axis  is 


n = 

k e 


e f 0 


k x r 


VS, 


k r. 


VS 


B 


e = 0 


The  length  of  the  semi-major  axis  is  given  by 

. 2 


a 


Jl-e2|  % 


e f 1 


a = 
x 


. 2, 

r - k / u 
VS_,  M V * 

i 


e « 1,  l « B,E 


(8) 


(9) 


The  projection  of  the  radius  vector  orthogonal  to  the  major  axis  divided 
by  a is  given  by 


X 


i 


i = B,E 


(10) 


The  mean  angular  rate  xs 

(it  ~ 

ka 

_ k 
2 


e r 1 


e = 1 


(11) 
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where  a><L0  for  hyperbolic  orbits. 


E.  = sin  X. 

i i 


i=B,E 


k2/  u X 
Z V i 


The  eccentric  anomaly  is  given  by 
e < 1 

e - 1 (12) 


= sinh  1 X. 


e >1 


Then  M = E - e X i = B,E 

i i i 


(13) 


and  the  actual  conic  time  of  flight  is 

M _ M 

&t  - t - t « ■■  .B 

^ E B Z 


(14) 


The  value  of  the  time  factor  K to  be  used  in  the  following  interval  is 
then  computed  * , 


K » 


At-  At 

. 2 
(At) 


’ (15) 
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VECTOR  Flow  Chart 


VMASS-A 


SUBROUTINE  VMASS 

PURPOSES  TO  COMPUTE  THE  POSITION,  VELOCITY*  MAGNITUDE*  AND 
MAGNITUDE  RATE  OF  THE  VIRTUAL  MASSo 

CALLING  SEQUENCES  CALL  VMASS 

SUBROUTINES  SUPPORTED*  VMP 

SUBROUTINES  REQUIRED!  NONE 

COMMON  COMPUTED/USED!  F V 

COMMON  USED!  NBODY  THREE  ZERO 


VMASS- 1 


VMASS  Analysis 


The  current  virtual  mass  data  is  computed  by  VMASS.  The  magnitude  and 
position  of  the  virtual  mass  is  given  by 


r 3 M 
VS  S 


r 


V 


where  the  intermediate  variables  are  given  by 


(1) 

(2) 


M = 


n. 

E 

i=l 


r. 
i i 


r. 


(3) 


is 


M 


n 


(4) 


i=l  r 


iS 


.c  “ I r . * r I and  T - J r*  - 7*  where  "r.  represents 
lb  l S l VS  V S i r 


and  of  course  r 
the  inertial  position  vector  of  the  i-th  body. 

The  time  derivatives  of  these  variables  are  given  by 

M 

jx  = M (a  + — ) 

V V V M 


(5) 


M - r M 
V S 

M 


(6) 


M = 


M 


n 

r 

£ 

T*  /V 

3 

L.  ~ I T Cl 

i i i p 

i=l 

riS 

_ V 

2-, 

3 

r 

iS 

Cl 

IS 

(7) 


(8) 
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where 


Finally, 

is 


Ct 


iS 


2 


r 

iS 


(9) 


the  velocity  of  the  spacecraft  with  respect  to  the  virtual  mass 


VS 


(10) 
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VMASS  -Flow  Chart 


RETURN 


VMP-A 


SUBROUTINE  VMP 

PURPOSE  PROVIDE  LOGIC  TO  GENERATE  VIRTUAL  MASS  TRAJECTORY 

CALLING  SEQUENCE:  CALL  VMP ( RS, ACC,Di ,TRT M, DELTM , RSF, ISP2J 

ARGUMENTS  RS<6)  I INERTIAL  POSITION  AND  VELOCITY  OF  S/C  AT 

INITIAL  TIME 

ACC  I ACCURACY  USED  IN  INTEGRATION 

Oi  I JULIAN  DATE,  EPOCH  1900,  OF  INITIAL  TIME 

TRIM  I TRAJECTORY  TIME  (OAYS)  AT  INITIAL  TIME 

DELTM  I TIME  INTERVAL  IN  OAYS  OVER  WHICH  THE 

TRAJECTORY  IS  TO  BE  PROPAGATED  UNLESS  A 
STOPPING  CONDITION  IS  RE  A C HE  0 

RSF (6)  0 INERTIAL  POSITION  ANO  VELOCITY  OF  S/C  AT 

FINAL  TIME 

ISP2  I SPHERE  OF  INFLUENCE  STOPPING  FLAG 
=0  DO  NOT  STOP  AT  SOI 

=1  STOP  AT  SOI  IF  INTERSECTED  BEFORE  FINAL 
TIME 


SUBROUTINES 

SUPPORTED: 

CASCAQ 

NTH 

TPPROP 

NT  MS 

TRJTRY 

TPRTRG 

GIOANS 

OESENT 

MPPROP 

TARGET 

TARMAX 

SUBROUTINES 

REQUIRED: 

CAREL 

PECEQ 

SPACE 

ELGAR 

TIME 

VECTOR 

EPHEM 

ESTMT 

VMASS 

IMPACT 

INPUIZ 

ORB 

PRINT 

LOCAL  SYHBOLS  AU  NOT  USED 

CXI  COSINE  OF  THE  TRAJECTORY  INCLINATION  AT 

CLOSEST  APPROACH 

D INTERMEDIATE  DATE  FOR  PRINTOUT  PURPOSES 

DELR  INTERMEDIATE  VARIABLE  FOR  INTERSECTION 

OF  SPHERE-OF-INFLUENCE 

DELT  INTERMEDIATE  TIME  INCREMENT  FOR  INTER- 

POLATED SPHERE-OF-INFLUENCE  POSITION 

ECEQP  TRANSFORMATION  FROM  ECLIPTIC  TO  EQUATORIAL 
SYSTEM  FOR  TARGET  PLANET 

ICUT  CUTOFF  FLAG  USED  WHEN  CLOSEST  APPROACH 
CUTOFF  WAS  DESIRED  BUT  NO  VALID  CLOSEST 
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VMP-B 


APPROACH  FOUND 

IDAY  PRINTOUT  CALENDAR  vOAY 

IHR  PRINTOUT  CALENDAR  HOUR 

IMO  PRINTOUT  CALENOAR  MONTH 

IP  NUMBER  OF  PLANET,  USED  IN  PRINTOUT 

ISPHI  INDICATOR  FOR  CALCULATION  OF  SPECIAL 

COMPUTING  INTERVAL  NEAR  TARGET  PLANET 
SPHERE-OF-INFLUENCE 

IYR  PRINTOUT  CALENOAR  YEAR 

JJ  COUNTER  FOR  NUMBER  OF  ITERATIONS  FOR 

INTERPOLATED  SPHERE  OF  INFLUENCE 

LARCA  INDICATOR  FOR  CALCULATION  OF  PSUEDO 
CLOSEST  APPROACH 

MIN  PRINTOUT  CALENDAR  MINUTES 

NT  PI  INDEX  OF  THE  SPACECRAFT  VECTORS  IN  THE 

F- ARRAY  WITH  RESPECT  TO  THE  TARGET  PLANET 

RCM  MAGNITUDE  OF  POSITION  OF  VEHICLE  RELATIVE  TO 

TARGET  PLANET  AT  CLOSEST  APPROACH 

RCMi  PREVIOUS  RADIUS  OF  VEHICLE  RELATIVE  TO 
TARGET  PLANET 

RCM2  PRESENT  RAOIUS  OF  VEHICLE  RELATIVE  TO 

TARGET  PLANET 

ROT  NOT  USED 

RTEMP  SPACECRAFT  POSITION  AT  INTERPOLATED 

CLOSEST  APPROACH  IN  THE  TARGET  PLANET 
EQUATORIAL  SYSTEM 

SEC  PRINTOUT  CALENOAR  SECONDS 

TIMCR  TIME  INCREMENT  USED  FOR  INTERPOLATED 

CLOSEST  APPROACH 

TIMIN  TOTAL  TIME  USEO  IN  ONE  INTEGRATED 
TRAJECTORY 

IIM1  CLOCK  TIME  AT  BEGINNING  OF  TRAJECTORY 

TIM2  CLOCK  TIME  AT  END  OF  TRAJECTORY 
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TMU  GRAVITATIONAL  CONSTANT  OF  TARGET  PLANET 

< KM* *3/ SEC* *2) 

TP  INTERMEDIATE  VARIABLE  FOR  CALCULATION  OF 

SPECIAL  COMPUTING  INTERVAL  NEAR  SPHERE-OF- 
INFLUENCE  OF  TARGET  PLANET 

TTG  GRAVITATIONAL  CONSTANT  OF  TARGET  PLANET 

( KM* *3/ SEC* *2 ) 

VCA  VELOCITY  MAGNITUDE  WITH  RESPECT  TO  TARGET 

PLANET  AT  INTERPOLATED  CLOSEST  APPROACH 

VCM  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  RELATIVE 

TO  TARGET  PLANET  AT  CLOSEST  APPROACH 
BEFORE  INTERPOLATION 

VQ  EQUATORIAL  SPACECRAFT  VELOCITY  RELATIVE  TO 

TARGET  PLANET  AT  CLOSEST  APPROACH  BEFORE 
INTERPOLATION 

VTEMP  SPACECRAFT  VELOCITY  AT  INTERPOLATED 

CLOSEST  APPROACH  IN  THE  TARGET  PLANET 
EQUATORIAL  SYSTEM 

XI  UNINTERPOLATED  EQUATORIAL  INCLINATION  FOR 

PRINTOUT  PURPOSES 

XMAG  INTERMEDIATE  VARIABLE  FOR  CALCULATION  OF 
XI 

XN  VECTOR  NORMAL  TO  TRAJECTORY  PLANE  IN 

TARGET  PLANET  EQUATORIAL  SYSTEM  FOR 
CALCULATION  OF  XI 

XQ  EQUATORIAL  SPACECRAFT  POSITION  RELATIVE  ’ . 

TO  TARGET  PLANET  AT  UNI NTERPOLAT ED 
CLOSEST  APPROACH 

2M  INTERMEDIATE  VARIABLE  IN  CALCULATION  OF 

INTERPOLATED  CLOSEST  APPROACH  INCLINATION 

ZTEMP  VECTOR  NORMAL  TO  TRAJECTORY  PLANE  FOR 
CALCULATION  OF  INTERPOLATED  CLOSEST 
APPROACH  INCLINATION 


COMMON 

COMPUTEO/USEO* 

CAINC 

INCMT 

NO 

VSI 

OC 

ISPH 

RCA 

V 

OSI 

ITRAT 

RC 

ICL 

KOUNT 

RSI 

IN CM NT 
NBOOYI 
TIMINT 

COMMON 

COMPUTED* 

DELTH 

INC  PR 

RE 

RTP 

RVS 

VMP-D 


VMU 


COMMON  USED* 

ALNGTH 

BOR 

BDT 

B 

DELTP 

EM7 

EM8 

F 

HALF 

ICL2 

IEPHEM 

INPR 

XPRINT 

NBOO 

NB 

NTP 

ONE 

PLANET 

PMASS 

RAOIUS 

RAO 

SPHERE 

TM 

TWO 

ZERO 

605 


VMP-1 


VMP  Analysis 


VMP  provides  the  logic  to  integrate  an  N-bcdy  trajectory  from  an 
initial  spacecraft  state  (rg,  vg)  at  time  tg  to  one  of  the  following 
stopping  conditions,  ° 

1,  Target  planet  sphere  of  influence  (SOI)  is  reached 
(ISP2  1 0). 

2,  The  closest  approach  to  the  target  planet  has  been  reached 
(ICL2  =1). 

3,  The  preset  final  trajectory  time  t has  been  exceeded. 

F 

The  integration  logic  is  controlled  by  ITRAT 

ITRAT  - 1 First  pass  through  computation  cycle  (including 
ephemeria  computation) . 

2 Second  pass  through  computation  cycle  (excluding 
ephemeris) . 

3 Initialization  flag* 

To  start  the  integration,  appropriate  variables  are  initialized 

(PRINTZ)  and  ITRAT  is  set  equal  to  3.  The  state  of  all  gravitational 

bodies  at  t_  are  found  (ORB,  EPHEM) . The  initial  virtual  mass  position 
Jo 

r , velocity  v„  , magnitude  p and  magnitude  rate  [l  are  found  by 
VB  VB  VB  VB 

VMASS.  Virtual  mass  dependent  values  are  then  initilized 


AV2 

= ^ v 

E B 

(1) 

* 

*v 

vAVE 

• 

« r 

VB 

(2) 

r 

VSE 

= r 

VSE 

(3) 

• 

» r 

VSB 

(4) 

(At)2 

- 1 

(5) 

ISPHl 

=*  0 

(6) 

606 


VHP- 2 


At  this  point  the  standard  integration  routine  is  entered  by  calling 
VECTOR. 

in  the  standard  Integration  routine,  a new  increment  is  initiated  by 
calling  ESTMT  which: 

1.  Initializes  all  appropriate  variables  at  the  beginning 
of  the  increment  (subscript  B)  to  equal  their  values 
at  the  end  of  the  previous  increment, 

2.  Computes  a At  for  the  increment  based  on  a modified 
true  anomaly  passage. 

3.  Computes  the  time  at  the  end  of  the  increment  t . 

is 

4.  Estimates  the  final  (subscript  E)  position  r and  magnitude 

H of  the  virtual  mass.  VE 

E 

Based  on  these  estimates,  the  average  magnitude  and  velocity  of  the 
virtual  mass  is  computed 

H « 1/2  O + » ) (7) 

AVE  B E 

v « (r  - r )/At  (8) 

AVE  E B 

Subroutine  VECTOR  then  computes  the  orbit  relative  to  the  virtual 
mass  based  on  these  estimates.  It  also  refines  the  estimate  of  the 
spacecraft  final  state  (r  , v ).  ORB  and  EPHEM  are  called  to  deter- 

t se  se  ■ 

6 mine  the  state  at  of  all  gravitational  bodies  being  considered.  The 
virtual  mass  position  rv  , velocity  vv  , magnitude  n and  magnitude 

VE  VE  VE 

rate  £v  are  determined  by  VMASS. 

VE 

Using  these  refined  values,  the  virtual  mass  average  magnitude  u 

VAVE 

and  velocity  vv  are  recomputed  using  equations  (7)  and  (8).  At  this 
VAVE 

point  a second  pass  Is  made  through  VECTOR  to  compute  the  spacecraft 
final  state  (r_  , v ) which  will  be  used  in  all  subsequent  calculation, 
SE  SE 

VMASS  is  again  called  to  make  a final  determination  of  the  virtual  mass 
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position,  velocity,  magnitude  and  magnitude  rate  at  the  end  of  the 
increment . 

The  virtual  mass  average  accelerations  are  then  computed 


These  values  are  subsequently  used  by  ESTMT  to  estimate  the  final 
position  and  magnitude  of  the  virtual  mass  for  the  next 

increment . 

r 

Tests  are  now  made  to  determine  whether  the  vehicle  is  inside  a 
planetocentric  sphere  of  , radius  1.025  times  larger  than  that  of 
the  S0I.  If  it  is  not,  integration  goes  on  as  usual.  If  it  is 
and  yet  is  still  outside  the  S0I,  the  integration  step  size  is 
reduced  to  obtain  an  integration  state  near  enough  the  S0I  to 
permit  accurate  extrapolation  to  it.  Finally,  if  the  vehicle 
is  inside  of  the  sphere  of  influence,  a refined  sphere  of  in- 
fluence (S0I)  state  is  constructed  by  fitting  an  osculating 
planetocentric  conic  to  the  current  state  and  extrapolating  it 
to  the  sphere.  The  entire  refinement  process  is  carried  out  in 
subroutine  S0IPS. 

The  refined  state  at  the  S0I  is  then  used  by  IMPACT  to  compute 
B*T  and 

If  trajectory  data  are  to  be  printed  at  this  point,  the  orbit 
inclination  (assuming  a hyperbolic  orbit  about  the  planet)  is 
computed  by  first  determining  the  "Kepler  vector" 

k “ rST  X VST 

in  planetocentric  equatorial  coordinates.  Then 

k 

cos  i * (12) 

w 

where  i - orbit  inclination  and  k = component  of  k normal  to  planet 
equatorial  plane. 
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Tests  are  now  made  to  determine  if  the  spacecraft  has  reached  a 
closest  approach  to  the  target  planet.^  If  it  has,  the  interpo- 
lated  state  at  closest  approach  | r^,  vca)  is  comPuteci  by  call-ing 

CAREL  with  the  spacecraft  state  just  following  closest  approach. 
CAREL  returns  the  element  of  the  near  planet  conic.  ELCAR  is 
then  called  with  these  conic  elements  and  returns  the  interpo- 
lated state  at  closest  approach. 

If  the  spacecraft  is  not  within  10  SOI  of  the  target  planet, 
printout  of  closest  approach  data  may  occur ; however,  integra- 
tion continues. 

The  final  tests  before  starting  a new  integration  increment  de- 
termine if  the  maximum  trajectory  time  t?  has  been  exceeded  or 

a planet  has  been  impacted.  If  the  latter  has  occurred,  the 
actual  impact  state  is  determined  by  fitting  an  osculating 
planetocentric  conic  to  the  current  state  and  extrapolating  to 
the  planet  surface.  As  was  the  case  earlier  at  the  SOI,  this 
procedure  is  carried  out  in  the  subroutine  S0ITS.  If  the  im- 
pacted planet  is  the  object  of  any  type  of  probe  targeting,  the 
planet  radius  used  in  the  impact  state  computation  is  the  probe- 
sphere  value  input  by  the  user.  If  these  final  two  tests  are 
passed,  a new  integration  cycle  is  initiated  by  calling  ESTMT. 
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ENTER 


XTSAT 


Initialization  of  virtual 
mass  dependent  values 


Compute  virtual  mass 
average  accelerations 


Compute  virtual  mass 
average  magnitude 
and  velocity 


Vg  AVE  E 

J i -k  -ft 

r*  a t ^ T a r* 

v v vs  vs 

AVE  E vt>B  E 


*v  ’ rv 

AVE  vAVE 


rvs  ” rvs  * ^ ^ 1 
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ZERIT-A 


SUBROUTINE  ZERIT 

PURPOSE8  TO  COMPUTE  THE  COMPUTATION  OF  THE  ZERO  ITERATE  VALUES  OF 
TIME,  POSITION  VECTOR,  AND  VELOCITY  VECTOR, 

CALLING  SEQUENCES  CALL  ZERIT 

SUBROUTINES  SUPPORTED8  PRELIM  GIOANS 

SUBROUTINES  REQUIRED?  HELIO  LUNA 

COMMON  USEOS  IZERO  LTARG 
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ZERIT  Analysis 


ZERIT  is  the  executive  subroutine  handling  the  computation  of  the  zero 
iterate  values  of  time,  position  vector,  and  velocity  vector. 

The  flag  IZERO  controls  the  operation  of  ZERIT.  If  IZERO  - 0,  no  zero 
iterate  computation  is  needed  and  so  ZERIT  is  exited.  If  IZERO  <T10,  the 
zero  iterate  is  to  be  computed  for  a interplanetary  trajectory  so  HELIO 
is  called  before  returning.  If  IZERO 10 , the  zero  iterate  is  to  be 
computed  for  a lunar  trajectory  so  LUNA  is  called  for  that  computation. 


ZERIT  Flow  Chart 
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SUBROUTINE  ZRANS 

PURPOSE!  TO  CALCULATE  THE  TRANSCENDENTAL  FUNCTIONS  USED  IN  THE 
UNIVERSAL  FORM  OF  KEPLER-S  ECUATION 

CALLING  SEQUENCE*  CALL  ZRANS(X,S,C) 

ARGUMENTS*  X I ANGLE 

S 0 SIN  OR  SINH  OF  X 

C 0 COS  OR  COSH  OF  X 

SUBROUTINES  SUPPORTEO*  8ATCON 

LOCAL  SYMBOLS*  CH  INTERMEDIATE  VARIABLE 

SH  INTERMEDIATE  VARIABLE 

T 1 INTERMEDIATE  VARIABLE 

T 2 INTERMEDIATE  VARIABLE 

Y INTERMEDIATE  VARIABLE 
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